Access - formulario

   
Vista:

formulario

Publicado por ute (3 intervenciones) el 07/01/2011 11:19:12
estimados

tengo un formulario donde elijo un empleado y luego me permite elegir que autos tiene asignados por numero de dominio

les paso las funciones

el problema que tengo es que yo quiero elegir por empleado o por patente y si no elijo empleado no me deja elegir patente.-

y el otro problema que tengo es que no puedo dar registros de alta o sea que si elijo un empleado y le quiero asignar una nueva patente no puedo

agredecere vuestra ayuda

gracias

ute

Private Sub CMBEMPLEADOS_CHANGE()

CMBPATENTE.Requery

End Sub

Private Sub CMBPATENTE_Change()
' Buscar el registro que coincida con el control.
Dim rs As Object
Set rs = Me.Recordset.Clone
Dim CadenaBusqueda As String
CadenaBusqueda = "asignado= " & Me.CMBEMPLEADOS & " AND patente= '" & Me.CMBPATENTE.Column(1) & "'"
rs.FindFirst CadenaBusqueda
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Comando39_Click()
On Error GoTo Err_Comando39_Click
DoCmd.GoToRecord , , acFirst
Exit_Comando39_Click:
Exit Sub
Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click

End Sub
Private Sub Comando40_Click()
On Error GoTo Err_Comando40_Click
DoCmd.GoToRecord , , acPrevious
Exit_Comando40_Click:
Exit Sub

Err_Comando40_Click:
MsgBox Err.Description
Resume Exit_Comando40_Click

End Sub
Private Sub Comando41_Click()
On Error GoTo Err_Comando41_Click
DoCmd.GoToRecord , , acNext

Exit_Comando41_Click:
Exit Sub

Err_Comando41_Click:
MsgBox Err.Description
Resume Exit_Comando41_Click

End Sub
Private Sub Comando42_Click()
On Error GoTo Err_Comando42_Click
DoCmd.GoToRecord , , acLast
Exit_Comando42_Click:
Exit Sub

Err_Comando42_Click:
MsgBox Err.Description
Resume Exit_Comando42_Click

End Sub
Private Sub Comando43_Click()
On Error GoTo Err_Comando43_Click

Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

Exit_Comando43_Click:
Exit Sub

Err_Comando43_Click:
MsgBox Err.Description
Resume Exit_Comando43_Click

End Sub
Private Sub Comando44_Click()
On Error GoTo Err_Comando44_Click
DoCmd.Close
Exit_Comando44_Click:
Exit Sub
Err_Comando44_Click:
MsgBox Err.Description
Resume Exit_Comando44_Click
End Sub
Private Sub Comando46_Click()
On Error GoTo Err_Comando46_Click
DoCmd.GoToRecord , , acNewRec
Exit_Comando46_Click:
Exit Sub
Err_Comando46_Click:
MsgBox Err.Description
Resume Exit_Comando46_Click
End Sub
Private Sub Cuadro_combinado63_AfterUpdate()
' Buscar el registro que coincida con el control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[codigo] = " & Str(Nz(Me![Cuadro combinado63], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
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