Citat:
Public brpok as integer ' to stavis kad si u kodu pod General (.... na vrh programa)
Private Sub Login_Click()
brpok = brpok + 1
If brpok > 3 Then
MsgBox "Adioooooooooo"
tu dolje pozoveš shell funkciju ili
DoCmd.Quit ' zatvori ti samo tvoj program , ne gasi komp
End If
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
Trtko HVALA TI PUNO OVO JE ONO STO SAM TRAZIO .
Stvarno ne znam ljudi sto ste vi gubili vreme na resavanju moga porblema kada ne zante ni ko sam a ni .... u svakom slucaju lepo je znati da ima jos uvek ljudi koji zele da pomognu bez ikakve nadoknade.
Verujes li ti meni da sam ja nesto slicno ovako pukusavao ali nije mi radilo.Ja ovo umem da isprogramiram u Visual Basicu ali u Accessovom 2002 VB imam problema.Tvoj kod je se malo razlikovao od moga - brate ja mora da sam bio pod uticajem alkohola kada meni nije radilo - ili mi je radilo pa ja sam prividjao da mi ne radi :) .
Hvala ti jos jednom.
rstevic Izvinjavam ti se sto si svoje vreme potrosio na resavanje moga problema ali posto sam upalio temu i video 2 odgovra,tvoj i Tvrtkov.Nejegov je bio mnogo slican necemu sto sam ja pokusavao a malo je kraci od dvoga i laksi meni za razumevanje i pamcenje - zbog toga sam iskoristio njegov.Kada sam njegov kod ubacio u bazu i video da radi nisam hteo da isprobavam tvoj da mi se nesto ne bi zeznulo.
U SVAKOM SLUCAJU HVALA VAM STO STE MI POMOGLI A I ONIMA KOJI SU GLEDALI TEMU ALI OCITO DA TI KOJI SU GLEDALI TEMU SU POCETNICI U VB PROGRAMIRANJU KAO I JA PA NE UMEJU DA URADE.
Pozdrav.