lisanslama örneğindeki makroları kaldırma

04/09/2010, 00:30

ozguryasin

saygı değer www.accesstr.net ailesi
ekte vermiş olduğum lisans programı sayfamızdan alınmıştır. içerisinde makrolar mevcut makroları iptal edip makroların yaptığı işleri nasıl vb koduna çevirip programı çalışır hale getirebiliriz.
yardımlarınız için şimdiden teşekkürler.
04/09/2010, 00:38

ercansahin

BOYUT makrosunun kod'a dönüştürülmüş hali için
Modül1
Kod:
Function BOYUT()
On Error GoTo BOYUT_Err

    DoCmd.MoveSize , , 8222, 6521

BOYUT_Exit:
    Exit Function

BOYUT_Err:
    MsgBox Error$
    Resume BOYUT_Exit

End Function

kapadisk makrosunun dönüştürülmüş hali;
Modül2
Kod:
Function kapadisk()
On Error GoTo kapadisk_Err

    DoCmd.Close acForm, "Lisans_00"
    DoCmd.OpenForm "Lisans_02", acNormal, "", "", , acNormal

kapadisk_Exit:
    Exit Function

kapadisk_Err:
    MsgBox Error$
    Resume kapadisk_Exit

End Function
04/09/2010, 00:52

Kur@l

Ercan Hocam;
Ellerinize sağlık, hızınız ise her türlü takdire şayan...
04/09/2010, 01:07

ercansahin

Teşekkürler Kural hocam.. Sizlerden fırsat bulunca yapıyoruz böyle işleri..
04/09/2010, 03:03

ozguryasin

teşekkür ederim yardımlarınız için.
04/09/2010, 23:39

ercansahin

Rica ederiz, umarım sorununuza çözüm olmuşuzdur.