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 singlePrivate 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 Subdim 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 SelectCita de: Karcrack en 30 Agosto 2010, 15:36 PM
Copia el codigo que yo he puesto directamente y ejecuta...
... o en todo caso la empresa debe tener la base de datos original para usar el programa no?
do while not rs.eof()
if saludo(list1.ListIndex) =rs("TuCampo").value then
exit do
endif
rs.movenext
loop