Check eksistensen af frasorterede records
Jeg sidder med en DB, hvor jeg har to kombobokse,der lister initialer, og derved hentes data fra samme tabel:-QA_Behand (lister kun initialer relateret en bestemt gruppe afd)
-FORFATTER (total initiallisten, minus valget i QA)
Ved aktivering af QA_Behand komboboksen vil alle ikke-QA_Behand relatedere initialer selvfølgelig ikke fremgå af kombo-listen, og min NotInList funktion aktiveres, og der bliver spurgt om bruger ønsker at opdatere initial liste tabellen.
Det skal kun være en mulighed at opdatere initial liste tabellen i det tilfælde hvor initialerne ikke er listet i QA fordi de ikke findes i initial tabellen, og ikke fordi de er frasorteret pga QA komboboksens frasorterings-funktion.
Min kode ser sådan ud (Gammel kending fra disse sider):
Private Sub QA_Behand_NotInList(NewData As String, Response As Integer)
Response = acDataErrContinue
NewData = UCase(NewData)
If Not IsNull(DLookup("QA_Behand", "T_L_Pers", "Initialer = '" & NewData & "'")) Then
MsgBox NewData & " er oprettet men uden QA rettigheder", vbOKOnly
Me.QA_Behand = Null
Else
Prompt = "Ønsker du at tilføje '" & NewData & "'?"
If MsgBox(Prompt, vbYesNo, "QA person findes ikke!") = vbYes Then
DoCmd.OpenForm "F_L_Pers_QA", , , , acFormAdd, acDialog, NewData
If IsNull(DLookup("QA_Behand", "T_L_Pers", "Initialer = '" & NewData & "'")) Then
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
Exit Sub
Else
Me.QA_Behand = Null
End If
Response = acDataErrContinue
End If
End Sub
Mit problem er, at når jeg i QA_Behand indtaster initialer, som er i initial tabellen, men er frasorteret til QA_Behand, spørges der om tabellen skal opdateres. Jeg ønsker at der i dette tilfælde skal komme meddelse om at personen er registreret, men ikke som QA medlem!
Funktionen virker hvis jeg først har udfyldt både QA og Forfatter, og sidenhen ændrer enten den ene eller begge. Da fungerer NotInList koden ovenfor perfekt.
Hvor fejler mine fattige evner?
Mogens
