November 25, 2020, 06:46:34

Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!


Laufzeitfehler 94 - Unzulässige Verwendung von Null

Begonnen von WolfHeart320, November 13, 2020, 11:12:14

⏪ vorheriges - nächstes ⏩

WolfHeart320

Hallo zusammen,

ich habe mal wieder ein Problem. Und zwar wird bei mir der Fehler Laufzeitfehler 94 "Unzulässige Verwendung von Null" angezeigt. Dabei dürfte es eigentlich keinen Zugriff auf ein Leeres Feld geben. Vielleicht habe ich mal wieder etwas übersehen. Ich stelle den Code mal ein und hoffe, mir kann einer von euch weiterhelfen.

Private Sub cmdLogIn_Click()

Dim PassOri As String

' Füllen der Felder überprüfen
    If IsNull(cboBenutzername) Then
        MsgBox "Bitte wählen Sie einen Mitarbeiter aus."
        txtPasswort = Null
        cboBenutzername.SetFocus
        cboBenutzername.Dropdown
        GoTo ende
    End If
    If IsNull(txtPasswort) Then
        MsgBox "Bitte geben Sie das Passwort ein."
        txtPasswort = Null
        txtPasswort.SetFocus
        GoTo ende
    End If
   
' Passwortkontrolle
    If txtPasswort <> cboBenutzername.Column(2) Then
        MsgBox "Das eingegebene Passwort ist falsch. Bitte wiederholen Sie Ihre Eingabe."
        txtPasswort = Null
        txtPasswort.SetFocus
        GoTo ende
    End If
   
' User und Recht merken
    ZALKUser = cboBenutzername.Column(1)
    ZALKPw = cboBenutzername.Column(2)
    ZALKRecht = cboBenutzername.Column(3)
    ZALKIaner = cboBenutzername.Column(4)
    ZALKVorname = cboBenutzername.Column(5)


' Hauptmenü öffnen
    DoCmd.OpenForm "frmZALK"
   
' Form schliessen
    DoCmd.Close acForm, Me.Name
   
ende:
End Sub

In dem von mir rot markierten Text tritt der Fehler auf. Wenn ich die drei letzten Anweisungen "rausnehme" funktioniert es.

Danke und Gruß
W.

MzKlMu

Hallo,
die Spaltenzählung einen Kombis beginnt mit 0, hast Du das bedacht ?
Gruß
Klaus

DF6GL

Hallo,


Was sind denn diese "ZALKxxx"-Objekte? Woher kommen und welchen Datentyp haben diese?


Prüfe, ob die Kombifeld_Eigenschaft "Spaltenanzahl" auf 6 steht,


und nutze, falls dann noch erforderlich, die NZ()-Funktion, im Falle von Datentyp TEXT bei den "ZALKxxx" Variablen(?).

    ZALKUser = nz(cboBenutzername.Column(1),"")
    ZALKPw = nz(cboBenutzername.Column(2),"")
    ZALKRecht = nz(cboBenutzername.Column(3),"")
    ZALKIaner = nz(cboBenutzername.Column(4),"")
    ZALKVorname = nz(cboBenutzername.Column(5),"")

WolfHeart320

Moin,

ich bedanke mich recht herzlich für die schnelle Hilfestellung.

Bezüglich der einzelnen Objekten handelt es sich um eine Vorgabe. Da wir gerade dabei sind, vier DB zusammenzuführen, muss man sich manchmal an Deklarationen vorheriger halten. Aber die waren auch alle richtig eingebunden. Habe einfach vergessen, dass ich die Spaltenzahl erhöhen muss. Sitze seit ein paar Wochen an dem Teil und manchmal verliert man einfach mal die Übersicht.

Jetzt nur noch eine Dumme Frage; jetzt zeigt das Kombinationsfeld alle Spalten aus der Liste an, wie kann man das nochmal ändern? So, dass nur noch der Username sichtbar ist?

Sorry, bin gerade etwas durch und habe seit ca. 15 Jahren nichts mehr in dieser Richtung gemacht


WolfHeart320

Super! Danke! Das hat meinem alten Hirn gefehlt! Einfach mal wieder etwas in die Welt der DB´s abtauchen!