Abrir formulario en un registro concreto
Imaginad, tengo un cuadro de lista en el que visualizo un conjunto de registros. ¿Cómo puedo, abrir un formulario distinto, y que se desplace nada más abrirlo a ese registro que tenia seleccionado en el cuadro de lista? El método me da igual que sea mediante un botón o un doble clic.
1 Respuesta
Respuesta de rafasan
1
Puedes llamar a este procedimiento desde el evento afterupdate o en un botón.
Private Sub CmdVerSoloUna_Click()
Dim strWhere As String, varItem As Variant, gWhereOrdenDeCompra As String
' Si no hay elementos seleccionados
If Me!LstOrdenesDeCompra.ItemsSelected.Count = 0 Then Exit Sub
' Recoge todos los elementos seleccionados
For Each varItem In Me!LstOrdenesDeCompra.ItemsSelected
' Graba norc_ordenCompra
strWhere = strWhere & Me!LstOrdenesDeCompra.Column(0, varItem) & ","
Next varItem
' quita la coma extra del "IN"
strWhere = Left$(strWhere, Len(strWhere) - 1)
' Abre el formulario filtrando por el strWhere
gWhereOrdenDeCompra = "[norc_OrdenCompra] IN (" & strWhere & ")"
DoCmd.OpenForm FormName:="fOrdenCompra", wherecondition:=gWhereOrdenDeCompra
' Hide the New button, but show the Show All button
Forms!fOrdenCompra!CmdAgregar.Visible = True
Forms!fOrdenCompra!CmdAgregar.Enabled = True
Forms!fOrdenCompra!CmdEditar.Enabled = True
DoCmd.Close acForm, Me.Name
End Sub
Cualquier duda, estoy a tus ordenes
Rafael Sanchez
Private Sub CmdVerSoloUna_Click()
Dim strWhere As String, varItem As Variant, gWhereOrdenDeCompra As String
' Si no hay elementos seleccionados
If Me!LstOrdenesDeCompra.ItemsSelected.Count = 0 Then Exit Sub
' Recoge todos los elementos seleccionados
For Each varItem In Me!LstOrdenesDeCompra.ItemsSelected
' Graba norc_ordenCompra
strWhere = strWhere & Me!LstOrdenesDeCompra.Column(0, varItem) & ","
Next varItem
' quita la coma extra del "IN"
strWhere = Left$(strWhere, Len(strWhere) - 1)
' Abre el formulario filtrando por el strWhere
gWhereOrdenDeCompra = "[norc_OrdenCompra] IN (" & strWhere & ")"
DoCmd.OpenForm FormName:="fOrdenCompra", wherecondition:=gWhereOrdenDeCompra
' Hide the New button, but show the Show All button
Forms!fOrdenCompra!CmdAgregar.Visible = True
Forms!fOrdenCompra!CmdAgregar.Enabled = True
Forms!fOrdenCompra!CmdEditar.Enabled = True
DoCmd.Close acForm, Me.Name
End Sub
Cualquier duda, estoy a tus ordenes
Rafael Sanchez
