Office - Word, Excel und Co. 9.737 Themen, 41.360 Beiträge

Verfolgung starten Optionen

Access Formular - Beim Öffnen Benutzername und Passwort für

McMorning / 4 Antworten / Flachansicht Nickles

Hi Leute,

nachdem mir beim letzten mal ziemlich flott von euch geholfen wurde, was eine SQL-Abfrage angeht, hoffe ich ihr könnt mir dieses mal auch wieder so schnell helfen.

Also hier meine kleine Frage:
Ich besitze ein Formular unter Access, welches als Datenquelle eine Abfrage besitzt. Nun erscheint beim Start des Formulars eine Dialog-Box, die mich bittet einen Benutzernamen und ein Passwort für den dahinterliegenden SQL-Server anzugeben. Soweit ist ja alles kein Problem, aber ich möchte ganz gerne, das der Benutzer diese Abfrage nicht erhält, sondern eine Anmeldung mit einem bestimmten Benutzernamen und Passwort erfolgt.
Um den Benutzernamen und das Passwort anzugeben, vermute ich mal brauceh ich irgendeine Funktion unter dem Punkt \'Form_Open\', frage ist nur welche?? Muß ich hier mit OpenDatabase arbeiten und die Datenbank ein zweites Mal öffnen oder kann ich hier irgendeinen Parameter á la Username, Password setzten??

Ich hoffe ihr könnt mir helfen!!

MfG
McMorning

bei Antwort benachrichtigen
Das duerfte schwierig werden, zumindest, wenn das Ganze in einer ... neanderix
Andy Kersten McMorning „Access Formular - Beim Öffnen Benutzername und Passwort für“
Optionen

HAllo,

ich hätte da folgenden Forschlag für Dich, ich schicke Dir einmal meine lösung des Problems: Das ist der Zugriffscode für meinen Freund "Bully":

Function BullyStartCode()
Dim meldung, stil, Titel, antwort, text1, eingabe
meldung = "Hallo Andreas@Möchtest Du fortfahren?@"
stil = vbOKOnly + vbOKCancel
Titel = "Anmeldung Bully"
antwort = MsgBox(meldung, stil, Titel)
If antwort = vbOK Then
text1 = "ja"
eingabe = InputBox("Bitte gib den Zugangscode ein@Solltest Du nicht über einen Code verfügen kontakte mich bitte unter R11, ich werde Dich dann freischalten@")
If eingabe = "0868" Then
MsgBox "Willkommen und viel Spaß@mit dieser Datenbank@"
DoCmd.Close
DoCmd.OpenForm "Bestellung-Andreas"
Else
MsgBox "Sie verfügen leider nicht über eine Zugangsberechtigung"
End If
Else
text1 = "nein"
MsgBox "Dann eben nicht"
DoCmd.Quit
End If
End Function


Ich hoffe dies hilft dir weiter

govoyager@web.de

bei Antwort benachrichtigen
Hi Leute, Sorry, aber ich glaube da habt ihr mich ein wenig falsch ... McMorning
Hi McMorning, schau mal in der Systemsteuerung - ODBC-Quellen. An der Stelle ... Stef@n