AccessTr.neT

Tam Versiyon: lisanslama örneğindeki makroları kaldırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
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
Ercan Hocam;
Ellerinize sağlık, hızınız ise her türlü takdire şayan...
Teşekkürler Kural hocam.. Sizlerden fırsat bulunca yapıyoruz böyle işleri..Img-grin
teşekkür ederim yardımlarınız için.
Rica ederiz, umarım sorununuza çözüm olmuşuzdur.