HOLA DE NUEVO YO
TENGO QUE IMPRIMIR UN REPORTE DE UNAS OREDENES CON UN ACONSULTA DE SQL Y NO E PODIDO E SACADO TODOS LOS EJEMPLO QUE EXISTEN EN ESTA PAGINA Y NO EN TIENDO PORQUE EL DATA REPORT NO ME FUNCIONA .
ESTE ES EL CODIGO DE IMPRESION.
Private Sub IMPRIMIR_Click()
Dim strSQL As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\CARPETA PUBLICA\VEHICULO\G y W\VEHICULOS.MDB;Persist Security Info=False"
strSQL = "SELECT * From Orden, detalles1 where Orden.IdOrden = detalles1.IdOrden AND Orden.IdOrden = '" & codigo.Text & "'"
cnn1.Open strCnn
Set rstransportador = New ADODB.Recordset
Set rstransportador.ActiveConnection = cnn1
rstransportador.CursorType = adOpenKeyset
rstransportador.LockType = adLockBatchOptimistic
rstransportador.Open strSQL, strCnn, , , adCmdText
'Set DataReport1.DataSource = rstransportador
If Not rstransportador.EOF Then
Set DataReport1.DataSource = rstransportador
DataReport1.Show
Else
MsgBox "Archivo vacío.", vbInformation + vbOKOnly, App.Title
End If
Set rstransportador = Nothing
End Sub
ME SACA EL SIGUIENTE ERROR
ARGUMENTOS INCORRECTOS FUERA DEL INTERVALO PERMITIDO O EN CONFLICTOS CON OTROS.
AYUDEMEN POR FAVOR
GRACIAS