Merhaba

Private Sub klasorgnc_btn_Click()
Dim GGuncelle As String

GGuncelle = CStr(InputBox("***Klasör Sayısını Güncelledikten Sonra Programı Yeniden Başlatınız!..", "Lütfen Güncel Klasör Sayısını Giriniz."))

If GGuncelle = "" Then Exit Sub ' İptal düğmesine basıldığında çıkış yap

If Not IsNumeric(GGuncelle) Then
MsgBox "Hata!!! Lütfen sadece sayı giriniz!"
Exit Sub ' Sayısal olmayan bir değer girildiğinde çıkış yap
End If

If InStr(GGuncelle, ".") > 0 Then
MsgBox "Hata!!! Lütfen sadece tam sayı giriniz!"
Exit Sub ' Ondalık sayı girildiğinde çıkış yap
End If

' Modülün kodunu 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
With CodeMod_Mdl
For i = 1 To .CountOfLines
If .Lines(i, 1) = "Public Const xKlasorNo As Long = " & xKlasorNo Then
.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 kodunu değiştirme_________________BİTTİ
End Sub



bu kodu deneyiniz