Tjeke om en værdi findes i recordset

Jeg er ikke sikker på hvad du mener, men du kan bruge denne VBA til at kontrollere, om en værdi findes i en tabel. Hvis tabellens felt1 matcher med formularens felt1 eksisterer posten jo i forvejen:

If DCount("*", "Tabel1", "[Felt1]= '" & Me.Felt1 & "'") >0 Then
msgbox "posten eksisterer"
else
Gør noget andet
end if

Ovenstående gælder for et alfanumerisk felt. Er feltet numerisk skal du bruge denne:

If DCount("*", "Tabel1", "[Felt1]= " & Me.Felt1 & "") >0 Then

Hej Mugs,
Undskylder at mit problem ikke fremgår mere tydeligt.

Jeg har lavet en kode som genererer et word-dokument og indsætter en masse værdier.
Lad os sige at det er en liste over chefer eller ansatte.
Navnene kommer fra to tabeller chefTbl og kuliTbl. I ChefTbl hedder navnefelter chefNavn og i kulitabellen kulinavn.
Hvis nu jeg ud fra en "make table" qry laver een tabel som hedder navnTbl.Her er de fleste oplysninger de samme om de kom fra KuliTBL eller ChefTbl (fx alder, køn mv). Kun navnefeltet hedder noget forskelligt afhængigt af om det er fra den ene eller anden tabel navnTbl laves ud fra.

Jeg vil nu hente oplysningerne fra navnTbl ind i mit recordset. Men da jeg jo har to forskellige kolonneoverskrifter for navnet kommer der ovenstående error hvis jeg fxkalder RS!ChefNavn og den underliggende tabel er en kulitable.

Er det nemmere at forstå nu?

VH
JOhannes

OK - Jeg vil mene at du kun skal have eet felt med navnet uanset om det er en chef eller en kuli. Du kan så have f.eks et Ja/Nej felt der markerer, om personen er en chef eller kuli.

Du kna så lave en tilføjelsesforespørgsel der sender data fra de 2 tabeller ind i den 3. og lave en tilføjelse til Ja/Nej feltet i den ene opdateringsforespørgsel som herefter vil markere chef eller kuli.

Hvis du kan få den her til at virke, er den vist hurtigere en Domæne aggregat funktionen. Husk reference til DAO


    Dim DBS As DAO.Database
    Dim Rst As DAO.Recordset
   
    Set DBS = CurrentDb
    Set Rs = DBS.OpenRecordset("MinTabel")

Rs.MoveFirst
Do While Not Rs.EOF
    If Not isnull(Rs.Fields("kolonne")) Then
        GoTo Findes
    Else
        On Error GoTo FindesIkke, vb Information; Værdien findes
        Rst.MoveNext
    End If
Loop
exit sub

FindesIkke:
    MsgBox "Værdien findes ikke", vbCritical, "Værdien findes ikke"
Exit sub

Findes:
    MsgBox "Værdien findes", vbCritical, "Værdien findes"
...

Mugs; det er ikke væsentligt om det er kulien eller chefen. jeg skal blot hente navnet. Men du gav mig en ide til at løse problemet. Idet jeg i analogi med ovenstående kan lave en test på om det er chef eller kulier der er tale om - din ide med ja/nej - og i denne test hente det relevante feltnavn.

Hekla, din vil sikkert også hjælpe men jeg har brug for min error handler andet sted.

Tak for hurtigt svar!
VH
Jind

Tak for point :o)