Private Sub Login_Click()
If Username = "admin" And Password = "admin" Then
MsgBox " CESTITAMO uneli ste ispravne Login podatke , sada *** IMATE PRISTUP PROGRAMU ***", vbInformation, "Login obavestenje"
DoCmd.Close
DoCmd.OpenForm "Forma - MAGACIN ( kada roba dolazi )"
ElseIf Username = "admin" And Password <> "admin" Then
MsgBox " Uneli ste ispravan *** Username *** ali password vam je pogresan", vbCritical, "Login obavestenje"
ElseIf Username <> "admin" And Password = "admin" Then
MsgBox " Uneli ste ispravan *** Password *** ali Username vam je pogresan", vbCritical, "Login obavestenje"
Else
End If
End Sub
Ovo je kod koji sam napravio u Access-ovom VB-u.Radi se o Login applikaciji.Ovaj gore kod 100% je ispravan.
U Login ( formi ) postoje 3 stvari : 2 Labela od kojih prvi ima ime Username a drugi Password , 3 stvar je dugme Button kome je dodeljno ime Login ( a labelima su dodeljena imena Username i Password ).
Sada se vi sigurno pitate koja sam ja bud... ako mi ovaj kod radi sto sam postavljao post.
Problem je u tome sto treba nesto jos da se doda.
To nesto je : ne znam kako to da resim.
Treba program-VB kod da radi sledece .
Da ako i poslen 3 klika misa na button-Login ( misli se na - 1 klik je uneo username i pasword i klikno to je jedan , pa to ponovo to je sada drugi klik ...) da ako poslen treceg klika ukljucujuci i taj 3 klik ne unese USERNAME i PASSWORD ispravan koji je zadat kodom ( on glasi admin ) treba da pokrene nesto.
To nesto je funkcija shell.
Kod je sledeci : shell ( shutdown -s) - ovo je funkcija za gasenje racunara .
Uglavnom nije bitno moglo je tu i nesto drugo da stoji, ne mora samo funkcija shell.Moga sam i nesto drugo da stavim..
Stvarno mi ovo hitno treba pa vas molim da mi pomognete
If Username = "admin" And Password = "admin" Then
MsgBox " CESTITAMO uneli ste ispravne Login podatke , sada *** IMATE PRISTUP PROGRAMU ***", vbInformation, "Login obavestenje"
DoCmd.Close
DoCmd.OpenForm "Forma - MAGACIN ( kada roba dolazi )"
ElseIf Username = "admin" And Password <> "admin" Then
MsgBox " Uneli ste ispravan *** Username *** ali password vam je pogresan", vbCritical, "Login obavestenje"
ElseIf Username <> "admin" And Password = "admin" Then
MsgBox " Uneli ste ispravan *** Password *** ali Username vam je pogresan", vbCritical, "Login obavestenje"
Else
End If
End Sub
Ovo je kod koji sam napravio u Access-ovom VB-u.Radi se o Login applikaciji.Ovaj gore kod 100% je ispravan.
U Login ( formi ) postoje 3 stvari : 2 Labela od kojih prvi ima ime Username a drugi Password , 3 stvar je dugme Button kome je dodeljno ime Login ( a labelima su dodeljena imena Username i Password ).
Sada se vi sigurno pitate koja sam ja bud... ako mi ovaj kod radi sto sam postavljao post.
Problem je u tome sto treba nesto jos da se doda.
To nesto je : ne znam kako to da resim.
Treba program-VB kod da radi sledece .
Da ako i poslen 3 klika misa na button-Login ( misli se na - 1 klik je uneo username i pasword i klikno to je jedan , pa to ponovo to je sada drugi klik ...) da ako poslen treceg klika ukljucujuci i taj 3 klik ne unese USERNAME i PASSWORD ispravan koji je zadat kodom ( on glasi admin ) treba da pokrene nesto.
To nesto je funkcija shell.
Kod je sledeci : shell ( shutdown -s) - ovo je funkcija za gasenje racunara .
Uglavnom nije bitno moglo je tu i nesto drugo da stoji, ne mora samo funkcija shell.Moga sam i nesto drugo da stavim..
Stvarno mi ovo hitno treba pa vas molim da mi pomognete