Suscríbete a Aprende-Viendo 5.0
Content
necesito ayudaaaaaaaaaaa
hola amigos quería saber si me podían ayudar a solucionar esto...
Sub consulta()
With rsconsulta
.Open "select * from partidasc", bd, adOpenStatic, adLockOptimistic
End With
End Sub
y yo necesito en 4 combobox mostrar partidas de presupuestos ejemplo combo1.text aqui iria la partida conmbo2.text aqui iria la subpartida combobox3.text y aqui la especifica combo4.text aqui la generica y tengo un textbox donde deberia ir la descripcion
ejemplo
401.01.01.00
ejemplo del código:
Private Sub dtcpart4_Change()
With rsconsulta
.Requery
If idpartida = idpartida + " " & dtcpart.Text + " " & dtcpart2.Text + " " & dtcpart3.Text + " " & dtcpart4.Text Then
'.Find "descripcion='" & Trim(txtdescripcion.DataSource) & "'"
Else
MsgBox "no se encontro la partida, intente de nuevo", vbInformation
End If
End With
End Sub
Sub consulta()
With rsconsulta
.Open "select * from partidasc", bd, adOpenStatic, adLockOptimistic
End With
End Sub
y yo necesito en 4 combobox mostrar partidas de presupuestos ejemplo combo1.text aqui iria la partida conmbo2.text aqui iria la subpartida combobox3.text y aqui la especifica combo4.text aqui la generica y tengo un textbox donde deberia ir la descripcion
ejemplo
401.01.01.00
ejemplo del código:
Private Sub dtcpart4_Change()
With rsconsulta
.Requery
If idpartida = idpartida + " " & dtcpart.Text + " " & dtcpart2.Text + " " & dtcpart3.Text + " " & dtcpart4.Text Then
'.Find "descripcion='" & Trim(txtdescripcion.DataSource) & "'"
Else
MsgBox "no se encontro la partida, intente de nuevo", vbInformation
End If
End With
End Sub
7 respuestas Agrear Respuesta
Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0
Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!
Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados
Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso