Etiketnavn til funktion

Og så lige spørgsmålet!!

Hvordan får jeg fat i navnet på etiketten??

Ja, det er netop problemet, hvis det skal være automatiseret.
Etiketter kan jo ikke få focus, hvorfor du ikke kan bruge Activecontrol eller lign.
Du kan selvfølgelig lave koden til hver etikette individuelt:

private sub etiket_klik()

    function vedklik("etiket")

end sub

Men det er jo næppe det, som du ønsker....

Hvis du derfor kunne acceptere at benytte textbokse i stedet for etiketter, så kunne du bruge koden:

private sub text1_Click()

    function vedklik(screen.Activecontrol.name)

end sub


Din VedKlik-funktion skal om alle omstændigheder lige laves lidt om:
public function vedklik(strNavn as String)

strSQL = "SELECT * FROM tabel WHERE etnavn = '" & strNavn & "'"

end function

Jeg kunne muligvis også bruge knapper.
Nå, men det jeg ledte efter var under alle omstændigheder "screen.Activecontrol.name", så jeg takker...

Perfekt - takker :o)