Napisi funkciju kojoj prosledjujes caption dugmeta koje si kliknuo. Nekako ovako (pseudo kod, nemoj da cut/paste)
sub MojeDugme_OnClick()
Call FunkcijaKojaOtvaraLager (strWhere:= me.Caption)
end sub
U nekom modulu imas ovakvu funkciju
public function FunkcijaKojaOtvaraLager (strWhere as string)
docmd.OpenForm FormName:=frmLager,WhereCondition:=strWhere
end function
Kad budes imao 100 dugmadi, na svako treba da dodas kod MojeDugme_OnClick(). Ovo bi verovatno moglo da se uradi i tako da se ne ide kroz event proceduru, nego da se funkcija poziva direktno, u kom slucaju samo kopiras dugme 100 puta i podesis caption. Ako stignem, napravisu ti primer za ovo.