urgente ayuda

bbch
15 de Enero del 2004
Hola Buen dia, espero me puedan ayudar pues tengo un problemita quiero imprimir un registro que almaceno en una tabla. busco un registro y me presenta todos los registro, Como Pedo hacerlo? si tienen algun codigo de ejemplo o semejante a como resolverlo se los agradeceria.
yo tengo esto, si alguien me ayudara se lo agradeceria con mucho gusto




Private Sub mnuImprime_Click()
With dtCartaPorte.Recordset
.MoveFirst
Do While Not .EOF
.MoveNext
Loop
.FindFirst "NumCarta=" & Val(InputBox("UNIDAD A CONSULTAR"))
If .NoMatch = True Then
MsgBox "LA UNIDAD NO EXISTE"
Else
CrystalReport1.Action = 1








End If
End With



End Sub

mena
15 de Enero del 2004
bueno yo no estoy muy familiarizado con el crystal report porque siempre utilizo el datareport pero creo que tienes antes de abrir el reporte establecer una formula algo como: crystalreport1.formula="{edad}>=0" o algo asi

Baetolom
15 de Enero del 2004
Creo que tu código tiene un error, porque viando el Do While, lo que va a hacer es un loop hazta llegar al final de la tabla y luego ejecuta el find, pero en el últio registro.
Prueba con este código a ver como te va:
Dim Criterio As String
NumCarta=InputBox("UNIDAD A CONSULTAR")
If NumCarta = "" Then Exit Sub
Criterio = NumCarta
DtCartaPorte.Recordset.MoveNext
If Not DtCartaPorte.Recordset.EOF Then
DtCartaPorte.Recordset.Find Criterio
End If
If DtCartaPorte.Recordset.EOF Then
DtCartaPorte.Recordset.MoveFirst
DtCartaPorte.Recordset.Find Criterio
If DtCartaPorte.Recordset.EOF Then
DtCartaPorte.Recordset.MoveLast
MsgBox "No se encuentra el Registro", 48, "Atención"
End If
End If