Hjælp til at genkende medarbejderid

HVad er det lige du vil vide??
Og hvad for nogle programmer arbejder du med??? Access eller hvad??

lav en forespørgelse (select * from tabel where id = medarbederid)
if rs.eof then
  eksisterer ikke
else
  eksisterer
end if

Sub test()

Datasti = "C:\temp\test.mdb"
  ' Lav en forbindelse til Access databasen
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
        "Data Source=" & Datasti & ";"
    ' Åben et recordset
    Set rs = New ADODB.Recordset
    rs.Open "select tblmedarbejder where ID = " & medarbejderID, cn, adOpenKeyset, adLockOptimistic, adCmdTable
    ' alle records i en tabel
   
        With rs
          if not .eof then
              msgbox "xxxx"
          end if
        End With
    rs.Close ' luk skidtet
    Set rs = Nothing
    cn.Close ' også her
    Set cn = Nothing
    ' slut prut finale

Skal det sættes ind i en hændelsespro - under medarbejder id i formularen og hvad står * for

Hvorfor ikke blot lave en Dcount der tæller forekomster af ID i medarbejdetabellen:

Hvis resultatet af denne DCount er = 0 Then
MsgBox "Der er ikke data der matcher."

hmm kan du uddybe mugs - skal det bare sættes ind i feltet?? DEn skal jo matche om jeg har oprettet en medarbejder

If DCount("*","medarbejdertabel","[id]= " & Me.FELTNAVN &"") >0 Then
MsgBox "Medarbejderid er allerede oprettet."
End If

Sæt det ind i feltets BeforeUpdate.

JEg skal jo blot taste et nr 111 hvis det ikke kan genkedes skal jeg have en msg boks op der siger medarbejder eksistere ikke -

det er når jeg taster timer ind for hver enkelt medarbejder - så kan jeg nem komme til at taste fejl

Så skal du vende den om, idet du jo nu vil måle om medarbejderen eksisterer. D.v.s. at hvis DCount er 0, så eksisterer medarbejderen ikke:

If DCount("*","medarbejdertabel","[id]= " & Me.FELTNAVN &"") =0 Then
MsgBox "Medarbejderen eksisterer ikke."
End If

Mugs når jeg bare skriver ok til at medarbejder ikke eksistere så opretter den alligevel en post!!

problemet er også at mit felt godt kan være lig ingenting fra start af hvad gør jeg så?? JEg starter altid på data indtastning

hvordan kan jeg i koden tage højde for at feltet kan være blan - altså lig ingenting

det andet er fint men den debugger når feltet er tom

If Not IsNull(Me.id) Then
If DCount("*","medarbejdertabel","[id]= " & Me.id &"") =0 Then
MsgBox "Medarbejderen eksisterer ikke."
End If
End If

jeg får lov til at gå videre og reg seklvom der intet er skrevet i medarbejder - dsuden starter den ved nul selv om det ingen standarværdi er på

"jeg får lov til at gå videre"
Det er vel også det du vil!

"dsuden starter den ved nul selv om det ingen standarværdi er på"
Hvad starter ved 0?

Kan du ikke indtaste i en kombo med arbejderid som rækkekilde

komboen har nogle egenskaber du kan bruge vedIkkePåListe - Så kan du ikke indtaste forkertId
desuden bør du i tabeldesign sætte egenskaben obligatorisk til 'ja' derved kan du ikke gemme en post med null værdi

Niels

Niels jeg har fundet løsningen koden sender jeg senere.. Nu har jeg blot et problem med en dialog boks - JEg har en formular som er baseret på en forsp. Den forsp er og basis for andre.. nu er problemet hvor jeg klare denne - Når jeg forsøger at åbne den vil dialogboks kriterierne fra den anden forsp. være skinne igennem..