[VBA] komutla forma etiket ekleme
#1
form üzerine komut yardımıyla etiket veya buton nasıl ekleyebilirim?



  Alıntı
Bu mesajı beğenenler:
#2
selam
amaç nedir



  Alıntı
Bu mesajı beğenenler:
#3
form üzerinde komut düğmesine tıkladığımda başka bir form açsın ve üzerine diyelim ki 3 tane etiket eklesin.



  Alıntı
Bu mesajı beğenenler:
#4
Sn afatsum75; Form goruntuleme halinde nesne ekleme hata verir. Tasarim olarak acip, nesnelerin olusturulmasi ile restore edildikten sonra form gorunumu yapilabilir. Var olan etiketlerin goruntuleme kosulu ile istenilen yapilabilir.



  Alıntı
Bu mesajı beğenenler:
#5
sn afatsum75 söylediğiniz şekilde işlem yapabilmek için öncelikle formu tasarım modunda açıp arka planda eklenmesi gerekir bunun için bir alt rutin oluşturulabilir, bu da bir komut düğmesi ile çağrılabilir, Alt rutinimiz şu şekilde olabilir.
Visual Basic
  1. Public Sub EtiketEkle()
  2. Dim frm As Form
  3. Dim lbl(2) As Label
  4. Dim tekrar As Integer
  5. Dim a, b, c, d As Integer
  6. a = 100: b = 100: c = 1000: d = 330
  7. DoCmd.OpenForm "FormLabel", acDesign
  8. Set frm = Forms("FormLabel")
  9.  
  10. For tekrar = 0 To 2
  11. Set lbl(tekrar) = CreateControl(frm.Name, acLabel, acDetail, vbNullString, _
  12. vbNullString, a, b, c, d)
  13.  
  14. lbl(tekrar).Caption = tekrar + 1 & ".Etiket"
  15.  
  16. b = b + 500
  17. Next tekrar
  18. Set lbl(0) = Nothing
  19. Set lbl(1) = Nothing
  20. Set lbl(2) = Nothing
  21. Set frm = Nothing
  22.  
  23. End Sub


Daha sonra komut düğmesinin Click olayına
Visual Basic
  1. Call EtiketEkle()


yazılabilir. örnekte ekliyorum.



Eklenti Dosyaları
.rar   EtiketEkle.rar (Boyut: 25,57 KB / İndirilme: 102)



  Alıntı
Bu mesajı beğenenler:
#6
çok teşekkür ederim



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Gmaile Etiket Oluşturma Access Ziyaretçisi 32 409 23-04-2024, 14:00
Son Mesaj: halily
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 166 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 118 24-10-2023, 21:06
Son Mesaj: dsezgin
  [FORM] Forma Arama Ekleyemedim :( finishim 16 528 16-05-2023, 12:44
Son Mesaj: finishim
  Alt Forma Veri Girmek krem 2 217 21-12-2022, 19:15
Son Mesaj: kerrem
  [RAPOR] Access Rapordan Forma Aktarma firatmalkoc 6 270 17-11-2022, 23:21
Son Mesaj: onur_can
  Hazır Forma Yazdırma ankaram 2 135 23-10-2022, 17:19
Son Mesaj: ankaram
  Bir Formdaki Verileri Başka Bir Forma Aktarma Lidervet 4 322 20-10-2022, 11:04
Son Mesaj: Lidervet

Foruma Git:


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