Mit Kontrollkästchen den einen Datensatz sperren

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen,
ich suche schon seit einigen tagen nach einer möglichkeit in access mit einem kontrollkästchen den dazu gehöhrenden datensatz zu sperren. ich bin langsam müde jede mögliche eingabe in verschiedenen foren danach zu durch suchen.
also das kontrollfeld befindet sich in einer tabelle namen Dispo und soll dort nach ende der dateneingabe diesen datensatz sperren.

ich hoffe mein suchen hat jetzt ein ende gefunden

schon mal danke
gruss thino

p.s. meine vba kenntnisse sind noch in den kinderschuhen

#2

Moin, thino,

den dazu gehöhrenden datensatz zu sperren.

was heißt sperren? Und wozu gehört der Datensatz?

Gruß Ralf

#3

Moin, thino,

den dazu gehöhrenden datensatz zu sperren.

was heißt sperren? Und wozu gehört der Datensatz?

Gruß Ralf

hallo ralf
der datensatz ist aus einer datenbank namens dispo das kontrollkästchen befindet sich in diesem datensatz. im formular befinden sich text und kombinationsfelder sowie 2 unterformulare aus einer abfrage. ich möchte nun nach abschluss der dateneingabe verhindern das man diesen datensatz versehentlich ändert, er soll aber weiterhin in einem unterformular angezeigt werden.

#4

Hi,
das musst du im Formular deines Programms machen, indem du die Eingabefelder sperrst (Gesperrt=ja) wenn das Häkchen gesetzt ist.

Gruss
Joey

#5

hi,
das klingt als wenn ich das feld generell sperren will, da habe ich auch schon einiges gefunden. ich will aber den datensatz erst mach abschluss aller eingaben. es werden in dem datensatz immer noch einträge gemacht daher das sperren erst zu ende der eingaben mit dem häkchenfeld.
danke aber für deine schnelle antwort.

thino

#6

Hallo,

der datensatz ist aus einer datenbank namens dispo das
kontrollkästchen befindet sich in diesem datensatz. im
formular befinden sich text und kombinationsfelder sowie 2
unterformulare aus einer abfrage. ich möchte nun nach
abschluss der dateneingabe verhindern das man diesen datensatz
versehentlich ändert, er soll aber weiterhin in einem
unterformular angezeigt werden.

Wie heißt das KK-Feld im Formular?

Mit z. B.

Sub Form_Current()
Me.Allowedits = Not Me!KK1
End Sub

kann man den akt. angezeigten DS im Formular sperren.

Viele Grüße vom Bodensee
Franz, DF6GL

#7

hi,

danke für die schnelle antwort.
hat leider nicht geklappt. oder ich habs falsch gemacht. habs im KK beim klicken eingetragen.
das KK heisst Abgeschlossen.

gruss thino

#8

Hallo,

hab ich was von „Beim Klicken“ gesagt?

#9

Moin, thino,

habs im KK beim klicken eingetragen.

kleiner Tipp: Form_Current heißt eine Ereignisprozedur zum Formular.

Gruß Ralf

#10

danke werde es gleich testen

#11

Danke an alle
habe es wie folgt gelöst

'#####################################################################
’
’ Wenn Kontrollkästchen Abgeschlossen gesetzt wird
’
'#####################################################################
’
'Alle Eingaben für das Formular werden gesperrt. und das Formular aktualisiert
’
'#####################################################################

Private Sub Abgeschlossen_AfterUpdate()
If Me.Abgeschlossen.Value = True Then
Me.AllowEdits = False
Me.neuer_datensatz.Enabled = False
Me.wgm_form.Enabled = False
Me.suchen.Enabled = False
Me.Refresh
End If

End Sub

'#####################################################################
’
’ Button entsperren, damit überhaupt noch jemand daten korregieren kann
’
'#####################################################################
’
'Denn wenn einmal gesperrt ist aus dem Formular heraus kein rankommen mehr an die
'Daten. Wenn der Button entfernt wird lassen sich die Daten für das Formular nur
'noch direkt in der Tabelle wieder aktivieren, in dem aus dem Feld abgeschlossen
'entfernt wird.
’
'#####################################################################

Private Sub Entsperren_Click()
Me.Abgeschlossen.Value = False
Me.neuer_datensatz.Enabled = True
Me.wgm_form.Enabled = True
Me.suchen.Enabled = True
Me.AllowEdits = True
Me.Refresh
End Sub

'#####################################################################
’
’ Bei durchblättern durch die Datensätze mit den Navigations Button
’
'#####################################################################
’
'Bei jedem Datensatz wird das Kontrollkästchen Abgeschlossen geprüft und
'entsprechend der zugriff auf die Eingabefelder gewährt oder auch nicht
’
'#####################################################################
Private Sub Form_Current()
If Me.Abgeschlossen.Value = True Then
Me.AllowEdits = False
Me.neuer_datensatz.Enabled = False
Me.wgm_form.Enabled = False
Me.suchen.Enabled = False
Else
Me.neuer_datensatz.Enabled = True
Me.wgm_form.Enabled = True
Me.suchen.Enabled = True
Me.AllowEdits = True
End If

End Sub

gruss Thino