EL PROBLEMA QUE TENGO ES CON LOS CAMPOS DE FECHA, ESTAN MAL DECLARADOS X QUE ME TIRA MUCHOS ERRORES. Y NO SE COMO ARREGLARLOS YO TENIA UN MANUAL PERO LO PERDI X ESO NECESITO AYUDA.
Public caso As Integer
Public ins As Boolean
Public Sub Procedimiento()
Select Case caso
Case 1 'nuevo
txtDescripcion.Text = ""
txtdatfechainicio.DataFormat = ""
txtdatfechacierre.DataFormat = ""
ins = True
mnuArchivoNuevo.Enabled = False
mnuArchivoModificar.Enabled = False
mnuArchivoEliminar.Enabled = False
mnuArchivoGuardar.Enabled = True
mnuArchivoCAncelar.Enabled = True
mnuEdicionSeleccionar.Enabled = False
mnuArchivoVolver.Enabled = False
Toolbar2.Buttons("Nuevo").Enabled = False
Toolbar2.Buttons("Modificar").Enabled = False
Toolbar2.Buttons("Eliminar").Enabled = False
Toolbar2.Buttons("Guardar").Enabled = True
Toolbar2.Buttons("Cancelar").Enabled = True
Toolbar2.Buttons("Volver").Enabled = False
Toolbar2.Buttons("Seleccionar").Enabled = False
Case 2 'mod
ins = False
mnuArchivoNuevo.Enabled = False
mnuArchivoModificar.Enabled = False
mnuArchivoEliminar.Enabled = False
mnuArchivoGuardar.Enabled = True
mnuArchivoCAncelar.Enabled = True
mnuEdicionSeleccionar.Enabled = False
mnuArchivoVolver.Enabled = False
Toolbar2.Buttons("Nuevo").Enabled = False
Toolbar2.Buttons("Modificar").Enabled = False
Toolbar2.Buttons("Eliminar").Enabled = False
Toolbar2.Buttons("Guardar").Enabled = True
Toolbar2.Buttons("Cancelar").Enabled = True
Toolbar2.Buttons("Volver").Enabled = False
Toolbar2.Buttons("Seleccionar").Enabled = False
Case 3 'Eliminar
If MsgBox("Estas seguro que desea Eliminar este registro?", vbYesNo + vbQuestion, "ATENCION") = vbYes Then
cmd.CommandText = "Sp_DelPeriodos" & rs.Fields("CodPeriodo")
cmd.Execute
rs.Requery
MsgBox "El Registro fue Eliminado con Exito", vbExclamation, "ATENCION!"
caso = 5
Call Procedimiento
End If
Case 4 'Guardar
If ins = True Then
If MsgBox("Estas seguro que desea Ingresar este registro?", vbYesNo + vbQuestion, "ATENCION") = vbYes Then
cmd.CommandText = "Sp_InsPeriodos '" & txtDescripcion.Text & "'"
cmd.CommandText = "Sp_InsPeriodos '" & txtdatfechainicio.DataFormat & "'"
cmd.CommandText = "Sp_InsPeriodos '" & txtdatfechacierre.DataFormat & "'"
cmd.Execute
rs.Requery
MsgBox "El Registro fue Ingresado con Exito", vbExclamation, "ATENCION!"
caso = 5
Call Procedimiento
End If
Else
If MsgBox("Estas seguro que desea Modificar este registro?", vbYesNo + vbQuestion, "ATENCION") = vbYes Then
cmd.CommandText = "Sp_ModPeriodos " & rs.Fields("CodPeriodos") & ",'" & txtDescripcion.Text & "'"
cmd.CommandText = "Sp_ModPeriodos " & rs.Fields("CodPeriodos") & ",'" & txtdatfechainicio.DataFormat & "'"
cmd.CommandText = "Sp_ModPeriodos " & rs.Fields("CodPeriodos") & ",'" & txtdatfechacierre.DataFormat & "'"
cmd.Execute
rs.Requery
MsgBox "El Registro fue Guardado con Exito", vbExclamation, "ATENCION!"
caso = 5
Call Procedimiento
End If
End If
Case 5 'Cancelar
ins = False
mnuArchivoNuevo.Enabled = True
mnuArchivoModificar.Enabled = True
mnuArchivoEliminar.Enabled = True
mnuArchivoGuardar.Enabled = False
mnuArchivoCAncelar.Enabled = False
mnuEdicionSeleccionar.Enabled = True
mnuArchivoVolver.Enabled = True
Toolbar2.Buttons("Nuevo").Enabled = True
Toolbar2.Buttons("Modificar").Enabled = True
Toolbar2.Buttons("Eliminar").Enabled = True
Toolbar2.Buttons("Guardar").Enabled = False
Toolbar2.Buttons("Cancelar").Enabled = False
Toolbar2.Buttons("Volver").Enabled = True
Toolbar2.Buttons("Seleccionar").Enabled = True
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
rs.Requery
End Select
End Sub
Private Sub Form_Load()
shapeItctl1.Make shproundedrectangle, 0, 0, 525, 210, 65, 65
Set rs = New ADODB.Recordset
rs.Open "Carreras", cn, adOpenStatic, adLockOptimistic
Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
caso = 5
Call Procedimiento
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgprihot.Visible = False
imgpri.Visible = True
imgsighot.Visible = False
imgsig.Visible = True
imganthot.Visible = False
imgant.Visible = True
imgulthot.Visible = False
imgult.Visible = True
End Sub
Private Sub imgant_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imganthot.Visible = True
imgant.Visible = False
End Sub
Private Sub imganthot_Click()
rs.MovePrevious
If Not rs.BOF = True Then
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
Else
rs.MoveFirst
End If
End Sub
Private Sub imgpri_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgpri.Visible = False
imgprihot.Visible = True
End Sub
Private Sub imgprihot_Click()
rs.MoveFirst
txtDescripcion.Text = rs.Fields("Descripcion")
End Sub
Private Sub imgsig_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgsig.Visible = False
imgsighot.Visible = True
End Sub
Private Sub imgsighot_Click()
rs.MoveNext
If Not rs.EOF = True Then
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
Else
rs.MoveLast
End If
End Sub
Private Sub imgult_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgult.Visible = False
imgulthot.Visible = True
End Sub
Private Sub imgulthot_Click()
rs.MoveLast
txtDescripcion.Text = rs.Fields("Descripcion")
txtdatfechainicio.DataFormat = rs.Fields("datfechainicio")
txtdatfechacierre.DataFormat = rs.Fields("datfechacierre")
End Sub
Private Sub mnuArchivoCAncelar_Click()
caso = 5 'Cancelar
Call Procedimiento
End Sub
Private Sub mnuArchivoEliminar_Click()
caso = 3 'Eliminar
Call Procedimiento
End Sub
Private Sub mnuArchivoGuardar_Click()
caso = 4 'Guardar
Call Procedimiento
End Sub
Private Sub mnuArchivoModificar_Click()
caso = 2 'Modificar
Call Procedimiento
End Sub
Private Sub mnuArchivoNuevo_Click()
caso = 1 'Nuevo
Call Procedimiento
End Sub
Private Sub mnuArchivoVolver_Click()
Unload Me
End Sub
Private Sub mnuEdicionSeleccionar_Click()
seleccion = rs.Fields("CodPeriodo")
End Sub
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Nuevo"
mnuArchivoNuevo_Click
Case "Modificar"
mnuArchivoModificar_Click
Case "Eliminar"
mnuArchivoEliminar_Click
Case "Cancelar"
mnuArchivoCAncelar_Click
Case "Guardar"
mnuArchivoGuardar_Click
Case "Seleccionar"
mnuEdicionSeleccionar_Click
Case "Volver"
mnuArchivoVolver_Click
End Select
End Sub
Private Sub txtDescripcion_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 And KeyAscii <> 13 Then
If Len(txtDescripcion.Text) > 40 Then
KeyAscii = 0
Else
If InStr("zxcvbnmasdfghjklñqwer tyuiopáéíóú", LCase(Chr(KeyAscii))) = 0 Then
KeyAscii = 0
End If
End If
Else
If KeyAscii = 13 Then
SendKeys ("{Tab}")
End If
End If
End Sub
