İyi günler
Proje kapandığında kaybolmasını istemediğimiz kullanıcının istediği zaman değiştirebileceği bir kaç kelimelik bilgieri tablo haricinde nasıl saklayabiliriz
Mesela bunun için label.caption nasıl kullanabiliriz
Label metin kutusunun etkin olmayan kilitli versiyonu gibi
Son kullanıcı bınun degerini nasıl değiştirebilir
İnputbox ile eminmisin diye sorarak label captionu değiştirsek
Vba kodları içerisinde kullanabilir miyiz
Başka yolu var mı acaba
Açılır kutunun Satır kaynak türünü, Değer Listesi yap, ondan sonra içine istediğin kadar veri eklersin silinmez hemde.
evet mantıklı ama nasıl kullanacağım mesela okul adı olarak
"atatürk anadolu lisesi" değerini form rapor başlığı olarak kullanmak istiyorum
ama kullanıcı isterse bunu
"fen lisesi" olarak değiştirebilsin ve bu değişikliği her raporunda kullanabilsin
açılır kutunun değer listesindeki değerleri rapor başlığı olarak nasıl kullanacak
istediği zaman nasıl değiştirecek
Raporun başlık metin kutusunu direk formun üzerindeki açılır kutuya bağlarsan,
açılır kutuda ne seçili ile aynı ismi rapordaki başlık kutusunda görünür.
değer listesine runtime yani son kullanıcı tarafından nasıl değer ekleyebiliriz yani program yapım aşaması bittikten sonra
modül aracılığıyla kaydedebilirsiniz ama ne kadar sağlıklı olur bilemem
herhangi bir modüle değişkenleri kaydedersiniz değiştirmek istediğiniz zaman modüldeki değeri değiştirip o şekilde kaydeder
daha önce bir çalışmada aşağıdaki kodu kullanmıştım
MdlKlasorNo modülüne kaydettiğimiz xKlasorNo değişkenini istediğimiz zaman istediğimiz değerle değiştirebilirsiniz
'hy_Modülün kodun 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 '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) = "Public Const xKlasorNo As Long = " & xKlasorNo Then 'aradığımız değeri bulunca aşağıdaki değerle değiştirir
.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 kodun değiştirme_________________BİTTİ