Schreiben und Lesen mit Access

Lesen und Schreiben mit Access: OpenDatabase, OpenRecordset, AddNew, Delete, UpdateControls, MoveNext
Dim gFirstSet As Integer Für erste Satznummer.
Dim gLastSet As Integer Für letzte Satznmmer.
Private Sub Form_Load() Datenbank aktualisieren (falls Mehrfachzugriff).
Call refresh_me
End Sub
Private Sub cmdRefresh_Click() Formular entladen und sofort wieder laden: so werden
Unload frmAdressen wieder ALLE Datensätze angezeigt.
frmAdressen.Show
End Sub
Private Sub cmdNew_Click()
dbAdressen.Recordset.AddNew Neuen Datensatz hinzufügen.
txtNachname.Enabled = True
txtVorname.Enabled = True
chk_aktiv.Enabled = True
txtNachname.SetFocus
End Sub
Private Sub cmdUndo_Click()
dbAdressen.UpdateControls Ursprüngliche Werte wiederherstellen.
Call refresh_me
End Sub
Private Sub dbAdressen_Reposition()
gFirstSet = dbAdressen.Recordset.AbsolutePosition + 1 Liefert aktuelle Satzposition.
dbAdressen.Caption = "Datensatz " & gFirstSet & " von " & gLastSet
End Sub
Private Sub txtSearch_KeyPress(KeyAscii As Integer)
Dim dbSuchen As Database, Zeilen As Recordset, SQL As String
Select Case KeyAscii
Case 13
Set dbSuchen = OpenDatabase("Adressen.mdb") Datenbank öffnen.
Set Zeilen = dbSuchen.OpenRecordset("Adressenliste", dbOpenTable) Tabelle öffnen.
SQL = "SELECT * From Adressenliste WHERE _ SQL-Suchstring; txtSearch ist ein Textfeld auf dem Formular.
Nachname = '" & txtSearch & "'"
dbAdressen.RecordSource = SQL Abfrage durchführen.
Call refresh_me
txtSearch.Text = txtSearch & " --> Kunde suchen: hier klicken"
End Select
End Sub
Private Sub refresh_me()
On Error GoTo nachricht
dbAdressen.Refresh Data-Control aktualisieren.
dbAdressen.Recordset.MoveLast Datenbankgröße abtasten, um korrekte Datensatzposition
dbAdressen.Recordset.MoveFirst auszugeben.
gFirstSet = dbAdressen.Recordset.AbsolutePosition + 1 Liefert aktuelle Satzposition.
gLastSet = dbAdressen.Recordset.RecordCount Liefert letzte Datensatznummer.
dbAdressen.Caption = "Datensatz " & gFirstSet & " von " & gLastSet
txtNachname.Enabled = True
txtVorname.Enabled = True
chk_aktiv.Enabled = True
Exit Sub
nachricht:
MsgBox "Keine Datensätze gefunden"
txtNachname.Enabled = True
txtVorname.Enabled = True
chk_aktiv.Enabled = True
End Sub
Private Sub cmdDelete_Click()
Dim Antwort As Integer
On Error GoTo nachricht
Antwort = MsgBox("Den Datensatz wirklich löschen?", vbQuestion + vbYesNo, "Datensatz löschen")
If Antwort = vbYes Then
dbAdressen.Recordset.Delete
dbAdressen.Recordset.MoveNext
Call refresh_me
txtNachname.SetFocus
Else
Exit Sub Nicht löschen.
End If
Exit Sub
nachricht:
MsgBox "Keine Datensätze gefunden"
txtSearch.Text = ""
txtNachname.Enabled = False
txtVorname.Enabled = False
chk_aktiv.Enabled = False
txtSearch.SetFocus
End Sub
Private Sub txtSearch_Click()
txtSearch.Text = ""
txtNachname.Enabled = False
txtVorname.Enabled = False
chk_aktiv.Enabled = False
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt