Hallo Leute,
ich habe ein kleines Problem mit meiner Datenbank.
Ich habe eine Tabelle User, mit den Feldern UNR, Username, Abteilung. Ich lese in der Datenbank den Windowsbenutzernamen aus. Nun hätte ich gern, wenn der Benutzer noch nicht in der Tabelle User vorhanden ist, dass er das Formular "User" öffnet, damit sich der Benutzer anlegen kann.
If DLookup("UNR", "USER", "UNR" <> fncUsername) Then
DoCmd.OpenForm "USER", , , , acFormAdd, acDialog
Else
DoCmd.OpenForm "Auftrag", , , , acFormAdd
End If
End Sub
Ist er bereits vorhanden, soll ganz normal das Formular "Auftrag" geöffnet werden.
Leider kenne ich mich mit VBA nicht so gut aus..
Hi,
das ist weniger ein VBA-Problem als eine Frage der Logik. ;-)
Du musst nach dem User-Account suchen und das Ergebnis prüfen, also ob gefunden oder nicht.
So könnte aussehen:
If IsNull(DLookup("UNR", "USER", "UNR = '" & fncUsername & "'")) Then