AccessTr.neT

Tam Versiyon: Etiket Adını Kalıcı Olarak Butonla İle Değiştirme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
Merhaba Arkadaşlar,
Ekte örnekte form1 de bir adet etiket bir adet buton bulunmaktadır.
Yapmak isteğim butona tıkladığımda etiket alanına gelecek bilginin kalıcı olarak keydetmesi. Formu kapatıp açtığımda daha önce tıklamış olduğum bilgi gelmesini istiyorum. Yardımlarınızı rica ederim.
(10/09/2018, 11:28)sertac76 yazdı: [ -> ]Merhaba Arkadaşlar,
Ekte örnekte form1 de bir adet etiket bir adet buton bulunmaktadır.
Yapmak isteğim butona tıkladığımda etiket alanına gelecek bilginin kalıcı olarak keydetmesi. Formu kapatıp açtığımda daha önce tıklamış olduğum bilgi gelmesini istiyorum. Yardımlarınızı rica ederim.

Kalıcı olarak değiştirilecek etiket adını nereden alacak?

Sorunuzu biraz daha açabilir misiniz? Ne yapmak istediğinizi tam anlayamadım?
Ekteki gibi bir şey hazırladım ama isteğinizi karşılar mı bilemedim.
Sayın Alllback,
Örneğinizi inceledim. Tablo kullanmışsınız tablo kullanmadan etiketin caption kısmını butona tıklayarak kalıcı olarak yapmak istiyorum.
Bir proje yapacağım etiket adı,yüksekliği vs. alanlarını tablodan dloop yapmadan kullanacağım. Çünkü çok ağır oluyor.
Uygulama açılıp form açıldıktan sonra buton tıklandığında isim değişecek ise modüle yazılacak değişken ile yapılabilir.  Form kapanıp tekrar açıldığında etikette yeni isim yazar. 

Ancak uygulama kapatılıp açıldığında etikette yeni ismi göremezsiniz. Uygulama kapandığında görebilmek için tablo kullanmaktan başka çözüm yok.
Sayın ozanakkaya
Yardımınız için teşekkürler tablo olarak 100 tane etikete Dlookup yaparak formun açılış olayına denedim bilgiler ağır geliyor bu şekilde. Tek tıklama şeklinde olur diye tahmin ediyorum bir nevi etiketlerin caption özelliğini set etmesi gerekir.
Merhaba,

Belki birisinin işine yarayabilir. Benim için 100 etiketli bir forma Dlookup yaparak tablodan gelmesi uzun sürüyordu.
Bu şekilde tabloda forma bir kere set ederek form açılma süresi düştü.




Kod:
Sub zz()
Dim Frm As String
Frm = "Form1"
DoCmd.Close acForm, Frm
DoCmd.OpenForm Frm, acDesign
Forms(Frm).Etiket1.Caption = "Test"
DoCmd.Close acForm, Frm, acSaveYes
DoCmd.OpenForm Frm, acNormal
End Sub

Kod:
Private Sub Komut1_Click()
Call zz
End Sub
Sayfalar: 1 2 3