Sub Form_Current geht nicht immer

17/02/2010 - 17:52 von Frank Krüger | Report spam
Hallo,
die Ereignisprozedur für ein Form geht nicht immer.

Ich habe ein Einzel-Formular mit Endlos-Unterformular.
Im Unterformular werden in 8 Feldern Daten eingetragen.
Zusàtzlich habe ich noch ein Feld "update" um die Zeit der Änderung zu
erfassen.
Wenn also "kennzeichen" ausgelüllt wird, wird die Aktuelle Zeit in "update"
geschrieben.
Bis hier alles OK.
Wenn alle anderen Felder wie "Ankunft", "Beginn" und "Ende", alles Zeiten
wie z. b. "12:25", ausgefüllt wurden, möchte ich den Datensatz sperren.
Dazu habe nachfolgende Prozedur:

Private Sub Form_Current()

If (Me!Ende) And (Me!Ankunft) And (Me!Ladeanfang) > 0 Then
Me!Ankunft.Locked = True
Me!Liste_Spedition.Locked = True
Me!BLN.Locked = True
Me!Kennzeichen.Locked = True
Me!Auftrag.Locked = True
Me!Gewicht.Locked = True
Me!Ladeanfang.Locked = True
Me!Ende.Locked = True
Else
Me!Ankunft.Locked = False
Me!Liste_Spedition.Locked = False
Me!BLN.Locked = False
Me!Kennzeichen.Locked = False
Me!Auftrag.Locked = False
Me!Gewicht.Locked = False
Me!Ladeanfang.Locked = False
Me!Ende.Locked = False

End If
End Sub

komischer weise geht es auch manchmal. Hat das Formular etwa 5 Datensàtze
funzt das Sperren bei 2 bis 5, den 1. kann ich àndern. Oder aber der 1. bis
4. sind gesperrt und letzte làsst sich àndern. Mal sind auch alle oder keiner
gesperrt. Ich bin am verzweifeln. Kopiere ich die Datenbank von Laptop
auch einen anderen rechner geht es überhaupt nicht.
Die Daten frage ich mit ">0" ab. Was ist falsch??????

OS Window 7
Accesss 2007
 

Lesen sie die antworten

#1 Wolfgang Badura
17/02/2010 - 18:49 | Warnen spam
Hallo Frank!
Deine Angaben sind nicht ganz vollstàndig.
Was willst Du sperren?
Datensàtze in dem UF oder Steuerelemente?
Ist Me!Ankunft ein Steuerelement im UF?
Dann wird das mit Current des Forms so nicht gehen.
Du mußt Dich vom Hauptformular aus auf die Formulareigenschaft des UF
beziehen.
Und
If (Me!Ende) And (Me!Ankunft) And (Me!Ladeanfang) > 0 Then
ist eine logische Verknüpfung und keine Abfrage auf Feldinhalte.
Vielleicht kannst Du noch nàhere Angaben zu Deiner Frage geben.

Mit Gruß aus Wien
Wolfgang

"Frank Krüger" wrote in message
news:
Hallo,
die Ereignisprozedur für ein Form geht nicht immer.

Ich habe ein Einzel-Formular mit Endlos-Unterformular.
Im Unterformular werden in 8 Feldern Daten eingetragen.
Zusàtzlich habe ich noch ein Feld "update" um die Zeit der Änderung zu
erfassen.
Wenn also "kennzeichen" ausgelüllt wird, wird die Aktuelle Zeit in
"update"
geschrieben.
Bis hier alles OK.
Wenn alle anderen Felder wie "Ankunft", "Beginn" und "Ende", alles Zeiten
wie z. b. "12:25", ausgefüllt wurden, möchte ich den Datensatz sperren.
Dazu habe nachfolgende Prozedur:

Private Sub Form_Current()

If (Me!Ende) And (Me!Ankunft) And (Me!Ladeanfang) > 0 Then
Me!Ankunft.Locked = True
Me!Liste_Spedition.Locked = True
Me!BLN.Locked = True
Me!Kennzeichen.Locked = True
Me!Auftrag.Locked = True
Me!Gewicht.Locked = True
Me!Ladeanfang.Locked = True
Me!Ende.Locked = True
Else
Me!Ankunft.Locked = False
Me!Liste_Spedition.Locked = False
Me!BLN.Locked = False
Me!Kennzeichen.Locked = False
Me!Auftrag.Locked = False
Me!Gewicht.Locked = False
Me!Ladeanfang.Locked = False
Me!Ende.Locked = False

End If
End Sub

komischer weise geht es auch manchmal. Hat das Formular etwa 5 Datensàtze
funzt das Sperren bei 2 bis 5, den 1. kann ich àndern. Oder aber der 1.
bis
4. sind gesperrt und letzte làsst sich àndern. Mal sind auch alle oder
keiner
gesperrt. Ich bin am verzweifeln. Kopiere ich die Datenbank von Laptop
auch einen anderen rechner geht es überhaupt nicht.
Die Daten frage ich mit ">0" ab. Was ist falsch??????

OS Window 7
Accesss 2007

Ähnliche fragen