(25/05/2023, 13:23)C*e*l*o*y*c*e yazdı: 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
hocam kodu denedim olmadı aynı sorun devam ediyor.