Jump to content
hiddenmafia

ANSWERED Búsqueda de datos en formulario

Recommended Posts

Buenos días,

Con orgullo les presento mi gran avance en el formulario que he estuve desarrollando.

me siento muy complacido con todo lo que he aprendido y puesto en producción.

Sin embargo, he llegado a un punto donde me encuentro con una dificultad y es la siguiente:

89d2c011157223805cefbd867b77c52co.jpg

Para explicar un poco el funcionamiento de mi base.

En el cuadro "1" se realiza el ingreso de la solicitud, y queda almacenado en la base de datos con un "#de solicitud" que me sirve de consecutivo para realizar la busqueda posterior 

En el cuadro "2" se realiza la actualización de los demás campos sobre el # de solicitud antes registrado.

Hasta acá todo esta perfecto, ahora mi dificultad esta en el cuadro "3".

En el Cuadro "3" se realiza una búsqueda por estado de solicitud y por Sub/Cto/Equipo del "#de solicitud". Lo que me esta sucediendo ahora es el siguiente problema:

- No logro hacer que una vez seleccione el "Sub/Cto/Equipo" me traiga el # de la solicitud de dicha selección y lo ponga en el TextBox "N_Solicitud" el cual ya esta programado para que busque ese numero y rellene todos los TextBox y ComboBox del formulario.

Link Archivo:

Solicitud Móviles MT

Espero haberme hecho entender muy bien,

Espero que alguno de los genios que están aquí logre ayudarme,

De antemano muchas gracias por la ayuda que puedan prestarme.

Share this post


Link to post
Share on other sites

Saludos @hiddenmafia, NO revise mucho, pero con estos pequeños cambios logras lo que quieres

 

cambia el código del combobox 11 por este otro

Private Sub ComboBox11_Change()

ComboBox10.Clear
Set ES_circuito = BD.Columns("Z").Find(ComboBox11, , , xlWhole)
If Not ES_circuito Is Nothing Then
   x_Busco = ES_circuito.Row
   Do Until BD.Range("Z" & x_Busco) <> ES_circuito
      If ComboBox11.Value = "" Then Exit Do
      ComboBox10.AddItem BD.Range("A" & x_Busco) & "- " & BD.Range("D" & x_Busco)
      ComboBox10.List(ComboBox10.ListCount - 1, 1) = BD.Range("C" & x_Busco)
      ComboBox10.List(ComboBox10.ListCount - 1, 2) = BD.Range("B" & x_Busco)
      x_Busco = x_Busco + 1
   Loop
End If

End Sub

allí solo cambié la linea "ComboBox10.AddItem BD.Range("A" & x_Busco) & "- " & BD.Range("D" & x_Busco)", para agregar el numero de solicitud al inicio

luego en el código del combobox 10, cambia el código por este otro

Private Sub ComboBox10_Change()
    N_solicitud.Text = ""
    If ComboBox10.ListIndex = -1 Then Exit Sub
    
    N_solicitud.Text = Split(ComboBox10.List(ComboBox10.ListIndex, 0), "-")(0)
End Sub

aquí en esencia, se envía a N_solicitud el numero de solicitud que está antes del guion "-" en la linea seleccionada del combobox

 

Suerte

Edited by bigpetroman

Share this post


Link to post
Share on other sites
Hace 1 hora, bigpetroman dijo:

Saludos @hiddenmafia, NO revise mucho, pero con estos pequeños cambios logras lo que quieres

 

cambia el código del combobox 11 por este otro

Private Sub ComboBox11_Change()

ComboBox10.Clear
Set ES_circuito = BD.Columns("Z").Find(ComboBox11, , , xlWhole)
If Not ES_circuito Is Nothing Then
   x_Busco = ES_circuito.Row
   Do Until BD.Range("Z" & x_Busco) <> ES_circuito
      If ComboBox11.Value = "" Then Exit Do
      ComboBox10.AddItem BD.Range("A" & x_Busco) & "- " & BD.Range("D" & x_Busco)
      ComboBox10.List(ComboBox10.ListCount - 1, 1) = BD.Range("C" & x_Busco)
      ComboBox10.List(ComboBox10.ListCount - 1, 2) = BD.Range("B" & x_Busco)
      x_Busco = x_Busco + 1
   Loop
End If

End Sub

allí solo cambié la linea "ComboBox10.AddItem BD.Range("A" & x_Busco) & "- " & BD.Range("D" & x_Busco)", para agregar el numero de solicitud al inicio

luego en el código del combobox 10, cambia el código por este otro

Private Sub ComboBox10_Change()
    N_solicitud.Text = ""
    If ComboBox10.ListIndex = -1 Then Exit Sub
    
    N_solicitud.Text = Split(ComboBox10.List(ComboBox10.ListIndex, 0), "-")(0)
End Sub

aquí en esencia, se envía a N_solicitud el numero de solicitud que está antes del guion "-" en la linea seleccionada del combobox

 

Suerte

@bigpetroman Buenas tardes,

de antemano muchas gracias! 

Pense en la misma solución hace unos minutos atrás, (Lo resolvimos juntos? jajaj no se...) Pero muchas gracias.

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png