Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/09/2009 14:00
Konu Sahibi
passenger
Yorumlar
8
Okunma
3319
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

passenger

Hesap Aktif Değil
Aktivasyon Bekleyen
53
15/07/2009
İzmir
Ofis 2007
10/10/2010,14:56
Çözüldü 
merhaba değerli hocalarım, arkadaşlar,

benim yapmaya çalıştığım birşey var, yardımcı olursanız sevinirim:

ekteki dosyada Form2'yi kullanarak, formun sol bölümünde yer alan listboxta seçili her bir item için, analizType, analizStatus, analizRemarks alanlarına veri girip, aşağıdaki butona basınca tüm veriyi en alt kutudaki analizremarkshistory alanına birleştirerek yazmak istiyoruz. Daha önce Seruz hoca bunu yapmıştı ancak şimdi yeni bir durum var: analiztype bölümü de listbox şeklinde olacak ve burada seçilen tüm itemları da bir şekilde history içine ve ilgili tablodaki (ref_table) yazdırmamız gerekiyor.
örneğin analiztype'da hem economic, hem non-economic seçili olunca, aşağıda (Date of Record : 14.09.2009 / Type: Economic + Non-economic / Statu: ** N/A ** / Remark: ) ___ gibi bir ifade görünsün istiyorum.

müsait olan hocalardan/arkadaşlardan acil yardım rica ediyorum.
şimdiden teşekkürler..


Ek Dosyalar
.rar   Report_final_1.rar(Dosya Boyutu: 53,82 KB / İndirme Sayısı: 12)

Kullanici Avatari

Nurullah_Serdar

FaTSaLı
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
Private Sub analizType_Click()
Dim liste As String
Dim sayi As Variant

If Me.analizType.ItemsSelected.Count = 0 Then
liste = ""
Me.analizRemarksHistory = "(Date of Record : " & Date & " / Type: " & " " & liste & " / Statu: " & " " & Me.analizStatus & " " & " / Remark: " & Me.analizRemarks & ") ___ "

Else
For Each sayi In Me.analizType.ItemsSelected
liste = liste & Me.analizType.Column(0, sayi) & "+"
Next sayi
liste = Left$(liste, Len(liste) - 1)

Me.analizRemarksHistory = "(Date of Record : " & Date & " / Type: " & " " & liste & " / Statu: " & " " & Me.analizStatus & " " & " / Remark: " & Me.analizRemarks & ") ___ "

End If
End Sub

yazdığım kodu analiztype liste kutusunun click olyına yapıştır. burada sana liste kutusunda seçili olan kaç tane değer varsa verecek. bunu nereye eklemek istiyorsan ekleyebilirsin.
kolay gelsin


İyiki Varsın Access Img-grin

Kullanici Avatari

passenger

Hesap Aktif Değil
Aktivasyon Bekleyen
53
15/07/2009
İzmir
Ofis 2007
10/10/2010,14:56
Çözüldü 
Nurullah hocam merhaba,

kod için teşekkürler. yaptım çalışıyor ancak bir sorun var.
analiztype'da seçili olanlar ref_table içinde ilgili alana yazılmıyor. ben, sizin yaptığınıza (farklı alanları bir yerde birleştirme) ilaveten, seçili olanın da ref_table içine yazılmasını istiyorum. bu nasıl olur?

teşekkürler..



Kullanici Avatari

Nurullah_Serdar

FaTSaLı
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
daha önce yazdığım kodun en altına
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

kaydetme kodunu ekle. değeri oraya atar ve kaydı daydeder.


İyiki Varsın Access Img-grin

Kullanici Avatari

benremix

Onursal Üye
Onursal Üye
RA.... SO....
4.440
17/05/2009
365
Ankara
Şirket Sahibi
Ofis 2010 64 Bit
Dün,07:41
Çözüldü 
Katkı ve paylaşımlarınız için teşekkürler. Sn Nurullah_Serdar bugünkü performansınızdan dolayı tebrik ederim. Saygılar...
10806


Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi



Kullanici Avatari

Nurullah_Serdar

FaTSaLı
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
hep böyle olmayı herkes ister ama işler ne yazıkki. ayda yılda bir olan bir durum bu. umarım hep buna yakın fırsatlar bulabilirim.
herkese kolay gelsin.


İyiki Varsın Access Img-grin


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Birden Fazla Tabloya Kayıt Yapmak m_demir 9 265 28/05/2018, 01:10 m_demir
Çözüldü Tek Butonla Birden Fazla Altformları Gizleme-gösterme. fascioğlu 12 323 13/05/2018, 01:11 fascioğlu
Çözüldü Birden Fazla Geçerlilik Kuralı Yazmak muharremB 2 119 09/05/2018, 12:04 muharremB
Çözüldü Liste Kutusunda Bulunan Veriyi Yazdırma. fascioğlu 6 161 07/05/2018, 01:20 fascioğlu
Çözüldü Ay Seçimine Göre Başlangıç Günü Ve Son Günü Metin Kutusuna Yazdırma kayaaltin 2 147 20/04/2018, 18:33 kayaaltin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.