Access - dato duplicaco

Hola a todos,

Tengo una BD donde me ha surgido un problema:

tengo un formulario donde el cliente introduce un nombre, empresa y fecha..

Al insertar los datos necesito controlar que el usuario no le de dos veces al boton aceptar, para que no se dupliquen los datos...

el codigo es el siguiente:

Private Sub aceptarañadir_Click()
vempre = Form_Cliente_Vista.nombre_empresa.Value
vfecha = Form_Cliente_Vista.fecha2.Value
vcomentario = Form_Cliente_Vista.comentario2.Value
vnombre = Form_Cliente_Vista.nombre2.Value

If IsNull(vempre) Or IsNull(vfecha) Or IsNull(vnombre) Then
MsgBox "Alguno de los valores introducidos no son correctos", vbInformation, "Error"
Else
MsgBox "reporting insertado satisfactoriamente"
Call sigue
End If
End Sub

Sub sigue()

Set db = CurrentDb
Set rs = db.OpenRecordset("telepamtabla")
rs.MoveFirst

filas = rs.RecordCount 'numero d FILAS
columnas = rs.Fields.Count

With rs
.AddNew
!nombre_empresa = Me.nombre_empresa.Value
!CIF = Me.cifpam.Value
!Nombre_y_Apellidos = Me.nombre2.Value
!fecha = Me.fecha2.Value
!comentario = Me.comentario2.Value
!agenda = Me.agenda.Value
!tarea = Me.tarea.Value
!Hora = Me.Hora.Value
.Update

End With
End Sub

Si me puedierais ayudar estaría muy agradecido...

Saludos cordiales..

Hola alex donate.

Envia el Foco a otro control y desactiva el boton de comando "aceptarañadir"

Desde Venezuela
Jefferson

Hola jefferson, que quieres decir con envia el foco a otro control? Podrias ponerme un ejemplo?

Gracias jefferson

Private Sub aceptarañadir_Click()
vempre = Form_Cliente_Vista.nombre_empresa.Value
vfecha = Form_Cliente_Vista.fecha2.Value
vcomentario = Form_Cliente_Vista.comentario2.Value
vnombre = Form_Cliente_Vista.nombre2.Value

If IsNull(vempre) Or IsNull(vfecha) Or IsNull(vnombre) Then
MsgBox "Alguno de los valores introducidos no son correctos", vbInformation, "Error"
Else
Call sigue
MsgBox "reporting insertado satisfactoriamente"
'Por aqui envias el foco a otro control
'este puede ser otro boton de comando
'caja de texto, casilla de verificacion
me.OTROCONTROL.setfocus
'Por aqui desactivas el control activo
'Asi evitas que le pinchen dos veces
me.aceptarañadir.enabled = false
End If
End Sub

Sub sigue()
Set db = CurrentDb
Set rs = db.OpenRecordset("telepamtabla")
rs.MoveFirst
filas = rs.RecordCount 'numero d FILAS
columnas = rs.Fields.Count
With rs
.AddNew
!nombre_empresa = Me.nombre_empresa.Value
!CIF = Me.cifpam.Value
!Nombre_y_Apellidos = Me.nombre2.Value
!fecha = Me.fecha2.Value
!comentario = Me.comentario2.Value
!agenda = Me.agenda.Value
!tarea = Me.tarea.Value
!Hora = Me.Hora.Value
.Update
End With
End Sub

Desde Venezuela
Jefferson

Muchas gracias cracks!!