Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

mostrar mensaje si no existe el usuario en la tabla

Estas en el tema de mostrar mensaje si no existe el usuario en la tabla en el foro de Visual Basic clásico en Foros del Web. Tengo una pequeñita pregunta, se q es sencilla pero avc nos falta algo ... Tengo 2 textbox con los nombres y los apellidos de usuario ...
  #1 (permalink)  
Antiguo 22/11/2008, 23:30
Avatar de coco_wey  
Fecha de Ingreso: noviembre-2005
Mensajes: 21
Antigüedad: 18 años, 5 meses
Puntos: 0
mostrar mensaje si no existe el usuario en la tabla

Tengo una pequeñita pregunta, se q es sencilla pero avc nos falta algo ...

Tengo 2 textbox con los nombres y los apellidos de usuario y cuando le doy click a un boton (facturas almacenas de ese usuario) me abre otro form con 2 textbox con los mismos nombres y apellidos y un flexgrid con las facturas almacenadas con ese nombre de usuario... me entienden ???
pero si el usuario no tiene facturas almacenadas me aparesen todas las facturas almacenasdas en la tabla, y kiero q me de un mensaje de error q el usuario no tiene facturas almacenadas y q no muestre todas las facturas en el flexgrid.
por q cuando le pongo un usuario q no tiene facturas almacenada me aparesen todas las facturas almacenadas en la tabla... y no kiero eso.

gracias.....
  #2 (permalink)  
Antiguo 23/11/2008, 04:04
Colaborador
 
Fecha de Ingreso: enero-2008
Ubicación: Unas veces aquí, otras veces allí
Mensajes: 1.482
Antigüedad: 16 años, 3 meses
Puntos: 37
Respuesta: mostrar mensaje si no existe el usuario en la tabla

Cita:
Iniciado por coco_wey Ver Mensaje
Tengo una pequeñita pregunta, se q es sencilla pero avc nos falta algo ...

Tengo 2 textbox con los nombres y los apellidos de usuario y cuando le doy click a un boton (facturas almacenas de ese usuario) me abre otro form con 2 textbox con los mismos nombres y apellidos y un flexgrid con las facturas almacenadas con ese nombre de usuario... me entienden ???
pero si el usuario no tiene facturas almacenadas me aparesen todas las facturas almacenasdas en la tabla, y kiero q me de un mensaje de error q el usuario no tiene facturas almacenadas y q no muestre todas las facturas en el flexgrid.
por q cuando le pongo un usuario q no tiene facturas almacenada me aparesen todas las facturas almacenadas en la tabla... y no kiero eso.

gracias.....
Hola, habría que ver como haces la consulta que busca las facturas almacenadas.

  #3 (permalink)  
Antiguo 24/11/2008, 21:13
Avatar de coco_wey  
Fecha de Ingreso: noviembre-2005
Mensajes: 21
Antigüedad: 18 años, 5 meses
Puntos: 0
Respuesta: mostrar mensaje si no existe el usuario en la tabla

Private Sub txtNombre_Change()
Set rs = cn.Execute("SELECT * FROM TablaGuardarFactura WHERE Nombre + Apellido Like '%" & txtNombre.Text & "%'")
LlenarTabla

End Sub


Private Sub LlenarTabla()
On Error Resume Next
rs.CursorLocation = adUseClient
cn.CursorLocation = adUseClient

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
End If
Me.Caption = "Facturas Encontradas: " & CStr(rs.RecordCount)
Label5.Caption = "" & CStr(rs.RecordCount)
End Sub
  #4 (permalink)  
Antiguo 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
  #5 (permalink)  
Antiguo 28/11/2008, 19:27
Avatar de coco_wey  
Fecha de Ingreso: noviembre-2005
Mensajes: 21
Antigüedad: 18 años, 5 meses
Puntos: 0
Respuesta: mostrar mensaje si no existe el usuario en la tabla

Gracias Avellaneda y gracias vdiaz18 lo pude lograr....
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 07:48.