problem med \"Mid\" funktionen i access database
når min rutine skal køre melder den følgende fejl\"Der opstod en kompileringsfejl:
Projektet eller biblioteket kan ikke findes\"
fejlen er ved: ↓
cprdata = DateValue ((mid(cpr, 3, 2)) osv. osv.
Macroen: (kontrol af personnummer)
Private Sub ElevCPR_BeforeUpdate(Cancel As Integer)
\'Validering og oprettelse
Dim x As Integer
Dim Cpr As String
Dim z As Integer
Dim cprdate As Date
CprAgain = False
x = DCount(\"ElevCPR_nr\", \"Elever\", \" [ElevCPR_nr] = forms!Opret_Elev!ElevCPR\")
If x > 0 Then
MsgBox \"Der findes en elev med dette CPR-nr, Systemet checker om Eleven er startet tidligere\", 64
DoCmd.RunMacro \"Open_ElevGetInfo\"
Forms.ElevGetInfo.Visible = False
Forms![Opret_Elev]![Fornavn] = Forms![ElevGetInfo]![ElevFornavn]
Forms![Opret_Elev]![Efternavn] = Forms![ElevGetInfo]![ElevEfternavn]
Forms![Opret_Elev]![Adr] = Forms![ElevGetInfo]![Adresse]
Forms![Opret_Elev]![Post] = Forms![ElevGetInfo]![PostNr]
If IsNull(Forms!Opret_Elev!Post) Then
Forms![Opret_Elev]![Post] = \"9999\"
Forms!Opret_Elev!Postby = DLookup(\"[postby]\", \"[postby]\", \"[postnr] = forms![Opret_Elev]![Post]\")
Else
Forms!Opret_Elev!Postby = DLookup(\"[postby]\", \"[postby]\", \"[postnr] = forms![Opret_Elev]![Post]\")
End If
Forms![Opret_Elev]![tlf] = Forms![ElevGetInfo]![Telefon]
Forms![Opret_Elev]![Grad] = Forms![ElevGetInfo]![Grad]
Forms![Opret_Elev]![Regiment] = Forms![ElevGetInfo]![Regiment]
Forms![Opret_Elev]![Indkvartering] = Forms![ElevGetInfo]![Indkvartering]
Forms![Opret_Elev]![Køreskole] = Forms![ElevGetInfo]![Køreskole]
Forms![Opret_Elev]![bemaerk] = Forms![ElevGetInfo]![Bemærkninger]
Forms![Opret_Elev]![formaal] = Forms![ElevGetInfo]![Uddannelses_formaal]
Forms![Opret_Elev]![Aktnr] = Forms![ElevGetInfo]![Aktnr]
Forms![Opret_Elev]![Prioritet] = Forms![ElevGetInfo]![Prioritet]
Forms![Opret_Elev]![Kørekortnummer] = Forms![ElevGetInfo]![Kørekortnummer]
Forms![Opret_Elev]![udstedsdato] = Forms![ElevGetInfo]![Kørekortudstedsdato]
Forms![Opret_Elev]![Udstedtaf] = Forms![ElevGetInfo]![Udstedtaf]
Forms![Opret_Elev]![Kørekortstype] = Forms![ElevGetInfo]![kktype]
Forms![Opret_Elev]![fødeland] = Forms![ElevGetInfo]![fødeland]
DoCmd.RunMacro \"Close_ElevGetInfo\"
Else
z = 0
On Error Resume Next
Cpr = Forms!Opret_Elev!ElevCPR
cprdate = DateValue((Mid(Cpr, 3, 2)) + \"/\" + (Mid(Cpr, 1, 2)) + \"/\" + (Mid(Cpr, 5, 2)))
If cprdate = \"00:00:00\" Then
CprAgain = True
MsgBox \"Forkeret dato\", 64
Exit Sub
End If
z = (Mid(Cpr, 1, 1) * 4) + (Mid(Cpr, 2, 1) * 3) + (Mid(Cpr, 3, 1) * 2) + (Mid(Cpr, 4, 1) * 7) + (Mid(Cpr, 5, 1) * 6) + (Mid(Cpr, 6, 1) * 5)
z = z + (Mid(Cpr, 7, 1) * 4) + (Mid(Cpr, 8, 1) * 3) + (Mid(Cpr, 9, 1) * 2) + (Mid(Cpr, 10, 1) * 1)
If z Mod 11 <> 0 Then
MsgBox \"Det er ikke en valid CPRnr.\", 64
CprAgain = True
End If
End If
End Sub
:-)
