Jump to content

Access - Verificar se os campos estão preenchidos


Recommended Posts

boas

estou aqui com um dúvida no access

tenho um formulário que permite registar clientes, mas queria verificar se os campos estão preenchidos antes de avançar para o registo, e se os campos não estiverem preenchidos exibir uma Msgbox a dizer que os campos têm que ser preenchidos.

tenho o seguinte código para registar os clientes:

Private Sub inserir_Click()
Dim db As Database
Dim rs As Recordset
If MsgBox("Deseja registar o cliente?", vbYesNoCancel, "Opções") = vbYes Then
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Clientes", dbOpenTable)
    rs.AddNew
    rs("Nome Completo") = Me!nome
    rs("cod_cliente") = Me!cod
    rs("BI") = Me!num
    rs("Localidade") = Me!Loc
    rs("Morada") = Me!mor
    rs("Telefone") = Me!tel
    rs.Update
    rs.Close
    Set rs = Nothing
    Set db = Nothing
    Me.nome = Null
    Me.cod = Null
    Me.num = Null
    Me.Loc = Null
    Me.mor = Null
    Me.tel = Null
    MsgBox "Cliente Registado!", vbInformation, "Concluído"
    Me.nome.SetFocus
Exit Sub
End If
End Sub

será que me podiam dar umas dicas ?

obrigado.

Link to comment
Share on other sites

bom...  eu vou tentar te ajudar....  creio que seja Access, que estamos falando...

vamos ver...  vc tem um form...  e criou o forme e colocou as textbox lah??

se for isso é ´so criar um código para ver se text1.text ou propriedade value é vazio, se for paresente uma msgbox...

creio que foi isso que entendi... 

public sub Verifica()
if text1.text="" then
msgbox "Campo texto1 está vazio.  Favor preencher", vbokonly, "FormTeste"
text1.setfocus
end if

é só chamar o procedimento nos command que dão next e adicionar.

Espero que isso ajude... 

cumps  😉

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.