Access SQL   ›   ACCESS SORULARI VE ÖRNEK UYGULAMALARI   ›   ACCESS SORULARI   ›   [FORM] Etiket Adını Kalıcı Olarak Butonla İle Değiştirme

[FORM] Etiket Adını Kalıcı Olarak Butonla İle Değiştirme
hturkavci03
Kıdemli Üye 400-1000

*
Kayıt Tarihi: 08.12.2010
Toplam 62 konu açtı.
Toplam 840 yorum yaptı.
Toplam 7 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2010 TR,
Beğeniler: 0 / 1
#7
11-09-2018, 20:14
Formu açıp tıklama ile etikete istediğinizi yazdırıyorsunuz. Etikete yazdırdığınız yazıyı neden butonla yazdırıyorsunuz. Buton tıklandığında olayında kullandığınız kodu formun açıldığında olayında kullanırsanız zaten isteğiniz olacaktır.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.778 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#8
12-09-2018, 00:54
Visual Basic
  1. Sub zz()
  2. Dim Frm As String
  3. Frm = "Form1"
  4. DoCmd.Close acForm, Frm
  5. DoCmd.OpenForm Frm, acDesign
  6. Forms(Frm).Etiket1.Caption = "Test"
  7. DoCmd.Close acForm, Frm, acSaveYes
  8. DoCmd.OpenForm Frm, acNormal
  9. End Sub



Visual Basic
  1. Private Sub Komut1_Click()
  2. Call zz
  3. End Sub



veya FormEtiket adinda bir tabloda formAdi, OrijinalAdi, TakmaAd sutunlari ile asagida ki prosedurleri calistirmayla yapilabilir.

Visual Basic
  1. Private Sub Form_Load()
  2. Dim Nes As Control
  3. For Each Nes In Me.Controls
  4. If DCount("*", "FormEtiket", "FormAdi='" & Me.Name & "' And OrijinalAd='" & Nes.Name & "'") > 0 Then Me.Controls(Nes.Name).Caption = DLookup("TakmaAd", "FormEtiket", "FormAdi='" & Me.Name & "' And OrijinalAd='" & Nes.Name & "'")
  5. Next Nes
  6. End Sub


Visual Basic
  1. Private Sub Komut1_ClickX()
  2. Dim HangiEtiket As String, Cvp As Variant
  3.  
  4.  
  5. HangiEtiket = "Etiket1"
  6.  
  7. Cvp = InputBox("Adi Ne Olacak", "NESNE", 0)
  8.  
  9. If DCount("*", "FormEtiket", "FormAdi='" & Me.Name & "' And OrijinalAd='" & HangiEtiket & "'") > 0 Then
  10.     CurrentDb.Execute "UPDATE FormEtiket Set TakmaAd='" & Cvp & "' Where (((FormAdi)='" & Me.Name & "') And ((OrijinalAd)='" & HangiEtiket & "'))"
  11. Else
  12.     CurrentDb.Execute "INSERT INTO FormEtiket ( FormAdi, OrijinalAd, TakmaAd ) VALUES('" & Me.Name & "', '" & Me.Etiket1.Caption & "', '" & Cvp & "')"
  13. End If
  14. Call Form_Load
  15.  
  16. End Sub



Etiket adlarini verme ile hangi etiket icin ne olmaliyi belirlemelisiniz.
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
sertac75
Aktif Üye 40-100

*
Kayıt Tarihi: 23.12.2008
Toplam 17 konu açtı.
Toplam 47 yorum yaptı.
Toplam 0 puanı bulunmakta.
Beğeniler: 0 / 0
#9
12-09-2018, 08:10
Sayın dsezgin,
İlk örneğiniz tam istediğim şekilde çok teşekkürler emeğiniz için.



  Bul
  Alıntı
Bu mesajı beğenenler:
kamil_55
Aktif Üye 40-100

*
Kayıt Tarihi: 15.04.2020
Toplam 6 konu açtı.
Toplam 90 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 2 / 0
#10
13-12-2021, 00:55
sn. dsezgin, peki formumuzda bulunan bir seçenek grubu çerçevesinde bulunan seçenek etiketlerinin isimlerini form üzerinden değiştirebiliyor muyuz? Teşekkürler.



  Bul
  Alıntı
