swissman | |
| 2005-07-31 19:29 - Respuestas: 1 - Tema nº: 39270
Hola, a ver si me ayudais, pues ya estoy que no sé por donde continuar. Tengo el programa que estoy haciendo (que un user del foro conoce muy bien) el cual con un combo escojo un elemento de una lista y quisiera que al "afterupdate" de este combo el subformulario "inventari" se actualizara con los datos correspondientes. Me funciona a medias, solo cuando este elemento ya ha sido reparado antes (aparece un subformulario con su listado) entonces me aparecen los datos que preciso. Pongo aqui la parte de este ombo. Muchas gracias por adelantado.
-
Private Sub Cuadro_combinado185_AfterUpdate()
' Buscar el registro que coincida con el control.
If Not IsNull(Me.Cuadro_combinado185) Then
With Me.RecordsetClone
.FindFirst "[descripcio] = '" & Me![Cuadro Combinado185] & "'"
Me.Comando168.Enabled = False
Me.Comando194.Enabled = True
Me.Comando168.Visible = True
...
Me.inventari_proves_mantenimentiso.Form.Refresh '-actualitza dades subformulari
(esto entre lineas de los puntos es lo que he puesto, pero no funciona ninguna de las opciones)
..........................
If Not .NoMatch Then
Me.Subformulario_mantenimentisotabla.Visible = True
Me.Subformulario_mantenimentisotabla.Form.Section(0).Visible = True
Me.Bookmark = .Bookmark
Else
Me.Subformulario_mantenimentisotabla.Visible = False
Me.Subformulario_mantenimentisotabla.Form.Section(0).Visible = False
Exit Sub
End If
End With
End If
End Sub
| |
|