Gostaria de saber qual o codigo para quando for incluir um registro que ja exista no banco de dados ele me de um aviso... por exemplo:   no banco de dados (access) tem um registro com o Nome Jose Carlos... se eu for incluir outro registro com o mesmo nome, o projeto me avisar e mostrar o registro existente.... como eu faço?

 

 

Bom, vc tem q fazer uma pesquisa por este registro...

Exemplo:

 

Set Rs = Conexao.Execute("Select codigo from Tabela where codigo = 10")

 

IF RS.EOF then 'NÃO ENCONTROU O REGISTRO

     Conexao.Execute("Insert INTO Tabela (Codigo) VALUES (10)")

ELSE

     msgbox "Este registro já existe!",vbCritical

ENDIF

 

t+

'No Modulo

Global DB As DataBase

Global TCLI As Recordset

 

Sub ABRIR_BANCO()

  Set DB = OpenDatabase (App.Path & "seu banco.mdb")

End Sub

 

Sub ABRIR_CLIENTE()

  Set TCLI = DB.OpenRecordset ("Cliente")  'Referente a sua tabela

    TCLI.Index = "PrimaryKey"

End Sub

 

'No Form

Sub CommandButton1_click()

 

ABRIR_CLIENTE

  TCLI.SEEK " = ", txtCODCLI

    If TCLI.NoMatch Then

      TCLI.AddNew

      TCLI("txtCODCLI") = txtCODCLI

      TCLI.Update

    Else

      MsgBox "Registro já Cadastrado",16,"Atenção"

    End If

End Sub

 

Espero ter ajudado!!!