Tabloda hücre birleştirme

[lerashasan]

Merhabalar

Tablomda Adı, Soyadı, Firma Adı var ve ben birleştir diye bi alan daha ekleyip o alana adı,boşluk,soyadı,boşluk,firma adının gelmesni istiyorum mümkünmüdür

 

[cyberwolf1980]

mumkundur ancak tablo uzerınde degıl form uzerınde yapılabılır.

 

[lerashasan]

Peki Form Üzerinde İşim Yok ve Ben Bunu Tabloya yazdırmam Gerekiyor

 

[omerceri]

Sn lerashasan
Bu işlemi tabloda gerçekleştirilebilir ama gereksiz. Bu işlemi sorguda gerçekleştirebilirsiniz. bir sorgu hazırlayıp, tüm alanları dahil edin, tasarım modunda açın, tablonun sağında, alanlarından sonraki ilk sütunun Alan yazan kısmına;
Tümü: [Adı]&" "&[Soyadı]&" "&[firma] yazın.

 

[lerashasan]

Sn lerashasan
Bu işlemi tabloda gerçekleştirilebilir ama gereksiz. Bu işlemi sorguda gerçekleştirebilirsiniz. bir sorgu hazırlayıp, tüm alanları dahil edin, tasarım modunda açın, tablonun sağında, alanlarından sonraki ilk sütunun Alan yazan kısmına;
Tümü: [Adı]&" "&[Soyadı]&" "&[firma] yazın.

BU şekilde Tabloya yzarmı yada EN Azından
sorguyu liste kutusunda gösterdigimde bu alanı görürmü

bENİM tABLOYA yAZDIRMAM gEREKİYORKİ sONRA aRAMA yAPTIRAYIM

 

[modalı]

Sorgular tabloların işlenmiş halidir. Pek tabi ki istediğiniz yerde görünürler

İyi çalışmalar

 

[lerashasan]

Sorgular tabloların işlenmiş halidir. Pek tabi ki istediğiniz yerde görünürler

İyi çalışmalar

Ben Sizi Ugraştırıyorum Özür Dİlerim ama
Tam Olarak Yapmak istedigim

Private Sub Metin12_AfterUpdate()
Dim txtSearchString As Variant
Dim strSQL As String

txtSearchString = Me![Metin12]

If Not IsNull(Me![Metin12]) Then
strSQL = "SELECT [CARİ].[OTM],[CARİ].[ADI],[CARİ].[FİRMA ADI] FROM [CARİ] "
strSQL = strSQL & "WHERE (([CARİ].[ADI]) Like '" & "*" & txtSearchString & "*') "

End If
Me!Liste2.RowSource = strSQL
End Sub

Yukarıdaki Komutta Metin 12ye yazılanı Sadece adı sütünunda Arıyor ben tüm sütünlarda arasın istiyorum

 

[modalı]

Sayın lerashasan,

Tabiki sadece adı alanında arayacak.

strSQL = strSQL & "WHERE [COLOR=red](([CARİ].[ADI])[/COLOR] Like '" & "*" & txtSearchString & "*') "

Pek emin değilim ama şöyle bir deneyin:

strSQL = strSQL & "WHERE (([CARİ].[ADI]) Or [CARİ].[OTM] OR [CARİ].[FİRMA ADI] Like '" & "*" & txtSearchString & "*') "

İyi çalışmalar

 

[lerashasan]

Sayın lerashasan,

Tabiki sadece adı alanında arayacak.

strSQL = strSQL & "WHERE [COLOR=red](([CARİ].[ADI])[/COLOR] Like '" & "*" & txtSearchString & "*') "

Pek emin değilim ama şöyle bir deneyin:

strSQL = strSQL & "WHERE (([CARİ].[ADI]) Or [CARİ].[OTM] OR [CARİ].[FİRMA ADI] Like '" & "*" & txtSearchString & "*') "

İyi çalışmalar

Malesef Kod Hatada Vermedi ama çalışmıyorda

 

[modalı]

Bu konuda arabulgit diye bir örnek eklenmişti foruma. Arama ile bulup inceleyin. Ayrıca bir aralar epey işlenmişti bu konu oraya bakın daha ilginç çözümler bulabilirsiniz. Yanlız bir bir de metin kutusu değilde ActiveX denetimlerinden Microsoft Forms TextBox ile deneyin yapmak istediğinizden daha güzel sonuç alacaksınız.

İyi çalışmalar