Problema con DataReport
Hola al foro
Tengo un problema con un DataReport; estoy trabajando con codigo Dao, el codigo es el siguiente:
'llamo al DataReport desde un form que se conecta con un Command Data (AdoDc)
Data1.RecordSource = "SELECT Abonado.CodAbonado, Abonado.Apellidos + ' ' + Abonado.Nombre " & _
"AS Ap_Nom, Abonado.D1 + ' ' + Abonado.D2 + ' ' + Abonado.D3 + ' ' + Abonado.D4 " & _
"+ ' ' + Abonado.D5 + ' ' + Abonado.D6 AS Direccion, " & _
"Orden.N_Orden FROM Abonado LEFT JOIN Orden ON Abonado.CodAbonado=" & _
"Orden.CodAbonado"
Data1.Refresh
With RptDireccion
.DataMember = vbNullString
Set .DataSource = Data1
With .Sections("Sección1").Controls
With .Item("txtCodAbonado")
.DataMember = vbNullString
.DataField = "CodAbonado"
End With
With .Item("txtAp_Nom")
.DataMember = vbNullString
.DataField = "Ap_Nom"
End With
With .Item("txtDireccion")
.DataMember = vbNullString
.DataField = "Direccion"
End With
End With
With .Sections("Sección2").Controls
With .Item("txtN_Orden")
.DataMember = vbNullString
.DataField = "N_Orden"
End With
End With
.Show
End With
El error me da cuando hago la conección con la seccion2
Como puedo hacer para que este DataReport pueda conectarse con la sección2?
Atte.
Rafael Carpio H.
Tengo un problema con un DataReport; estoy trabajando con codigo Dao, el codigo es el siguiente:
'llamo al DataReport desde un form que se conecta con un Command Data (AdoDc)
Data1.RecordSource = "SELECT Abonado.CodAbonado, Abonado.Apellidos + ' ' + Abonado.Nombre " & _
"AS Ap_Nom, Abonado.D1 + ' ' + Abonado.D2 + ' ' + Abonado.D3 + ' ' + Abonado.D4 " & _
"+ ' ' + Abonado.D5 + ' ' + Abonado.D6 AS Direccion, " & _
"Orden.N_Orden FROM Abonado LEFT JOIN Orden ON Abonado.CodAbonado=" & _
"Orden.CodAbonado"
Data1.Refresh
With RptDireccion
.DataMember = vbNullString
Set .DataSource = Data1
With .Sections("Sección1").Controls
With .Item("txtCodAbonado")
.DataMember = vbNullString
.DataField = "CodAbonado"
End With
With .Item("txtAp_Nom")
.DataMember = vbNullString
.DataField = "Ap_Nom"
End With
With .Item("txtDireccion")
.DataMember = vbNullString
.DataField = "Direccion"
End With
End With
With .Sections("Sección2").Controls
With .Item("txtN_Orden")
.DataMember = vbNullString
.DataField = "N_Orden"
End With
End With
.Show
End With
El error me da cuando hago la conección con la seccion2
Como puedo hacer para que este DataReport pueda conectarse con la sección2?
Atte.
Rafael Carpio H.
