Per Checkbox nur Aktuellen Datensatz aus Formular bearbeiten (in Access)
Hallo,
also ich habe folgendes vor.
Ich habe in Access eine Oracle Tabelle eingefügt in die ich über ein Formular Daten Schreiben und lesen Möchte.
Nun Habe ich noch eine Checkbox die wenn der Haken gesetzt ist eine 1 in eine Extra Spalte (ist schon vorhanden) schreiben soll und wenn er nicht gesetzt ist eine 0 reinschreibt (will ich über ein VBA Script machen das bei Klick auf Haken ausgeführt wird).
Es funktioniert schon fast aber jetzt weiß ich nicht wie ich es machen kann das ich nur den aktuellen Datensatz den ich gerade bearbeite die 1 zuweisen kann momentan macht er in alle Datensätze eine 1.
Hier mein Quelltext:
Hoffe es kann einer Helfen.
Mfg MTB
also ich habe folgendes vor.
Ich habe in Access eine Oracle Tabelle eingefügt in die ich über ein Formular Daten Schreiben und lesen Möchte.
Nun Habe ich noch eine Checkbox die wenn der Haken gesetzt ist eine 1 in eine Extra Spalte (ist schon vorhanden) schreiben soll und wenn er nicht gesetzt ist eine 0 reinschreibt (will ich über ein VBA Script machen das bei Klick auf Haken ausgeführt wird).
Es funktioniert schon fast aber jetzt weiß ich nicht wie ich es machen kann das ich nur den aktuellen Datensatz den ich gerade bearbeite die 1 zuweisen kann momentan macht er in alle Datensätze eine 1.
Hier mein Quelltext:
Private Sub Haken_Click()
Dim dbs As Database
Set dbs = CurrentDb
If Haken = True Then
dbs.Execute "UPDATE Test_test_tabelle SET Nummer = '1' WHERE ID = ID "
Else
dbs.Execute "UPDATE Test_test_tabelle SET Nummer = '0' WHERE ID = ID "
End If
End Sub
Hoffe es kann einer Helfen.
Mfg MTB
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 105483
Url: https://administrator.de/contentid/105483
Ausgedruckt am: 22.11.2024 um 10:11 Uhr
4 Kommentare
Neuester Kommentar
Hi,
ist das Form an die Tabelle gebunden oder nicht?
Wenns an die Tabelle gebunden ist, dann genügt folgender code:
und das hier
sollte wohl
heisen.
lg,
Slainte
ist das Form an die Tabelle gebunden oder nicht?
Wenns an die Tabelle gebunden ist, dann genügt folgender code:
if Haken then
me.feld=1
else
me.feld=0
end
und das hier
dbs.Execute "UPDATE Test_test_tabelle SET Nummer = '0' WHERE ID = ID "
dbs.Execute "UPDATE Test_test_tabelle SET Nummer = '0' WHERE ID = " & ID
lg,
Slainte