Ola pessoal no evento se não estiver na lista minha combo usei o codigo
Private Sub NomeCliente_NotInList(NewData As String, Response As Integer)
Dim strsql As String, x As Integer
Dim LinkCriteria As String
x = MsgBox("Esse cliente não existe. Deseja acrescentar?", vbYesNo)
If x = vbYes Then
strsql = "Insert Into cliente ([nomecliente]) values ('" & NewData & "')"
' MsgBox strsql
LinkCriteria = "[nomecliente] = '" & Me.NomeCliente.Text & "'"
DoCmd.OpenForm "clientes inserir", , , LinkCriteria
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
Mas o problema é que tambem mostra a msg padrão do acess como excluir ela?
Private Sub NomeCliente_NotInList(NewData As String, Response As Integer)
Dim strsql As String, x As Integer
Dim LinkCriteria As String
x = MsgBox("Esse cliente não existe. Deseja acrescentar?", vbYesNo)
If x = vbYes Then
strsql = "Insert Into cliente ([nomecliente]) values ('" & NewData & "')"
' MsgBox strsql
LinkCriteria = "[nomecliente] = '" & Me.NomeCliente.Text & "'"
DoCmd.OpenForm "clientes inserir", , , LinkCriteria
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub
Mas o problema é que tambem mostra a msg padrão do acess como excluir ela?