herhangi bir modüle değişkenleri kaydedersiniz değiştirmek istediğiniz zaman modüldeki değeri değiştirip o şekilde kaydeder
daha önce bir çalışmada aşağıdaki kodu kullanmıştım
MdlKlasorNo modülüne kaydettiğimiz xKlasorNo değişkenini istediğimiz zaman istediğimiz değerle değiştirebilirsiniz
'hy_Modülün kodun değiştirme_________________
If MsgBox("Klasör Sayısı " & GGuncelle & " Olarak Güncellensin mi?", vbYesNo) = vbYes Then
Dim CodeMod_Mdl As Object
Set CodeMod_Mdl = Application.VBE.ActiveVBProject.VBComponents("MdlKlasorNo").CodeModule 'modülü açar
With CodeMod_Mdl
For i = 1 To .CountOfLines 'ilk satırdan son satıra kadar tüm satırları tarar
If .Lines(i, 1) = "Public Const xKlasorNo As Long = " & xKlasorNo Then 'aradığımız değeri bulunca aşağıdaki değerle değiştirir
.ReplaceLine i, "Public Const xKlasorNo As Long = " & CLng(GGuncelle)
End If
Next i
End With
'MdlKayıt kaydetme Deneme_________
DoCmd.Save acModule, CodeMod_Mdl
DoCmd.Close acModule, CodeMod_Mdl, acSaveYes
'MdlKayıt kaydetme Deneme_________BİTTİ
End If
' Modülün kodun değiştirme_________________BİTTİ