Boas noites,
Tenho estado aqui a ler no forum e ainda não consegui entender bem como posso fazer isto.
Tenho dois formularios que são exactamente iguais, a unica coisa que difere é mesmo o nome.
Tenho um campo "txtNif" que tem um botão ao lado que me verifica se existe ou não cliente com esse NIF no sistema.
O que estava a tentar fazer é que caso existisse cliente ele me abrisse automaticamente um novo Form com esse nif e os restantes campos actualizados, para que fosse necessário apenas criar a venda.
tenho o seguinte codigo para o botão em questao:
Private Sub cmd18_Click()
If DCount("*", "[Clientes]", "Contribuinte='" & Me!txtNif & "'") > 0 Then
MsgBox "Cliente existe na Base de Dados", vbInformation + vbOKOnly, "Erro"
Else
MsgBox "Cliente não existe!", vbInformation + vbOKOnly, "Erro"
Me.txtNif.Value = ""
Exit Sub
End If
End Sub
Suposamente iria por algo deste genero, correcto?
DoCmd.Close
stDocName = "CriarClientes2"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
Só falta saber como ponho a procura do cliente...
Obrigado
Tenho estado aqui a ler no forum e ainda não consegui entender bem como posso fazer isto.
Tenho dois formularios que são exactamente iguais, a unica coisa que difere é mesmo o nome.
Tenho um campo "txtNif" que tem um botão ao lado que me verifica se existe ou não cliente com esse NIF no sistema.
O que estava a tentar fazer é que caso existisse cliente ele me abrisse automaticamente um novo Form com esse nif e os restantes campos actualizados, para que fosse necessário apenas criar a venda.
tenho o seguinte codigo para o botão em questao:
Private Sub cmd18_Click()
If DCount("*", "[Clientes]", "Contribuinte='" & Me!txtNif & "'") > 0 Then
MsgBox "Cliente existe na Base de Dados", vbInformation + vbOKOnly, "Erro"
Else
MsgBox "Cliente não existe!", vbInformation + vbOKOnly, "Erro"
Me.txtNif.Value = ""
Exit Sub
End If
End Sub
Suposamente iria por algo deste genero, correcto?
DoCmd.Close
stDocName = "CriarClientes2"
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
Só falta saber como ponho a procura do cliente...
Obrigado