☰

» »

If stavki

If stavki

neki12345 ::

Živjo,

Rabil bi pomoč pri naslednjem if stavku. Kako ga pravilno sestaviti.

If IsNull(Me.txtUsername) Then
MsgBox "Prosimo vnesite uporabnisko ime", vbInformation, "Uporabnisko ime je obvezno"
Me.txtUsername.SetFocus
ElseIf IsNull(Me.txtPassword) Then
MsgBox "Prosim vnesite geslo", vbInformation, "Geslo je obvezno"
Me.txtPassword.SetFocus
Else
If (IsNull(DLookup("[Username]", "[Uporabnik]", "[Username] = '" & Me.txtUsername & "'")) Or IsNull(DLookup("[Password]", "[Uporabnik]", "[Password] = '" & Me.txtPassword & "'"))) Then
MsgBox "Nepravilno uporabnisko ime ali geslo"
Else
MsgBox "Uporabnisko ime in geslo sta pravilna"
DoCmd.Close
DoCmd.OpenForm "Glavna_forma_Administrator"
End If
If (IsNull(DLookup("[Username]", "[Admini]", "[Username] = '" & Me.txtUsername & "'")) Or IsNull(DLookup("[Password]", "[Admini]", "[Password] = '" & Me.txtPassword & "'"))) Then
MsgBox "Nepravilno uporabnisko ime ali geslo"
Else
MsgBox "Uporabnisko ime in geslo sta pravilna"
DoCmd.Close
DoCmd.OpenForm "Glavna_forma_Administrator"
End If
End If

Hvala

shadeX ::

Za začetek povej kaj hočeš da program naredi. Kot drugo - od leve proti desni v oknu kjer pišeš, imaš plav znakec (7. po vrsti ), s katerim označiš tvojo kodo ter tako jo človek lažje prebere. 

Uporabi jo.

Zgodovina sprememb…

  • spremenil: shadeX ()

AndrejS ::

Me.txtUsername verjetno ne bo nikoli null.... lahko uporabiš prazen string - Me.txtUsername="" ali String.IsNullOrEmpty(Me.txtUsername)

Yacked2 ::

Mogoče ti manjka zraven .Text ? npr: Me.txtUsername.Text ?
Korak naprej ni vedno ustrezen...sploh če si na robu prepada!

neki12345 ::

Gre za login formo v accessu.

Od tu naprej, bi želel da bi mi program, gledal v dve tabeli naenkrat (Uporabnik, Admini). Sedaj mi najprej gleda prvo tabelo in šele potem drugo.


If (IsNull(DLookup("[Username]", "[Uporabnik]", "[Username] = '" & Me.txtUsername & "'")) Or IsNull(DLookup("[Password]", "[Uporabnik]", "[Password] = '" & Me.txtPassword & "'"))) Then
MsgBox "Nepravilno uporabnisko ime ali geslo"
Else
MsgBox "Uporabnisko ime in geslo sta pravilna"
DoCmd.Close
DoCmd.OpenForm "Glavna_forma_Administrator"
End If
If (IsNull(DLookup("[Username]", "[Admini]", "[Username] = '" & Me.txtUsername & "'")) Or IsNull(DLookup("[Password]", "[Admini]", "[Password] = '" & Me.txtPassword & "'"))) Then
MsgBox "Nepravilno uporabnisko ime ali geslo"
Else
MsgBox "Uporabnisko ime in geslo sta pravilna"
DoCmd.Close
DoCmd.OpenForm "Glavna_forma_Administrator"

AndrejS ::

Lahko bi razširil tabelo uporabnik in dodal isAdmin

Vredno ogleda ...

TemaSporočilaOglediZadnje sporočilo
TemaSporočilaOglediZadnje sporočilo
»

pomoč v MS access - filtriranje, zaščita baze, dodeljevanje uporabnikov in pravic

Oddelek: Programiranje		101323 (1169) dvojka
»

Visual basic noob question

Oddelek: Programiranje		111561 (1316) DonMatejo
»

[VB] Ocena programa

Oddelek: Programiranje		121475 (1339) mtosev
»

[MS Access] Splošen nasvet!

Oddelek: Programiranje		71908 (1753) zavajon
»

Kako do podatka v queryu iz VisualBasicScripta (VBA) v accessu?

Oddelek: Programiranje		112155 (2040) Fim

Več podobnih tem