Bom dia,
galera tenho um formulário que cadastra produtos em estoque onde o código do produto é uma chave primária e eu encontrei um código para o botão salvar que no evento onclick ele de uma mensagem se eu estiver tentando inserir um valor ja existente no banco de dados, e se o valor nao existir ele cadastra tranquilo, mas esta aparecendo um erro nessa parte que deixei de outra cor alguém pode me ajudar
Dim IDsEncontrados As Recordset
strSQL = "SELECT Codigo_pro FROM Cad_estoque WHERE Codigo_pro = " & Me.Codigo_pro & """"
Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL)
If IDsEncontrados.RecordCount <> 0 Then
MsgBox "Já existe registro com esse número.", vbInformation, "Erro"
Cancel = True 'cancela o evento.
Else
DoCmd.RunCommand acCmdSaveRecord
Me.Comando50.Enabled = True
Me.Comando15.Enabled = False
Me.Combinação13.Enabled = False
Me.Comando22.Enabled = True
Me.Comando24.Enabled = True
Me.Quantidade.Enabled = False
Me.Lista48.Requery
Me.Refresh
galera tenho um formulário que cadastra produtos em estoque onde o código do produto é uma chave primária e eu encontrei um código para o botão salvar que no evento onclick ele de uma mensagem se eu estiver tentando inserir um valor ja existente no banco de dados, e se o valor nao existir ele cadastra tranquilo, mas esta aparecendo um erro nessa parte que deixei de outra cor alguém pode me ajudar
Dim IDsEncontrados As Recordset
strSQL = "SELECT Codigo_pro FROM Cad_estoque WHERE Codigo_pro = " & Me.Codigo_pro & """"
Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL)
If IDsEncontrados.RecordCount <> 0 Then
MsgBox "Já existe registro com esse número.", vbInformation, "Erro"
Cancel = True 'cancela o evento.
Else
DoCmd.RunCommand acCmdSaveRecord
Me.Comando50.Enabled = True
Me.Comando15.Enabled = False
Me.Combinação13.Enabled = False
Me.Comando22.Enabled = True
Me.Comando24.Enabled = True
Me.Quantidade.Enabled = False
Me.Lista48.Requery
Me.Refresh