Søgefelt i formular

Add a combo box to the form using the wizard. Follow the instructions.

Det virker ikke som jeg ønsker det.
feltet der søges på i tabellen er ikke index.
Hvad skal jeg skrive i wizard\'ens felter?

Samtidig må der gerne komme en Medd. hvis nummeret ikke findes.

Følgende eksempel søger efter et personnummer i tekstfeltet \"CPRNR\". Koden returnerer msgbox hvis du indtaster et antal cifrer der er <> 10, og hvis det indtastede CPRNR ikke findes i databasen.

Private Sub Kommandoknap82_Click()
Dim MSG, CPRNR As String, Svar As Integer
DoCmd.GoToControl \"CPRNR\"
CPRNR = InputBox(Prompt:=\"Indtast Medarbejderens CPR-nummer, F.eks 1111491234.\" & vbNewLine & vbNewLine & \"Der må ikke indtastes bindestreg. Joker-tegn kan ikke anvendes\", Title:=\"Find medarbejder\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af CPR\'
If Len(CPRNR) <> 10 Then
Svar = Msgbox(Prompt:=\"Du har indtastet CPRNR:\" & vbNewLine & vbNewLine & CPRNR & vbNewLine & vbNewLine & \"Der skal indtastes 10 tegn uden bindestreg.\" & vbNewLine & vbNewLine & \"Klik på Forsøg igen for at foretag ny indtastning.\" & vbNewLine & \"klik på Annuller for at forlade procedüren.\", Title:=\"Indtastningsfejl\", Buttons:=vbRetryCancel)
If Svar = vbYes Then
Kommandoknap82_Click
End If
If Svar = vbCancel Then
Exit Sub
End If
DoCmd.GoToControl \"CPRNR\"
Else
Me.RecordsetClone.FindFirst \"CPRNR=  \'\" & CPRNR & \"\'\"
End If
While Me.RecordsetClone.NoMatch = True
Svar = Msgbox(Prompt:=\"Du har indtastet CPRNR:\" & vbNewLine & vbNewLine & CPRNR & vbNewLine & vbNewLine & \"CPRNR findes ikke i databasen. Husk der må ikke indtastes bindestreg.\" & vbNewLine & vbNewLine & \"Klik på Forsøg igen for at foretag ny indtastning.\" & vbNewLine & \"Klik på Annuller for at forlade procedüren.\", Title:=\"Indtastningsfejl\", Buttons:=vbRetryCancel)
If Svar = vbYes Then
Kommandoknap82_Click
End If
If Svar = vbCancel Then
Exit Sub
End If
CPRNR = InputBox(Prompt:=\"Indtast Medarbejderens CPR-nummer, F.eks 1111491234.\" & vbNewLine & vbNewLine & \"Der må ikke indtastes bindestreg. Joker-tegn kan anvendes\", Title:=\"Find medarbejder\") \'Starter funktionen \"FindRecord\" og åbner Inputbox for indtastning af CPR\'
If CPRNR = \"\" Then
End
Else
Me.RecordsetClone.FindFirst \"CPRNR=  \'\" & CPRNR & \"\'\"
End If
End
Wend
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub