19. januar 2003 - 14:27Der er
16 kommentarer og 2 løsninger
Forkert indtastet post gemmes...
Hej Med stor hjælp fra Terry fik vi arbejdet os frem til en kode som jeg søgte efter i sp 306408. Den blev som følger: Private Sub Tid_BeforeUpdate(Cancel As Integer) If IsNull(DLookup("tidspunkt", "tbltidspunkt", "tidspunkt = #" & Me.Tid & "#")) Then MsgBox "Du har tastet ugyldig tid" Cancel = False End If End Sub Samme kode har jeg på dato feltet. Dog er der følgende problemer: 1. Posten gemmes uanset om der er tastet forkert dato og/eller tid. 2. Hvis jeg taster forkert dato (som er det første felt) og jeg får msgbox om at det er forkert, nulstilles feltet ikke, men cursor går til felt tid (som er det andet felt). Taster jeg korrekt dato, men forkert tid går cursor til dato feltet og sletter både tid og dato, men tilføjer dog posten alligevel. Håber der er nogen der kan hjælpe en Quinde i nød. /Brix
Når jeg indtaster en forkert dato tømmes feltet og cursor står i dato. Så langt så godt. Når jeg indtaster en korrekt dato og står i tid, indtaster en forkert tid, får msgbox om at det er forkert, går cursor til dato feltet og tømmer både dato og tid. Dog tilføjes posten ikke nu den er forkert så vi er på rette spor.
Nu tvinger du mig jo til at indrømme, at jeg har fået et anfald af præsenil demens. Men Ok - når det skal være sådan, så må jeg jo rehabilitere mig og bede dig sende din db :o)
mugs er kommet frem til følgende: Private Sub Dato_BeforeUpdate(Cancel As Integer) Dim Error As Integer On Error GoTo Errorhandler If IsNull(DLookup("dato", "tbldato", "dato = #" & Me.Dato & "#")) Then MsgBox "Du har tastet ugyldig dato" Me.Undo End If DoCmd.GoToControl "Dato"
Errorhandler: If Error = 2115 Then Me.Dato = Null DoCmd.GoToControl "Dato" End If End Sub Og det virker også på dato. Men det virker ikke på tid. Hvis man taster en forkert tid tilføjer den posten og går videre til ny post, på trods af at man har tastet forkert.
terry > Sometimes I regret, that I have involved me in this community called "eksperten.dk". And often I ask Myself:
Why do things difficult when things are so simple?
I will store this example in my mind in this directory:
MyMind:/Hownottodo
And by the way: I don't want to be no. 1. That position is allready taken!
Good Night My Friends
/ Mogens
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
