Não estou conseguindo impedir que o campo CodProduto aceite cadastro em duplicidade.
Alguém poderia me ajudar? Muito obrigado
Código: Selecionar todos
Private Sub UserForm_Activate()
cnnBanco.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & "\Banco_SIG.mdb"
rstBanco.Open "SELECT Id, CodProduto, NomeProduto, Valor FROM TblProduto", cnnBanco, adOpenKeyset, adLockOptimistic, adCmdText
Indice = rstBanco.AbsolutePosition
Activar
End Sub
Sub Incluir_Registro()
If Me.txtCodProduto.Text = "" Or txtNomeProdutoFlora.Text = "" Or Me.txtValor.Text = "" Then
MsgBox "Os campos: Código do Produto, Nome Produto, Valor, não devem ficar em branco, digite!!!", 64, "Aviso"
Else
''Inserindo os dados na tabela
With rstBanco
.AddNew
.Fields("CodProduto") = Me.txtCodProduto.Text
.Fields("NomeProduto") = Me.txtNomeProduto.Text
.Fields("Valor") = Me.txtValor.Text
rstBanco.Update
lblMensagemSim.Caption = "Registro salvo com sucesso."
End With
End If
End Sub