Hallo zusammen
Ich hoffe ich kann mich verständlich Ausdrücken da ich ein Accessneuling bin.
Ich hab da ein Problem ich habe in einem Formular verschiedene Textfelder wo ich bestimmte Daten eintragen muß für ein Projekt.
Habe mich mal daran versucht und schon mal was erstellt es wird leider kein fehler angezeigt aber funktionieren tut es auch nicht meine VBA sieht so aus:
Option Compare Database
Private Sub InsertInto_Eingabe_Click()
Dim Textbox1 As String
Dim Textbox2 As String
Dim Textbox3 As String
Dim Textbox4 As String
Dim Textbox5 As String
Dim strSQL As String
Projektnummer.SetFocus
Textbox1 = Projektnummer.Text
OCNummer.SetFocus
Textbox2 = OCNummer.Text
geplantesStart_Datum.SetFocus
Textbox3 = geplantesStart_Datum.Text
geplantesEnde_Datum.SetFocus
Textbox4 = geplantesEnde_Datum.Text
reseviertfürProjekt.SetFocus
Textbox5 = reserviertfürProjekt.Text
strSQL = "InsertIntoProjekt(Projektnummer,OCNummer,geplantesStart_Datum,geplantesEnde_Datum,reserviertfuerProjekt) Values ('" & Forms![Messgeraete_TemperaturfuerProjekt]![Projektnummer] & "','" & Forms![Messgerate_TemperaturfuerProjekt]![OCNummer] & "','" & Forms![Messgeraete_TemperaturfuerProjekt]![geplantesStart_Datum] & "','" & Forms![Messgeraete_TemperaturfuerProjekt]![geplantesEnde_Datum] & "','" & Forms![Messgraete_TemperaturfuerProjekt]![reserviertfuerProjekt] & "')"
CurrentDb.Execute strSQL, dbFailOnError
'DoCmd.SetWarnings False
On Error Resume Next
DoCmd.RunSQL strSQL
'DoCmd.SetWarnings True
'MsgBox strSQL
End Sub
Ich hoffe das mir jemand dabei helfen kann wo der Fehler steckt.
Mit hoffnungsvollen Grüßen an alle
Donar
Hallo,
erstelle ein gebundenes Formular mit der Tabelle als Datenherkunft. Ziehe aus der Feldliste die Feldr auf das Formular.
Und fertig. Mehr ist nicht zu tun. Access kann das alles automatisch, ohne eine einzige Zeile Code.
Erstelle mal ein Formular mit dem Assi, dann siehst Du wie einfach das ist.
Die Grundfunktionen von Access muss man nicht programmieren.
Vielen Dank für eure Hilfe hat mir sehr geholfen kam weiter
Gruß Donar