Test på ikke allerede udlånt

If DlookUp("ID", "TBværktøj", "ID = " & KLnr) Then
msgbox "udlånt"
else
'....
End if

Hej
hvor sætter jeg sætningen ind?
avj

avj>Just read your question again! How do you know when the "værktøj" has been returned?

terry> jeg har ikke taget stilling til returnering endnu (men det skal jeg selfølgelig)men i første omgang ville jeg at der kom en meddelelse om at værktøjet ikke var ledigt.
det der er mit problem er at finde ud af hvornår der skal laves en macro, eller en event i VB og hvilke event der skal bruges
avj

avj ->
Jeg går udfra du udlåner værktøj fra en liste baseret på din tabel TBværktøj. Det nemeste ville være at begrænse din liste til 'værktøj PÅ lager'. Men det kræver som Terry siger at der må være en indikering i din tabel om værktøjet ER udlånt.
Det kunne være et felt: Udlånt - ja/nej
liste1.rowsouce = "select * from tbværktøj where [udlånt] = false;"

Niels

Indikeringen er at der bliver indsat en dato i TBværktøj når værktøjet er udlånt og at den dato ved returnering bliver slettet. jeg havde forestillet mig noget i retning at sammenligne dato for nyoprettet udlån og den dato som er i TBværktøj altså hvis dato feltet i TBværktøj er true så giv meddelelse om at det er udlånt eller opret udlån
håber det giver mening :))
avj

eller = ellers
avj

If isdate(DlookUp("udlånsdato", "TBværktøj", "klnr = " & me.txtbox) Then
  msgbox "Desværre, er udlånt"
else
  ' OK, du kan udlevere værktøjet
  'opret udlån
end if
sådan kan du tjekke om der står en dato i feltet udlånsdato, hvor klnr = formularens txtbox.

ellers kom med lidt kode om hvordan du udlåner værktøj nu - så er det måske lidt nemmere at lave et løsningsforslag.

Niels

Niels> jeg vender tilbage, der er et møde der forventer min deltagelse :(
avj

Der skal være et Ja/Nej-felt i tabellen som formularen bygger på.
I forespørgslen som formularen bygger på tilføjes et felt, som du
selv konstruerer:
Hvis Ja/Nej-feltet hedder Udlånt skriver du som feltnavn
ErUdlånt:IIF([Udlånt] = -1;"Udlånt";"").

Det nye felt kan nu bruges som ethvert andet felt i tabellen og
har enten værdien "Udlånt" eller er tomt.

Feltet ErUdlånt opdatereres med en Til/Fra-knap bundet til feltet Udlånt.

Tak for jeres svar og tålmodighed :))jeg har fordelt point.
VH avj