Det fungerer fint lige indtil man sletter cprnr (ved eksempelvis af slette posten) og vil forlade formularen. Så viser den fejl i koden, fordi det hele er "null". Spørgsmålet er, hvordan jeg får access til at springe koden over, hvis man eksempelvis sletter en post og ønsker at lukke formularen.
Har du i tabellen angivet, at CPRNR er obligatorisk. Hvis det er tilfældet, så ændrer du denne egenskab og laver en anden fejlhåndteringsrutine hvis det er et krav at CPR skal udfyldes.
You could maybe try this, or you can test if the field contains data and if it doesnt, and if it is required then display a message and then set Cancel to True which will return to the field ready to enter data.
Private Sub cpr_Exit(Cancel As Integer)
If Trim(Len(cpr)) > 0 THen fdato = CDate(Mid(cpr, 1, 2) & "-" & Mid(cpr, 3, 2) & "-" & Mid(cpr, 5, 2)) Else fdata = Null end if End Sub
Private Sub cpr_Exit(Cancel As Integer) if not isnull(cpr) then fdato = CDate(Mid(cpr, 1, 2) & "-" & Mid(cpr, 3, 2) & "-" & Mid(cpr, 5, 2)) end if End Sub
Tak for svarerne. Jeg har valgt at dele pointene mellem spg og Terry, da begge koder virker. Mugs forslag ville muligvis også virke, men cprnr er primærnøglen. Det kunne man sikkert også løse, men jeg vælger færdigretten denne gang.
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.
