Agenda

Private Sub cmdguardar_Click()
registro.AddNew
registro!Evento = UCase(txtevento)
registro!Hora = UCase(txthora)
registro!Fecha = UCase(txtfecha)
registro!Contacto = UCase(txtcontacto)
registro.Update
MsgBox "Registrado Jefa"
Beep
End Sub

Private Sub cmdlimpiar_Click()
txtevento = ""
txthora = ""
txtfecha = ""
txtcontacto = ""
End Sub

Private Sub Form_Load()
Set ag = OpenDatabase("e:\agenda2\bitacora.mdb")
Set registro = ag.OpenRecordset("bitacora")
End Sub