Cita:
Iniciado por spiderman78 
Que tal como estan, tengo un problemita, lo q estoy tratando de hacer es tengo un formulario con 6 textbox en los cuales escribo y selecciono cierta informacion para ser mas explicito es una receta, lo q neceito hacer es imprimir esos datos en un data report q ya tengo diseñado pero no se como hacer el enlace, investigando llegue a este codigo pero no me funciona
Código:
Private Sub ConsultaReceta()
Dim sql As String, cadena As String
Call VisualizarReceta
cadena = Text1(3).Text
sql = "SELECT receta,fecha,nombre,apellidos,proxima FROM receta WHERE idpaciente Like '" & cadena & "' "
Set receta1 = New ADODB.Recordset
receta1.Open sql, BD, adOpenKeyset, adLockOptimistic
End Sub
Private Sub Imprimir()
Call ConsultaReceta
DataReceta.Sections("section1").Controls.Item("Text2").DataField = "receta"
DataReceta.Sections("section1").Controls.Item("text3").DataField = "fecha"
DataReceta.Sections("section1").Controls.Item("text4").DataField = "nombre"
DataReceta.Sections("section1").Controls.Item("text5").DataField = "apellidos"
DataReceta.Sections("section1").Controls.Item("text6").DataField = "proxima"
Set DataReceta.DataSource = receta1
DataReceta.Show
End Sub
y la verda ya no tengo idea de como podria solucionar este problema.......... de antemano muchas gracias por las respuestas
saludos
Para poder responder bien, deberías sustituir "pero no me funciona" por el motivo por el cual no funciona (da error, no salen los datos deseados..)
De todas formas ahí van unas observaciones:
1º Si el campo idpaciente es numérico, le tienes que quitar las comillas simples a la variable "cadena"
2º Si idpaciente es único, es mas efectivo utilizar el operador de igual que Like.
3º Se da por hecho que la variable receta1 está declarada para todo el módulo.
4º Antes ( y no después) de asignar los campos a la propiedad DataField le tienes que asignar al DataReport el recordset.
Código:
Set DataReceta.DataSource = receta1
With DataReceta.Sections("section1").Controls
.Item("Text2").DataField = "receta"
.Item("Text3").DataField = "fecha"
.Item("Text4").DataField = "nombre"
' .....
End With
DataReceta.Show
Asumiendo que tu DataReport está en inglés.
