Ola !
Estou com um problema
Tenho uma formulário de folha de dados onde ao clicar no campo de seleção ele retornar um formulario com os dados completo sobre o campo de seleção.
A ideia seria mesmo abrir um form de consulta somente.
Só ao fechar o formulario ele me retorna um erro de duplicidade. Neste momento eu aperto ESC, ele retorna o dados do primeiro item da tabela e ai sim consigo fechar o formulario
MSG de Erro - "As alterações solicitadas para a tabela nao foram bem-sucedidas. Ja que criaram valores duplicados de indice , chave primaria ou relação. Altere os dados dados no campo ou nos campos que contem dados duplicados, remova o indice, ou redefina-o para permitir entradas duplicadas e tente novamente.
Se eu apertar ESC ele retorna este outro erro:
"Não é possivel salvar este registo agora"
Aperto ESC novamente ele retorna ao primeiro dado da linha de folha de dados e finalmente consigo fechar.
Codigo usado no form de folha de dados:
Private Sub seleção_Click()
DoCmd.OpenForm "formhistorico"
Forms!formhistorico!CODPASTA = Me.CODPASTA
Forms!formhistorico!PRESTADORINDICADO = Me.PRESTADORINDICADO
Forms!formhistorico!CNPJ_PRESTADOR = Me.CNPJ_PRESTADOR
Forms!formhistorico!CODIGOPRESTADOR = Me.CODIGOPRESTADOR
Forms!formhistorico!DATA = Me.DATA
Forms!formhistorico!ESPECIALIDADE = Me.ESPECIALIDADE
Forms!formhistorico!DDD = Me.DDD
Forms!formhistorico!TELEFONE = Me.TELEFONE
Forms!formhistorico!CIDADE = Me.CIDADE
Forms!formhistorico!UF = Me.UF
Forms!formhistorico!INDICAÇÃO_ADEQUAÇÃO = Me.INDICAÇÃO_ADEQUAÇÃO
Forms!formhistorico!STATUS = Me.STATUS
Forms!formhistorico!SITUAÇÃO = Me.SITUAÇÃO
Me.seleção = ""
End Sub
Abraços
Estou com um problema
Tenho uma formulário de folha de dados onde ao clicar no campo de seleção ele retornar um formulario com os dados completo sobre o campo de seleção.
A ideia seria mesmo abrir um form de consulta somente.
Só ao fechar o formulario ele me retorna um erro de duplicidade. Neste momento eu aperto ESC, ele retorna o dados do primeiro item da tabela e ai sim consigo fechar o formulario
MSG de Erro - "As alterações solicitadas para a tabela nao foram bem-sucedidas. Ja que criaram valores duplicados de indice , chave primaria ou relação. Altere os dados dados no campo ou nos campos que contem dados duplicados, remova o indice, ou redefina-o para permitir entradas duplicadas e tente novamente.
Se eu apertar ESC ele retorna este outro erro:
"Não é possivel salvar este registo agora"
Aperto ESC novamente ele retorna ao primeiro dado da linha de folha de dados e finalmente consigo fechar.
Codigo usado no form de folha de dados:
Private Sub seleção_Click()
DoCmd.OpenForm "formhistorico"
Forms!formhistorico!CODPASTA = Me.CODPASTA
Forms!formhistorico!PRESTADORINDICADO = Me.PRESTADORINDICADO
Forms!formhistorico!CNPJ_PRESTADOR = Me.CNPJ_PRESTADOR
Forms!formhistorico!CODIGOPRESTADOR = Me.CODIGOPRESTADOR
Forms!formhistorico!DATA = Me.DATA
Forms!formhistorico!ESPECIALIDADE = Me.ESPECIALIDADE
Forms!formhistorico!DDD = Me.DDD
Forms!formhistorico!TELEFONE = Me.TELEFONE
Forms!formhistorico!CIDADE = Me.CIDADE
Forms!formhistorico!UF = Me.UF
Forms!formhistorico!INDICAÇÃO_ADEQUAÇÃO = Me.INDICAÇÃO_ADEQUAÇÃO
Forms!formhistorico!STATUS = Me.STATUS
Forms!formhistorico!SITUAÇÃO = Me.SITUAÇÃO
Me.seleção = ""
End Sub
Abraços