Die Eingabe eines Datensatz-Felder durch unabhängige

Geschrieben am Mittwoch, 20 Februar, 2008 - 13:22 | by admin |

Es gibt mehrere Möglichkeiten, um einen Datensatz eingeben, und die häufigste ist es, durch eine Form, gebunden an einen Tisch zu bekommen. Eine andere Möglichkeit, dies zu tun ist über unabhängige Felder, dh über ein Formular mit Feldern unabhängig in keinem Zusammenhang mit der Tabelle. Zu
geben die Daten verwenden wir die "Cord", dh durch einen Code, der im Fall dieses Beispiels ist wie folgt:

Dim db As Database
Dim rs As Recordset

If MsgBox ("Möchten Sie schreiben?" VbYesNoCancel, "Optionen") = vbYes Then
"Durch Drücken wird gefragt, ob Sie den Datensatz zu speichern oder nicht, wenn der Code so lange fortgesetzt, bis Ende
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Daten", dbOpenTable)
"Öffnen Sie die Tabelle einfügen das Datenregister

rs.addNew
rs ("name") = Me! INome
rs ("Adresse") = Me! Imorada
rs ("Alter") = Me! Iidade
rs.Update 'sendet die Daten an die Tabelle
rs.Close "löschen Sie die Daten und schließt das Recordset
Set rs = Nothing
Set db = Nothing

Me.INome = NULL 'löscht die Felder im Formular
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Datensatz gespeichert", vbInformation, "Display Bestätigungsmeldung" Fertig "
Me.INome.SetFocus 'Bewegen Sie den Cursor zum ersten Feld
Else: Exit Sub
End If