Suscríbete a Aprende-Viendo 5.0
Content
Generar Reporte con solo 2 Texbox y un Botón..... Es URGENTEEEE... Plissssss
DIOSSSSS NECESITO UNA AYUDITA, SE QUE DEBE SER FACIL.... PERO NOSE COMO APLICARLO.. Tengo un formulario a lli realizao 2 reportes, uno es para consultar enfermedades y despliega los datos en una grilla y da el reporte perfectamente, hasta alli va bien y la otra parte es para imprimir las direcciones de las personas q presentan enfermedades aqui yo quiero hacer el reporte segun el numero de planillas, en texbox colocaria P001 y en al otro texbox colocaria P020 y obtener solo el reporte de las planillas q desee.... POR FAVOR ES URGENTEEEEE EN UN MES DEFIENDO MI PROYECTO SINO TENGO TODO LISTO NO ME GRADUOOOOO SOLO ME FALTA ESTO...
La discusión se ha resuelto.
Respuesta Aceptada
4 respuestas Agrear Respuesta
-
Hola Jose Ramirez, Se que es por rangos, asi como se trabajan los de fechas pero en este caso es con textbox y el campo con q se relaciona es de tipo texto ya q alli se guarda los codigos generados, ejemplo: P001 y sucesivamente.. en mi botón aplique el siguiente código pero no me hace nada, aqui se los dejo para q me ayuden en q estoy fallando pliiiisssssssssssss.............
2 textbox llamados de la siguiente manera: planilladesde.text y planillahasta.text (donde se deben introducir las planillas a buscar)
Private Sub CmdImp_Click()
'''''''''conexion a BD'''''''''''''' se q se debe hacer por el load, tambien se puede realizar xaqui'
Dim Base As New ADODB.Connection
Dim ubi_geografica As New ADODB.Recordset
Dim buscar As String '''''variable'''''''
Base.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\consejovillas.mdb;Persist Security Info=False" ''''Tuta a BD''''
''''''validar campos''''
If planilladesde.Text = "" Then MsgBox "¡Debe introducir los Números de Planilla que desea Imprimir!", vbInformation, "Aviso": planilladesde.SetFocus: Exit Sub
If Base.State = 1 Then Base.Close ''abrir tabla en caso de haberla cerrado'''
If planilladesde "" And planillahasta "" Then
Base.Open "Select * From ubi_geografica Where cod_planilla Between " & planilladesde & " And " & planillahasta & "; ", Base, adOpenStatic, adLockOptimistic
If ubi_geografica.RecordCount > 0 Then
planilladesde = ubi_geografica.Fields(cod_planilla)
Else
MsgBox "¡No se han encontrado registros coincidentes con los datos ingresados!"
DataDirecciones.WindowState = 2
DataDirecciones.Show
End If
End If
End Sub
Espero una Ayuditaaaaa Plisssssss
Tambien les dejo el archivo adjunto -
José Ramirez, de corazón muchísimas gracias por tan grande aporte, de verdad, que algo tan simple yo no halla caído en cuenta.... Mil gracias por su colaboración y por su aporte de conocimientos en este medio...
A Jose Ramirez le gusta este post.
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