Moin ihr lieben, ich hoffe einer von euch kann mir weiter helfen, weil ich komme überhaupt nicht mehr weiter.
Ich muss ein Quiz erstellen in Access mit SQL Verbindung.
Ich habe bereits Login-, Registration-, Host_Game-, Join_Game- Forms.
Hier der Code:
Für Login
Private Sub Befehl17_Click()
If IsNull(Me.Username) Then
MsgBox "Bitte Username eingeben.", vbInformation, "Benutzername benötigt"
Me.Username.SetFocus
ElseIf IsNull(Me.Passwort) Then
MsgBox "Bitte Passwort eingeben", vbInformation, "Passwort benötigt"
Me.Passwort.SetFocus
Else
If (IsNull(DLookup("Username", "dbo_UserTest3", "Username ='" & Me.Username.Value & "'"))) Or _
(IsNull(DLookup("Passwort", "dbo_UserTest3", "Passwort='" & Me.Passwort.Value & "'"))) Then
MsgBox "Falsche Username oder Passwort."
Else
MsgBox "Username und Passwort korrekt"
Dim LogName As String
LogName = Me.Username
DoCmd.OpenForm "Menü Form", , , , , , Username & vbTab
DoCmd.Close acForm, "Login"
End If
End If
End Sub
Für Registration
Private Sub Befehl17_Click()
DoCmd.SetWarnings False
Dim Sql As String
Dim rs As DAO.Recordset
Sql = "Select Username from dbo_UserTest1 where Username '" & Me.Username & "', '" & Me.Passwort & "' "
On Error GoTo weiter
Set rs = CurrentDb.OpenRecordset(Sql)
If rs!Username = Null Then
weiter:
DoCmd.RunSQL "Insert Into dbo_UserTest3 (Username, Passwort) values ('" & Me.Username & "', '" & Me.Passwort & "')"
Else
message = MsgBox("Schon vorhanden!", vbOKOnly)
End If
DoCmd.SetWarnings True
End Sub
Für Hosten
Option Compare Database
Private Sub Befehl12_Click()
Dim Sql As String
Dim rs As DAO.Recordset
Dim sql1 As String
Dim rs1 As DAO.Recordset
DoCmd.SetWarnings False
Sql = "Select Username from dbo_UserTest3 where Username = '" & Me.Username & "' "
Set rs = CurrentDb.OpenRecordset(Sql)
sql1 = "Select Spielname from dbo_GameTest1 where Spielname = '" & Me.Spielname & "'"
On Error GoTo weiter
Set rs1 = CurrentDb.OpenRecordset(sql1)
If rs1!Spielname = Null Then
weiter:
DoCmd.RunSQL "Insert Into dbo_GameTest1 (Spielname, Spieler1) values ('" & Me.Spielname & "', '" & Me.Username & "')"
DoCmd.OpenForm "Spiel1"
Forms!Spiel1!Spieler1 = Me.Username
Forms!Spiel1!Spiel = Me.Spielname
DoCmd.Close acForm, "Spieler1"
Else
message = MsgBox("bereits vorhanden", vbOKOnly)
End If
DoCmd.SetWarnings True
End Sub
und Für joinen
Private Sub Befehl34_Click()
Dim Sql As String
Dim rs As DAO.Recordset
Dim sql1 As String
Dim rs1 As DAO.Recordset
DoCmd.SetWarnings False
Sql = "Select Username from dbo_UserTest3 where Username = '" & Me.Username & "' "
Set rs = CurrentDb.OpenRecordset(Sql)
' DoCmd.RunSQL "Update dbo_GameTest1 set Spieler2 = '" & Me.Username & "' where Spielname='" & Me.Spielname & "'" '
sql1 = "Select Spielname from dbo_GameTest1 where Spielname = '" & Me.Spielname & "'"
Set rs1 = CurrentDb.OpenRecordset(sql1)
DoCmd.RunSQL "Insert Into dbo_GameTest1 (Spielname, Spieler2) values ('" & Me.Spielname & "', '" & Me.Username & "')"
DoCmd.OpenForm "Spiel2"
Forms!Spiel2!Spieler2 = Me.Username
Forms!Spiel2!Spiel = Me.Spielname
DoCmd.Close acForm, "Spieler2"
End Sub
Ich brauche jetzt noch das Quiz an sich und Warte-Forms für Spieler2, da man das Spiel gleichzeitig spielen muss.
Kann mir da irgendwer helfen oder beispiel quellcode mir teilen?
|