Skip to main content

AccessTr.neT


Tablo Haricinde Veri Saklama

Tablo Haricinde Veri Saklama

Çözüldü #1
İ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
@benbendedeilem
Cevapla
#2
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.
Cevapla
#3
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
Cevapla
#4
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.
Cevapla
#5
değer listesine runtime yani son kullanıcı tarafından nasıl değer ekleyebiliriz  yani program yapım aşaması bittikten sonra
Cevapla
#6
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İ
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task