gracias chea, PERO --> ACCES 2007
Publicado por paco sorinet (9 intervenciones) el 07/08/2007 21:26:21
Antes que nada te doy las gracias.
Con la instrucción que me has indicado
---docmd.OpenForm "Miformulario",,,,,acDialog---, efectivamente el 2º formulario toma el control, pero como tengo que hacer para que se abra en un registro en concreto,
Abro el 2º Formulario con un doble click en el campo "codart" del formulario 1º, y ese campo tambien está en el 2º formulario. te recuerdo que el procedimieto que tengo es el siguiente:
Private Sub Codart_DblClick(Cancel As Integer)
Dim lngCodartID As String
Dim dato2 As Long
dato2 = Me.IdProducto.Column(0)
If IsNull(Me![Codart]) Then
Me![Codart].Text = ""
Else
lngCodartID = Me![Codart]
Me![Codart] = Null
End If
DoCmd.OpenForm "Productos"
DoCmd.FindRecord lngCodartID, , True, , True
Me!Codart.Requery
Forms!Productos!PRCDistribuidorEUROS.SetFocus
End Sub
UN SALUDO Y GRACIAS DE ANTEMANO
Con la instrucción que me has indicado
---docmd.OpenForm "Miformulario",,,,,acDialog---, efectivamente el 2º formulario toma el control, pero como tengo que hacer para que se abra en un registro en concreto,
Abro el 2º Formulario con un doble click en el campo "codart" del formulario 1º, y ese campo tambien está en el 2º formulario. te recuerdo que el procedimieto que tengo es el siguiente:
Private Sub Codart_DblClick(Cancel As Integer)
Dim lngCodartID As String
Dim dato2 As Long
dato2 = Me.IdProducto.Column(0)
If IsNull(Me![Codart]) Then
Me![Codart].Text = ""
Else
lngCodartID = Me![Codart]
Me![Codart] = Null
End If
DoCmd.OpenForm "Productos"
DoCmd.FindRecord lngCodartID, , True, , True
Me!Codart.Requery
Forms!Productos!PRCDistribuidorEUROS.SetFocus
End Sub
UN SALUDO Y GRACIAS DE ANTEMANO
Valora esta pregunta
0