Problemer med søge efter en eksisterende post

Flg. kode i Access97 er gældende for et alfanumerisk felt. Såfremt indholdet af Tabel1 felt1 eksisterer vil posten blive fundet:

If DCount(\"*\", \"Tabel1\", \"[felt1] >\'0\'\") Then
Me!Felt1.SetFocus
DoCmd.FindRecord Me!Felt1
End If

for et numerisk felt skal du undlade \'\' omkring 0

Jeg kan ikke få det til at virke - den kommer ud og siger at det vil give dublerende data i indexes.

Min nuværende kode ser sådan ud:
If XOptagelsesID = DLookup(\"OptagelsesID\", \"[T_Optagelsesnummer]\", \"OptagelsesID=\" & FktOptagelsesID()) Then
\'her skal den gå til den givne række i tabellen og bruge.
        If DCount(\"*\", \"T_Optagelsesnummer\", \"[OptagelsesID] >0\") Then
            Me!Optagelsesnummer.SetFocus
            DoCmd.FindRecord Me!Optagelsesnummer
        End If

        \'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
        \'DoCmd.GoToRecord acDataForm, \"OptagelsesID\", acGoTo, 4
        \'DoCmd.GoToRecord , , acNext
        \'Me.OptagelsesID.SetFocus
        \'DoCmd.FindRecord Me.OptagelsesID
    Else

Når du indsætter koden i feltets AfterUpdate er tabellen allerede opdateret, d.v.s. at fejlen kommer fordi der allerede er en post med en tilsvarende værdi i tabellens indekserede felt (dublerede data i index).

Prøv som udgangspunkt at flytte koden til BeforeUpdate. Men jeg er så bange for, at FindRecord ikke fungerer, fordi den post du søger jo så ikke findes i tabellen.

Jeg har ikke nogen løsning i øjeblikket, men vil arbejde videre på sagen.

Er du interesseret i at få en kopi så du kan rode med det ? eller få en fornemmelse af hvad det konkret er jeg mener ?

Ja - Jeg vil gerne se på det, men ikke love en løsning.

Der er noget selvmodsigende i spørgsmålet, idet du prøver at oprette en post i et indekseret felt, hvor værdien allerede eksisterer, her stopper koden idet du skal få en fejl.

Derefter vil du søge efter en post, hvor du søger efter feltet i tabellen idet du refererer til Me!Feltnavn. det er selvmodsigende idet feltet jo ikke indeholder en værdi, fordi det ikke er opretttet.

Det er jeg faktisk godt klar over, men jeg kunne ikke finde på en bedre måde at definere det på og det er faktisk mit problem - ved ikke om det kan laves på en helt anden måde en på den måde som jeg er startet på, men det tænker jeg over og har gjort det i mange dage uden at komme til løsningen :(

Har du en e-mail adresse, ellers kan du lige skrive til mig på webmaster@lws.dk

Undskyld - for dumt af mig ikke at opgive mail:
mugs@get2net.dk

Forslag til kode sendt

Jeg fandt ud af det med denne kode og formularen har ingen tabel eller forespørgsel som grundlag.

\' ingen advarsler ønskes
    DoCmd.SetWarnings False
    \' sætter funktionen FktOptagelsesID() til en varibel
    XOptagelsesID = Me.ProgramidX * 10 + Optagelsesnr
    \'Checker om der er et eksisterne OptagelsesID og hvis ikke så opret den i tabellen T_OptagelsesID
    If IsNull(DLookup(\"[OptagelsesID]\", \"[T_Optagelsesnummer]\", \"OptagelsesID = FktOptagelsesID()\")) Then
        DoCmd.RunSQL \"Insert into T_Optagelsesnummer (OptagelsesID, ProgramnummerID, Optagelsesnummer)\" & _
        \"SELECT FktOptagelsesID(), ProgramidX, Optagelsesnr\"
        Me.OptagelsesID = FktOptagelsesID()
    Else
        Me.OptagelsesID = DLookup(\"[OptagelsesID]\", \"[T_Optagelsesnummer]\", \"OptagelsesID=\" & FktOptagelsesID())
    End If
    \' Sætter datoen i som en oplysning
    Me.Dato = DLookup(\"[OptagelsesDato]\", \"[T_programnummer]\", \"ProgramnummerID=\" & ProgramidX)
    DoCmd.SetWarnings True

mugs får 2/3 af pointene for hjælpen, selvom jeg ikke kunne bruge det som han sendte til mig.