24/11/2008, 22:45
|
| | | Fecha de Ingreso: octubre-2008
Mensajes: 24
Antigüedad: 15 años, 7 meses Puntos: 0 | |
| Respuesta: mostrar mensaje si no existe el usuario en la tabla
SALUDOS...
PRUEBA DE ESTA MANERA :
If rs.RecordCount <> 0 Then
With MSFlexGrid1
.Rows = 1
.ColWidth(1) = 1300 'Num_Factura
.ColWidth(2) = 1200 'Fecha
.ColWidth(3) = 2000 'Descripcion
.ColWidth(4) = 1200 'Precio
.ColWidth(5) = 1200 'Total_Gral
.ColWidth(6) = 1700 'Tipo De Pago
.ColWidth(7) = 1700 'Doctor
Dim i As Integer
For i = 1 To rs.RecordCount
MSFlexGrid1.AddItem vbTab & rs("C_Num_Factura").Value & vbTab & rs("C_Fecha").Value & vbTab & rs("Descripcion").Value & vbTab & rs("Precio").Value & vbTab & rs("C_Total_Gral").Value & vbTab & rs("C_Tipo_Pago").Value & vbTab & rs("C_Doctor").Value
rs.MoveNext
Next i
End With
Else
MsgBox "Cliente sin facturas"
End If |