Tablo Haricinde Veri Saklama

çok güzel olmuş sn.feraz tam istediğim gibi ellerinize sağlık

(02/02/2020, 20:59)accessman yazdı: çok güzel olmuş sn.feraz tam istediğim gibi ellerinize sağlık

Beklediğim cevap buydu
Rica ederim ve sayın @berduş hocamıza asıl teşekkür etmek gerek kod için

Aslında şöyle mantıklıydı.Sonuçta farketmez lakin ne olur ne olmaz.

MdlKlasorAd modülüne sadece const yani Public Const xKlasorAd As Variant = "xxx" ekleyip

Buton kodlarınıda alttaki gibi yapma daha iyi.

Private Sub Komut1_Click()



    Dim GGuncelle

    GGuncelle = InputBox("Form Adini Yaziniz", "Form Ad Yaz")

    If GGuncelle = "" Or IsNull(aa) Then

        MsgBox "iptal edildi", vbExclamation, "iptal"

        Exit Sub

    End If





'hy_Modülün kodun değiştirme_________________

          If MsgBox("Klasör Adi " & vbNewLine & vbNewLine & "      " & GGuncelle & vbNewLine & vbNewLine & "Olarak Güncellensin mi?", vbYesNo) = vbYes Then

              Dim CodeMod_Mdl As Object

              Set CodeMod_Mdl = Application.VBE.ActiveVBProject.VBComponents("MdlKlasorAd").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) Like "Public Const xKlasorAd As Variant*" Then 'aradığımız değeri bulunca aşağıdaki değerle değiştirir

                          .ReplaceLine i, "Public Const xKlasorAd As Variant = " & """" & GGuncelle & """"

                          GoTo var:

                      End If

                  Next i

              End With

var:

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

End Sub