On error resume next

Merkfeldname = ""

MerkFeldname = Screen.Activecontrol.Name

On Error goto ...



'...



If Merkfeldname "" then Me(Merkfeldname).Setfocus

Gruß aus dem Norden

Reinhard

---

Bitte immer die Access-Version angeben

---

 

geschrieben von Reinhard Kraasch , 19.04.2006, 16:44 Uhr , 12 mal gelesen