Uso el vb6 profesional en español, el acerca de.. dice version 8176 VBA:6.0.8169
Form3 12.0.6510.5004
saludos
Form3 12.0.6510.5004
saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú Public logueo as single
Private Sub cmdValidar_Click()
If txtusuario.text="TuUsuario" and txtpass.text="Tupass" Then
logueo = 1
Else
logueo = 2
End If
Unload Me
End Sub
Private Sub Form_Load()
logueo= -1
End Sub
dim f as form
set f=new FormComprobarUsuario
f.show 1
Select Case logueo
case -1
msgbox "Cancelado"
case 1
msgbox "Logueado"
case 2
msgbox "No Logueado"
End Select
Cita de: Karcrack en 30 Agosto 2010, 15:36 PM
Copia el codigo que yo he puesto directamente y ejecuta...
do while not rs.eof()
if saludo(list1.ListIndex) =rs("TuCampo").value then
exit do
endif
rs.movenext
loop