ERRO Dbseechenges ao abrir formulario

Pessoal, boa tarde!!

Tenho dois FORMS:

Form1, realizo um cadastro simples e ao final ele abre o Form2 para complementar o registo.
Form1 permanece aberto.

Form2 traz a DATA e o CPF do Form1 que ainda permanece aberto.

Form2 precisa me trazer exatamente o ID para a data/hora/min do cadastro realizado.

ERRO: You must use the dbSeeChanges option with OpenRecordSet when accessing a SQL Server table that has an IDENTITY column.

Abaixo segue o codigo:



Private Sub Form_Load()

Forms!FRM_BOATENDIMENTO_COMISSIONAMENTO!txtDT_CAD = Forms!FRM_BOATENDIMENTO!txtDT_CAD
Forms!FRM_BOATENDIMENTO_COMISSIONAMENTO!txtCPF = Forms!FRM_BOATENDIMENTO!txtCPF_CNPJ

Set banco = CurrentDb
Set tb = banco.OpenRecordset("SELECT ID FROM REGISTROS_BOATENDIMENTO WHERE ((DATA_CADASTRO)= '" & txtDT_CAD & "');")

txtID = tb("ID")


Utilizo o Access 2010.
SQL Server
E a coluna ID é primaria auto increment

Onde estou errando?

Bom dia, e bem-vindo ao fórum
Provavelmente, o registo ainda não está gravado e não consegue obter o ID
Tente gravar, antes de abrir o form2

Oi Alexandre, bom dia e muito obrigado!!

O Form2 ele abre depois do codigo de inserir no banco.

Aperto o botao salvar no Form1 que aciona uma macro que contem uma query de add. Ai depois de tudo isso que ele abre o Form2.

Abaixo o codigo do botao salvar para conhecimento:


DoCmd.RunMacro "M_ADD_BOATENDIMENTO" 'macro que adiciona o registro do form1

MsgBox ("Cadastro efetuado com sucesso!"), vbInformation, "REGISTROS_BOATENDIMENTO" 'mensagem de que foi registrado

DoCmd.OpenForm ("FRM_BOATENDIMENTO_COMISSIONAMENTO") 'form2 sendo aberto

Se resolveu, marque no botão "Resolvido"

Não foi resolvido, apenas mandei o codigo que esta no botão salvar para justificar que primeiro ele esta gravando e depois abrindo o Form2.

Ainda o erro permanece e não sei oque fazer =\

colocou campo Data_cadastro como texto, será data?
Set tb = banco.OpenRecordset("SELECT ID FROM REGISTROS_BOATENDIMENTO WHERE DATA_CADASTRO=#" & txtDT_CAD & "#;")

Ja tinha colocado dessa forma, e ele ainda acusa o mesmo erro.

continuo por aqui testando outras formas, mas ate o momento ainda nao consegui =\

Alexandre, boa tarde!!

Resolvi o problema do dbseechanges. Acrescentei a mudança de tipo sugerida por vc com os "#" e depois ainda acrescentei no final do codigo o dbOpenDynaset, dbSeeChanges.

Abaixo segue o codigo para quem tiver a mesma duvida de como utilizar o dbOpenDynaset e dbSeeChanges.


Private Sub Form_Load()

Forms!FRM_BOATENDIMENTO_COMISSIONAMENTO!txtDT_CAD = Forms!FRM_BOATENDIMENTO!txtDT_CAD
Forms!FRM_BOATENDIMENTO_COMISSIONAMENTO!txtCPF = Forms!FRM_BOATENDIMENTO!txtCPF_CNPJ

Set banco = CurrentDb
Set tb = banco.OpenRecordset("SELECT ID FROM REGISTROS_BOATENDIMENTO WHERE DATA_CADASTRO = #" & txtDT_CAD & "#;", dbOpenDynaset, dbSeeChanges)

txtID = tb("ID")

End Sub



Alexandre, muito obrigado cara... vc me ajudou muito.

*** Onde aperto para encerrar o topico?

Boa tarde,
Faltou o "Resolvido"