ayuda

zek
15 de Septiembre del 2004
Me podrian ayudar con un problema que tengo el problema es que no se como ligar un formulario con una base de datos lo que pasa es que yo estoy haciendo un programa de nominas ya tengo la tabla de empleados y el formulario para capturarlos y ahora quiero hacer el formulario de la nomina y al momento de darle el numero o el nombre de el empleado me arroje algunos de sus datos como el nombre departamento donde se hubica salario diario ese tipo de cosas a y una cosa mas al momento de guardar un nuevo empleado antes me salian los datos de el empleado anterior y ahora ya no me los muestray no se porque este es todo el codigo que tengo en el formulario de la captura de empleados



Private Sub Command1_Click()
If Datnum.Recordset.RecordCount > o Then
Datnum.Recordset.MoveFirst
End If
End Sub

Private Sub Command2_Click()
If Datnum.Recordset.RecordCount > o And _
(Not Data1.Recordset.BOF()) Then
Datnum.Recordset.MovePrevious
End If
End Sub

Private Sub Command3_Click()
If Datnum.Recordset.RecordCount > o And _
(Not Data1.Recordset.EOF()) Then
Datnum.Recordset.MoveNext
End If
End Sub

Private Sub Command4_Click()
If Datnum.Recordset.RecordCount > o Then
Datnum.Recordset.MoveLast
End If
End Sub

Private Sub mnuBorrar_Click()
resp = MsgBox("Esta Seguro de que Desea Eliminarlo", vbYesNo)
If resp = vbYes Then
Datnum.Recordset.Delete
checaesto True, False
Else
NumEmpleado.Text = ""
Nombre.Text = ""
Fecha.Text = ""
LugarNacimiento.Text = ""
Sexo.Text = ""
Estado.Text = ""
CURP.Text = ""
IMSS.Text = ""
Direccion.Text = ""
Municipio.Text = ""
Telefono.Text = ""
Codigo.Text = ""
Fechaing.Text = ""
Fechasal.Text = ""
Comentario.Text = ""
End If
If resp = vbNo Then
Resume Next
End If
End Sub

Private Sub mnuGuardar_Click()
Datnum.Recordset.AddNew
Datnum.Recordset("NumEmpleado") = Int(NumEmpleado.Text)
Datnum.Recordset("Nombre") = Nombre.Text
Datnum.Recordset("Fecha") = Fecha.Text
Datnum.Recordset("LugarNacimiento") = LugarNacimiento.Text
Datnum.Recordset("Sexo") = Sexo.Text
Datnum.Recordset("Estado") = Estado.Text
Datnum.Recordset("Curp") = CURP.Text
Datnum.Recordset("IMSS") = IMSS.Text
Datnum.Recordset("Direccion") = Direccion.Text
Datnum.Recordset("Municipio") = Municipio.Text
Datnum.Recordset("Telefono") = Telefono.Text
Datnum.Recordset("Codigo") = Codigo.Text
Datnum.Recordset("Fechaing") = Fechaing.Text
Datnum.Recordset("Fechasal") = Fechasal.Text
Datnum.Recordset("Comentario") = Comentario.Text
Datnum.Recordset.Update
MsgBox "Se Actualizó Base de Datos", vbInformation, "Actualizacion de Datos"
checaesto False, False

saliR:
End Sub

Private Sub mnuNuevo_Click()
'Data1.Recordset.MoveLast
Datnum.Refresh
Datnum.Recordset.AddNew
checaesto True, True
End Sub


Public Sub checaesto(arg1 As Boolean, arg2 As Boolean)
' Arg1 limpia controles de Captura
' Arg2 habilita controles de Captura
If arg1 Then
NumEmpleado.Text = ""
Nombre.Text = ""
Fecha.Text = ""
LugarNacimiento.Text = ""
Sexo.Text = ""
Estado.Text = ""
CURP.Text = ""
IMSS.Text = ""
Direccion.Text = ""
Municipio.Text = ""
Telefono.Text = ""
Codigo.Text = ""
Fechaing.Text = ""
Fechasal.Text = ""
Comentario.Text = ""
End If
If arg2 Then
NumEmpleado.Enabled = True
Nombre.Enabled = True
Fecha.Enabled = True
LugarNacimiento.Enabled = True
Sexo.Enabled = True
Estado.Enabled = True
CURP.Enabled = True
IMSS.Enabled = True
Direccion.Enabled = True
Municipio.Enabled = True
Telefono.Enabled = True
Codigo.Enabled = True
Fechaing.Enabled = True
Fechasal.Enabled = True
Comentario.Enabled = True
Else
NumEmpleado.Enabled = False
Nombre.Enabled = False
Fecha.Enabled = False
LugarNacimiento.Enabled = False
Sexo.Enabled = False
Estado.Enabled = False
CURP.Enabled = False
IMSS.Enabled = False
Direccion.Enabled = False
Municipio.Enabled = False
Telefono.Enabled = False
Codigo.Enabled = False
Fechaing.Enabled = False
Fechasal.Enabled = False
Comentario.Enabled = False
End If
End Sub

Private Sub mnuSalida_Click()
Unload Me
End Sub

william
15 de Septiembre del 2004
soy programador y analista de sistemas, por favor envieme todo el codigo del programa ya que toca mirar la interfase de todo el codigo para resolver el problema.

gracias