
Consultas SQL
Publicado por isra (2 intervenciones) el 13/10/2008 22:09:51
Hola amigos quisiera que por favor me ayudaran a hacer una consulta SQL.
Lo que pasa es que tengo un boton de busqueda(ComBUSCAR) y quiero que al precionar el boton aparesca el mensaje("Introduce la clave del alumno que buscas") y ya introducida la clave busque y muestre los datos en txtclave, txtnombre,txtGrupo, txtnivel, txtplan, txtmonto, txtrecargo.
Y ya introducida busque los datos y me los muestre en txtclave, txtnombre, txtgrupo, txtnivel, txtplan,txtcosto,txtnota.
El problema es que en txtmonto quiero que aparesca el monto del pago que se realizara por que en un cmbconcepto tengo 3 opciones(Inscripcion, reinscripcion, colegiatura) y cada una tiene un monto diferente
Mi base de datos se llama USAS y la tabla ALTAS en esta tengo dados de alta el mono a pagar de(inscripcion, reinscripcion, colegiatura)
Y anteriormente lo tenia asi pero me causaba muchos errores.
Private Sub ComBUSCAR_Click() 'nos pregunta la clave y ya introducida la busca
r = InputBox("Introduce la clave del alumno que buscas")
Data1.Recordset.FindFirst "CLAVE=" & r
If Combuscar.Value = True Then 'nos manda automaticamente a la caja de texto de la clave
TXTCLAVE.SetFocus
End If
Si me pudieran ayudar se los agradeceria.
Lo que pasa es que tengo un boton de busqueda(ComBUSCAR) y quiero que al precionar el boton aparesca el mensaje("Introduce la clave del alumno que buscas") y ya introducida la clave busque y muestre los datos en txtclave, txtnombre,txtGrupo, txtnivel, txtplan, txtmonto, txtrecargo.
Y ya introducida busque los datos y me los muestre en txtclave, txtnombre, txtgrupo, txtnivel, txtplan,txtcosto,txtnota.
El problema es que en txtmonto quiero que aparesca el monto del pago que se realizara por que en un cmbconcepto tengo 3 opciones(Inscripcion, reinscripcion, colegiatura) y cada una tiene un monto diferente
Mi base de datos se llama USAS y la tabla ALTAS en esta tengo dados de alta el mono a pagar de(inscripcion, reinscripcion, colegiatura)
Y anteriormente lo tenia asi pero me causaba muchos errores.
Private Sub ComBUSCAR_Click() 'nos pregunta la clave y ya introducida la busca
r = InputBox("Introduce la clave del alumno que buscas")
Data1.Recordset.FindFirst "CLAVE=" & r
If Combuscar.Value = True Then 'nos manda automaticamente a la caja de texto de la clave
TXTCLAVE.SetFocus
End If
Si me pudieran ayudar se los agradeceria.
Valora esta pregunta


0