Bu mesajı beğenenler:
dsezgin
Forum Yöneticisi

*
Kayıt Tarihi: 24.03.2013
Toplam 26 konu açtı.
Toplam 8.778 yorum yaptı.
Toplam 1.011 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2013,
Beğeniler: 49 / 213
#11
13-12-2021, 03:08
(13-12-2021, 00:55)kamil_55 demiş ki: sn. dsezgin, peki formumuzda bulunan bir seçenek grubu çerçevesinde bulunan seçenek etiketlerinin isimlerini form üzerinden değiştirebiliyor muyuz? Teşekkürler.

Koşul olarak etiket başlığını(caption) değiştirirsiniz.
Misal:

me.Etiket1.caption=iif(me.Secenek=1,"Access","Excel")


.rar   Secenek.rar (Boyut: 20,85 KB / İndirilme: 21)
Access Fonksiyonlarının(Deyimler), Sorgu da kullanımı
Rapor veya-Pdf-Dosyalarını Birleştirme Uygulaması



  Website   Bul
  Alıntı
Bu mesajı beğenenler:
kamil_55
Aktif Üye 40-100

*
Kayıt Tarihi: 15.04.2020
Toplam 6 konu açtı.
Toplam 90 yorum yaptı.
Toplam 0 puanı bulunmakta.
Mevcut Office Sürümü:
Office 2016,
Beğeniler: 2 / 0
#12
13-12-2021, 22:50
sn.dsezgin, öncelikle teşekkürler. sizin bu konuda yukarıda ikinci bir tercih olarak sunduğunuz aşağıdaki kodu seçenek grubundaki etiket adlarını değiştirmede nasıl kullanabiliriz? Yani etiket adlarını değiştirmek istediğimizde bize "hangi etiketin adının ne olacağını sorsun" istiyoruz mümkünse.


Visual Basic
  1. Private Sub Komut1_ClickX()
  2. Dim HangiEtiket As String, Cvp As Variant  
  3. HangiEtiket = "Etiket1" 
  4. Cvp = InputBox("Adi Ne Olacak", "NESNE", 0) 
  5. If DCount("*", "FormEtiket", "FormAdi='" & Me.Name & "' And OrijinalAd='" & HangiEtiket & "'") > 0 Then   
  6. CurrentDb.Execute "UPDATE FormEtiket Set TakmaAd='" & Cvp & "' Where (((FormAdi)='" & Me.Name & "') And ((OrijinalAd)='" & HangiEtiket & "'))"
  7. Else   
  8. CurrentDb.Execute "INSERT INTO FormEtiket ( FormAdi, OrijinalAd, TakmaAd ) VALUES('" & Me.Name & "', '" & Me.Etiket1.Caption & "', '" & Cvp & "')"
  9. End If
  10. Call Form_Load
  11.  End Sub





  Bul
  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Gmaile Etiket Oluşturma Access Ziyaretçisi 73 1.021 15-05-2024, 08:54
Son Mesaj: dsezgin
  [FORM] Onay Kutususun şarta Bağlı Olarak Otomatik Olarak Işaretlenmesi Samih KARSLI 2 164 06-04-2024, 18:49
Son Mesaj: Samih KARSLI
access-sql-11 [FORM] access ıcon değiştirme oosmaner 5 815 08-02-2024, 12:43
Son Mesaj: BeyTor
  Aktarım Yaparken Dosya Adını Değiştirme zimbit 4 122 04-02-2024, 00:42
Son Mesaj: zimbit
  [RAPOR] Rapor Fontunu Değiştirme ates2014 6 169 25-01-2024, 15:15
Son Mesaj: ates2014
  [VBA] Pc. Tarih Formatını Değiştirme ates2014 8 222 09-01-2024, 09:18
Son Mesaj: ates2014
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 175 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Virgülle Ayrılmış Verilerin Her Bir Değerini Yeni Kayıt Olarak Ekleme adnnfrm 5 181 28-11-2023, 01:37
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi