Tablo Haricinde Veri Saklama

1 2 3 4 5 6
02/02/2020, 20:59

accessman

çok güzel olmuş sn.feraz tam istediğim gibi ellerinize sağlık
02/02/2020, 22:48

feraz

(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
02/02/2020, 22:54

feraz

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
1 2 3 4 5 6