Forum » Programiranje » 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
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"
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"
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | pomoč v MS access - filtriranje, zaščita baze, dodeljevanje uporabnikov in pravicOddelek: Programiranje | 1313 (1159) | dvojka |
» | Visual basic noob questionOddelek: Programiranje | 1558 (1313) | DonMatejo |
» | [VB] Ocena programaOddelek: Programiranje | 1467 (1331) | mtosev |
» | [MS Access] Splošen nasvet!Oddelek: Programiranje | 1901 (1746) | zavajon |
» | Kako do podatka v queryu iz VisualBasicScripta (VBA) v accessu?Oddelek: Programiranje | 2148 (2033) | Fim |