Access - PARA JOSELO

Hola de nuevo!!! gracias por tu respuesta !!ha funcionado!!! pero no del todo.... la instruccion :
Me.Lista_Presu.Selected(listaFila) = True
me selecciona la fila y se me ejecuta el código Lista_Presu_Click() que es el que me rellena el subformulario

Private Sub Lista_Presu_Click()
'Columna(0) id_presupuesto--Columna(1) id_empresa_cliente
If Me.SUB_PRESUPUESTOS_CONSULTAS.visible = True Then
Me.SUB_PRESUPUESTOS_CONSULTAS.visible = False
End If
If Me.SUB_DETALLE_PRESUPUESTO.visible = False Then
Me.SUB_DETALLE_PRESUPUESTO.visible = True
End If
numero_fila = Me.Lista_Presu.ListIndex

Call Cambio_Pantallas("presupuestos", numero_fila)
On Error Resume Next
MsgBox listaFila
MsgBox Me.Lista_Presu.Column(0)

Forms!presupuestos!id_p = Me.Lista_Presu.Column(0)
Forms!presupuestos!empresa_grupo = empresa_grupo
Forms!presupuestos!id_empresa_cliente = Me.Lista_Presu.Column(1)

End Sub

hasta ahí va todo de maravilla pero al ejecutar el programa no hace lo que quiero. El problema ahora es que el subformulario sigue estando relleno con los datos de la primera fila (como se carga el subformulario al principio antes de seleccionar alguna fila)
Entonces si me ha ejecutado el código y las variables tienen todas los valores de la fila seleccionada ¿porque sigue cargandome los datos de la primera fila?
¿crees que tengo que refrescar el subformulario? el subformulario se llama SUB_DETALLE_PRESUPUESTO
El subformulario no tiene Form_Load() ¿crees que debo ponerlo?
BUeno millones de preguntas pero solo una respuesta será la solución... a ver si me puedes ayudar.... hasta ahora lo has hecho gracias

Que es lo que hace

Call Cambio_Pantallas("presupuestos", numero_fila)

Eso es una funcion estatica definida en un modulo que me guarda en la variable listaFila el numero de la fila en la que he hecho click
el codigo es:

Public Static Function Cambio_Pantallas(nom_formulario As String, num_fila As Long)
If IsNull(listaFila) Then
listaFila = 0
Else
Select Case nom_formulario
Case "presupuestos"
listaFila = num_fila
Case "contactos"
listaFila = num_fila
End Select
End If
End Function

La uso porque la veriable listaFila no funcionaba como global, pero bueno simplemente sirve para poder tener el numero de la fila donde he hecho click en todos las partes del programa.
saludos

Explicame otra vez paso a paso que es lo que hay que hacer con el formulario y con el subformulario
En lo posible paso a paso.

HOLAAAA
Bueno solo decirte que lo he solucionado poniendo al final del codigo de Lista_Presu_Click() la siguiente linea:

Forms!presupuestos!asunto = Me.Lista_Presu.Column(2)
(asunto es otro campo a rellenar del subformulario)

La verdad es que aún no lo entiendo !!!PERO FUNCIONA!!!
Por cierto gracias por tu gran ayuda... ojalá hubiese mas gente así.
chao