Access - CmdAñadir_Click

   
Vista:

CmdAñadir_Click

Publicado por b.ar (6 intervenciones) el 10/08/2010 12:45:50
Hola,

Tengo un pequeño problema con el siguiente código:

Private Sub CmdAñadir_Click()

If Not Me.NewRecord Then
DoCmd.RunCommand acCmdRecordsGoToNew
End If

If Not IsNull(Me!TxtTipo) Then
tipo = Me!TxtTipo
Me!TxtTipo = ""
End If

DoCmd.RunCommand acCmdRefresh

End Sub

Al declarar el campo "tipo" sin duplicados cuando meto un registro ya existente y pincho en CmdAñadir el formulario se muere! (me marca error en: DoCmd.RunCommand acCmdRefresh)

He intentado lo siguiente:

On error goto Duplicando

Duplicando:
Msgbox ("Ya existe")

y tampoco funciona, ya que el Msgbox me sale siempre (haya error o no)

Una ayudita por favor!?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

CmdAñadir_Click - Solucionado

Publicado por b.ar (6 intervenciones) el 10/08/2010 14:55:32
FYI ... solución =

Private Sub CmdAñadir_Click()

If Not IsNull(DLookup("[tipo]", "tbl_direcciones_tipo", "[tipo] ='" & Me!TxtTipo & "'")) Then
MsgBox ("Error al salvar los datos. Registro duplicado.")
End If

If Not IsNull(Me!TxtTipo) Then
tipo = Me!TxtTipo
Me!TxtTipo = ""
DoCmd.RunCommand acCmdRefresh
End If

If Not Me.NewRecord Then
DoCmd.RunCommand acCmdRecordsGoToNew
End If

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar