Hallo Leute, ich muss bis morgen unbedingt das Programm fertigkriegen, daher bitte ich dringend um hilfe...
ich habe unten in der zeile wo ich das problem hab es mit
-----
-----
eingerahmt.
ich habe unten in der zeile wo ich das problem hab es mit
-----
-----
eingerahmt.
Visual Basic-Quellcode
- Private Sub SchuelerName_Exit(ByVal Cancel As MSForms.ReturnBoolean)
- Dim cn As ADODB.Connection
- Dim rs As ADODB.Recordset
- Set cn = New ADODB.Connection
- Set rs = New ADODB.Recordset
- cn.Provider = "Microsoft.Jet.OLEDB.4.0"
- cn.Open "Data Source=I:\zeugnis1.mdb"
- rs.Open "SELECT * FROM Schueler", cn, , adLockOptimistic
- Do While rs.EOF = False
- If Me.SchuelerName.Value = rs("SchuelerName").Value Then
- popoklatschen = rs("SchuelerName").Value
- rs.MoveNext
- Else:
- rs.MoveNext
- End If
- Loop
- rs.Close
- If popoklatschen <> "" Then
- rs.Open "Select Schueler_ID FROM Schueler WHERE SchuelerName ='" & popoklatschen & "'"
- ID = rs("Schueler_ID")
- rs.Close
- -------------------------------------------------------------------------------------
- rs.Open "Select * FROM Noten WHERE Schueler_ID = " & ID & ""
- ' Hier tritt nun ein problem auf, obwohl der befehl doch eigentlich richtig ist oder? müsste es doch eigentlich gehe
- 'die ID nimmt er richtig an, das habe ich überprüft nichtdestrotrotz meldet --->
- 'für mind. einen erforderlichen parameter wurde kein wert angegeben..." '
- 'was habe ic hfalsch gemacht bzw. was ist falsch
- -------------------------------------------------------------------------------------
- Me.Deutsch.Value = rs("TM_Deutsch")
- Me.Englisch.Value = rs("TM_Englisch")
- Me.Mathematik.Value = rs("TM_Mathematik")
- Me.Religion.Value = rs("TM_Religion")
- Me.Sport.Value = rs("TM_Sport")
- Me.Fachtheorie.Value = rs("TM_Fachtheorie")
- Me.Fehltage = rs("TM_Fehltage")
- rs.Close
- End If
- cn.Close
- Set rs = Nothing
- Set cn = Nothing
- End Sub