AccessTr.neT

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.

ozguryasin

ercansahin

Kur@l

ercansahin

ozguryasin

ercansahin