Søg om værdi er i bestemt tabel (Access97)

Denne bruger jeg i Access2000, men er i tidernes mprgen lavet i 97:

Dim SQLstr As String
Dim Felt5 As String
Dim MSG As String
Dim Svar As Integer
Dim Ctrl As Control
DoCmd.GoToControl "FELTNAVN"
Me.RecordsetClone.FindFirst "FELTNAVN=  " & FELTNAVN & ""
While Me.RecordsetClone.NoMatch = True
If Me.RecordsetClone.NoMatch = True Then
Svar = MsgBox(Prompt:="Den søgte Talstreng findes ikke", Title:="Søgningen lykkedes ikke")
Exit Sub
End If
Me.RecordsetClone.FindFirst "FLETNAVN=  " & FELTNAVN & ""
Wend
Me.Bookmark = Me.RecordsetClone.Bookmark

Min frm er ikke knyttet til den tabel som koden skal kigge i, hvordan fortæller jeg at den skal se i præcis den tabel?

Det er en forudsætning at username findes i et felt i formularen.
Kan du ikke indsætte en ubunden tekstboks, og ved hjælp af en DLookUp hente username ind i formularen?

Syntaksen for en DLookUp:

=DLookUp("[FELTNAVN]";"TABELNAVN")

Indsæt det i den ubundne tekstboks' postkilde

Jeg er ikke sikker på hvad du mener. Men jeg har allerede lavet et felt hvor den nuværende Username fremgår, men hvordan får jeg FindFirst-sætning til at se præcis ned i kolonnen WindowsBrugerNavn i tabellen tbl_Kunder? Det er jo kun hvis den finde en tilsvarende værdi præcis det sted, at der skal ske noget...

Indsætter jeg så alles usernames i et ubundet felt?

Se min kode:

DoCmd.GoToControl "FELTNAVN"

Sender markøren til feltet og foretager søgningen i dette felt og kun her.

Prøv at sætte følgende i i formularens VedÅbning hændelse:
if dcount("MitfeltMedBrugernavne", "[MinTabelMedBrugernavne]", "MitfeltMedBrugernavne = " & Environ("Username") & ") > 0 then
Msgbox "Brugernavnet " & environ("Username") & " findes allerede,"
Else
Msgbox "Brugernavnet " & Environ("Username") & " findes ikke i tabellen"
End if

Mjaaa...

Den skal jeg lige tygge lidt på.

Så vidt jeg ved, giver environ("Username") det brugernavn, som man er logget på Windows med

hekla > YES
Selvfølgelig!!

Det er jo ikke nødvendigt at gøre det bøvlet. Men det fordrer stadig at der er et felt med brugernavn i formularen.

mugs >> Nej det skulle ikke være nødvendigt med et felt i formularen.

hekla > OK

Den skal afprøves (når solen er gået ned.)

"if dcount("MitfeltMedBrugernavne","

Forstår jeg sådan, at du refererer til et felt i formularen.

Og nu mine damer og herrer: Tilbage til terrassen, jeg er igang med en spændende bog. Rene røverhistorier - Men god underholdning.

hekla jeg forstå godt din ideen, som ser lovende ud, men jeg får en fejl. Den forventer en ) i første sætning - den jeg jeg ikke helt gennemskue?

If DCount("*", "TABELNAVN", "[FELTNAVN]= '" & Me.FELTNAVN & "'")>0 Then
gør noget
Else
gør noget andet
end if

Denne er testet og virker:

if dcount("MitfeltMedBrugernavne", "[MinTabelMedBrugernavne]", "MitfeltMedBrugernavne = '" & Environ("username") & "'") > 0 Then
Msgbox "Brugernavnet " & environ("Username") & " findes allerede,"
Else
Msgbox "Brugernavnet " & Environ("Username") & " findes ikke i tabellen"
End if

Hekla din metode virker også her. Helt perfekt! Utroligt så meget man kan tælle sig til :-) mange tak for hjælpen!

Tak for point!