Gracias CHEA, pero --- AYUDA EN ACCES 2007
Publicado por Paco (9 intervenciones) el 06/08/2007 20:01:31
Ante todo darte las gracias por haberte molestado en contestarme.
he borrado lo del error y he dejado el siguiente código, y sigo sin poder recibir el foco en el campo "PRCDistribuidorEUROS", creo que el problema está en el el formulario Productos le devuelve el control al formulario Pedidos compras, ya que cuando hago el doble click se abre el formulario productos y veo que hace como un barrido por algunos campos pero despues se pierde el FOCO y está en el formulario Pedidos Compra.
Tengo que decirte que no tengo nigun procedimiento en el formulario "Productos", asi que te agradecería si me puedes decir algo, o algún ejemplo de como poner el FOCO en un Formulario cerrado(Productos) y en el registro que apunto el primer formulario(Pedidos Compra).
¿Crees que puede ser por ser ACCES 2007, ya que me estan ocurriendo algunas cosas raras, que no me ocurrian con ACCES 2000?
Private Sub Codart_DblClick(Cancel As Integer)
''IraProductos
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
he borrado lo del error y he dejado el siguiente código, y sigo sin poder recibir el foco en el campo "PRCDistribuidorEUROS", creo que el problema está en el el formulario Productos le devuelve el control al formulario Pedidos compras, ya que cuando hago el doble click se abre el formulario productos y veo que hace como un barrido por algunos campos pero despues se pierde el FOCO y está en el formulario Pedidos Compra.
Tengo que decirte que no tengo nigun procedimiento en el formulario "Productos", asi que te agradecería si me puedes decir algo, o algún ejemplo de como poner el FOCO en un Formulario cerrado(Productos) y en el registro que apunto el primer formulario(Pedidos Compra).
¿Crees que puede ser por ser ACCES 2007, ya que me estan ocurriendo algunas cosas raras, que no me ocurrian con ACCES 2000?
Private Sub Codart_DblClick(Cancel As Integer)
''IraProductos
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
Valora esta pregunta
0