[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: 124)



  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 90 4.386 27-09-2024, 13:55
Son Mesaj: Access Ziyaretçisi
  [FORM] Acess Forma Resim Koyma Pasham 14 1.053 25-05-2024, 03:02
Son Mesaj: dsezgin
  Rapor üzerinde önizleme öncesi Etiket Ve Metin Kutularının Yerlerini Değiştirme Hk. adnnfrm 4 545 26-12-2023, 03:42
Son Mesaj: adnnfrm
  Etiket Isimlerini Toplu Değiştirme hedefkaya 1 363 24-10-2023, 21:06
Son Mesaj: dsezgin
  [FORM] Forma Arama Ekleyemedim :( finishim 16 1.208 16-05-2023, 12:44
Son Mesaj: finishim
  Alt Forma Veri Girmek krem 2 530 21-12-2022, 19:15
Son Mesaj: kerrem
  [RAPOR] Access Rapordan Forma Aktarma firatmalkoc 6 724 17-11-2022, 23:21
Son Mesaj: onur_can
  Hazır Forma Yazdırma ankaram 2 388 23-10-2022, 17:19
Son Mesaj: ankaram

Foruma Git:


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