Autocompletar campos al introducir otro con un formulario

[ariel_buc]

Hola

Desde ya muchas gracias.
Les comento mi problema para ver si alguien me puede ayudar.

Con este código en el evento después de actualizar del campo al escribir el código me completa automáticamente los campos Descripcion y Precio1.

Código vb:

Option Compare Database
 
Private Sub Codigo_AfterUpdate()
On Error GoTo Err_Codigo_AfterUpdate
 
Dim txtFiltro As String
 
    txtFiltro = "Codigo= " & Me!Codigo
 
       
    Me!Detalle1 = DLookup("Descripcion", "ConceptosFC", txtFiltro)
    Me!V_UNITARIO = DLookup("PRECIO1", "ConceptosFC", txtFiltro)
    
Salir_Codigo_AfterUpdate:
    Exit Sub
 
Err_Codigo_AfterUpdate:
    MsgBox Err.Description
    Resume Salir_Codigo_AfterUpdate
 
End Sub
 

[/COLOR]


Ahora bien cree un formulario de búsqueda para completar el campo llamado "Codigo". Funciona sin problemas. Les paso el código.

Pero mi inconveniente es que cuando utilizo el formulario de busqueda no me autocompleta los otros dos campos. Pero cuando lo digito manualmente o copio y pego el valor que me trae el formulario funciona perfecto.

Agradeceria mucho me ayuden ya que llevo bastante intentando solucionarlo y no puedo.

Código vb:

Option Compare Database
Option Explicit
 
Private Sub Form_Load()
    Opción1.Value = False: Opción2.Value = True
    Texto6.SetFocus
End Sub
 
Private Sub Imagen4_Click()
    
    Texto6.SetFocus
If Opción1.Value = True Then
    Lista1.RowSource = "SELECT Codigo, Descripcion FROM ConceptosFC where Descripcion like '" & Texto6.Text & "*' ORDER BY Descripcion ;"
ElseIf Opción2.Value = True Then
    Lista1.RowSource = "SELECT Codigo, Descripcion FROM ConceptosFC where Descripcion like '*" & Texto6.Text & "*' ORDER BY Descripcion;"
End If
End Sub
 
Private Sub Imagen4_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Imagen4.BorderColor = 0
End Sub
 
Private Sub Imagen4_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Imagen4.BorderColor = 16777215
End Sub
 
Private Sub Imagen5_Click()
  
    Texto6.SetFocus
If Opción1.Value = True Then
    Lista1.RowSource = "SELECT Codigo, Descripcion FROM ConceptosFC where Descripcion  like '" & Texto6.Text & "*' ORDER BY Codigo;"
ElseIf Opción2.Value = True Then
    Lista1.RowSource = "SELECT Codigo, Descripcion FROM ConceptosFC where Descripcion  like '*" & Texto6.Text & "*' ORDER BY Codigo;"
End If
End Sub
 
Private Sub Imagen5_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Imagen5.BorderColor = 0
End Sub
 
Private Sub Imagen5_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Imagen5.BorderColor = 16777215
End Sub
 
 
Private Sub Lista1_DblClick(Cancel As Integer)
    Form_DetalleFactura.Codigo = Lista1.ItemData(Lista1.ListIndex)
    DoCmd.Close acForm, "BuscaConceptosFC"
    SendKeys "{ENTER}", True
End Sub
 
Private Sub Opción1_Click()
    Opción2.Value = False
    Texto6.SetFocus
End Sub
 
Private Sub Opción2_Click()
    Opción1.Value = False
    Texto6.SetFocus
End Sub
 
Private Sub Texto6_Change()
If Opción1.Value = True Then
    Lista1.RowSource = "SELECT Codigo, Descripcion FROM ConceptosFC where Descripcion like '" & Texto6.Text & "*' Order By Descripcion;"
ElseIf Opción2.Value = True Then
    Lista1.RowSource = "SELECT Codigo, Descripcion FROM ConceptosFC where Descripcion like '*" & Texto6.Text & "*' Order By Descripcion;"
End If
End Sub
 

[/COLOR]