Supportnet / Forum / Datenbanken
Mittels VBA einen neuen Datensatz bereitstellen
Frage
Hallo zusammen,
ich hab kein kleines Prob bei dem ich eure Hilfe benötige. Ich habe Tabelle, in der ich einen neuen Datensatz erstellen möchte. Mittels der Navi-Leiste is das ja einfach, ich möchte aber das ich auf einen Botton diesen neuen DS eingeben kann. Dazu habe ich Textfelder bereitgestellt. Jetzt weiß ich nur nicht, wie ich den DS2 anzeigen obwohl nur einer vorhanden ist.
Wie lautet der VBA-Code zum realisieren dieses Problems??
Antwort 1 von the..dude
Hallo!
Könnte ungefähr so ausehen!
Sub Button_Click
Dim R As Recordset
Dim IP As String
IP = inputBox "Wert eingeben"
Set R = DBEngine(0)(0).OpenRecordset("Tabelle")
With R
.AddNew
!Spaltenname = IP
.Update
End With
End Sub
mfg
the..Dude
Könnte ungefähr so ausehen!
Sub Button_Click
Dim R As Recordset
Dim IP As String
IP = inputBox "Wert eingeben"
Set R = DBEngine(0)(0).OpenRecordset("Tabelle")
With R
.AddNew
!Spaltenname = IP
.Update
End With
End Sub
mfg
the..Dude
Antwort 2 von Iceman1983DU
Danke für deinen Tipp, hab aber den Code dafür gefunden:
On Error
GoTo Err_Befehl_Click
DoCmd.GoToRecord , , acNewRec
Exit_Befehl_Click:
Exit Sub
Err_Befehl_Click:
MsgBox Err.Description
Resume Exit_Befehl_Click
On Error
GoTo Err_Befehl_Click
DoCmd.GoToRecord , , acNewRec
Exit_Befehl_Click:
Exit Sub
Err_Befehl_Click:
MsgBox Err.Description
Resume Exit_Befehl_Click