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
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