ç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