Access - Agregar un registros con un boton

   
Vista:

Agregar un registros con un boton

Publicado por erm (14 intervenciones) el 30/04/2010 15:30:33
Hola. Tengo la siguiente consulta:
Tengo una tabla donde uno de los campos es la fecha. Luego en un formulario tengo un calendario. Lo que quiero hacer es que al hacer click en un dia del calendario busque el registro en la tabla que tenga esa fecha. En caso de no encontrarlo, agregue un nuevo registro en la tabla con la fecha que seleccioné en el calendario.

Alguien me puede ayudar con esto?

Desde ya muchas gracias!.
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

RE:Agregar un registros con un boton

Publicado por Marcelo (161 intervenciones) el 30/04/2010 18:33:24
Private Sub Comando2_Click()

Dim veFecha As Long

veFecha = DCount("Fecha", "Tabla1", "Tabla1.Fecha = Forms![Formulario1]![FechaIngresada]")

If veFecha = 0 Then

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO Tabla1 ( Fecha ) " & _
"SELECT [Forms]![Formulario1]![FechaIngresada] AS Expr1;"

DoCmd.SetWarnings True

ElseIf veFecha > 0 Then

MsgBox "La Fecha Ya Existe", vbCritical, "Duplicado"

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