birleştirme

[meraklı biri]

Sevgili dostalarım;Bir konuda yine sizlerin yardımına ihtiyacım var.Bir tablodaki "cep tel numarası" alanındaki verileri ,farklı bir yerde peş peşe ,bir karakter boşluk bırakarak ,birleştirmek istiyorum.Nasıl yapabilirim.Yardımcı olursanız sevinirim.Saygılerımla

 

[Taruz]

Sn. meraklı biri

Ben, bu işlemin form üzerinde yapılışı konusunda fikir verebilirim. Sorgu üzerinde eminim ki bir çözümüde vardır.


Tablonuza bağlı otomatik bir sekmeli form oluşturup tasarımda açın. Alta bir tane daha metin kutusu ekleyip ismini cepkutu yapın, ilişkisiz olsun. Formun özellikler/olay/açıldığında [olay yordamı] na şu kodu yazın:

Dim rst As New ADODB.Recordset
Dim cep As String
rst.Open "kişiler", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rst.MoveFirst
 For i = 0 To rst.RecordCount - 1
       cep = cep & rst("cep tel numarası") & " "
       rst.MoveNext
 Next i
Me.cepkutu.Value = cep
rst.Close
Set rst = Nothing

Formu açtığınızda, yeni eklediğiniz metin kutusunda tüm cep numaralarını araları boşluklu olarak görebileceksiniz.

Saygılar..

 

[meraklı biri]

Sn Taruz,hata veriyor

Sn Taruz,galiba ben beceremedim kod girdikten sonra hata veriyor.Bir ara Comple error yazdı.Eğer benimacces formumu doldurup gönderebilirseniz çok sevinirim.Saygılarımla

 

[Taruz]

Yapılmış Hali:

 

[meraklı biri]

güncellemiyor

Sn Taruz her şeyden önce özel ilginize teşekkür ediyorum.Yeni kişi kaydı girdiğimde yen kayıtlar birleşme alanına geçmiyor.Bu konuda tekrar yardımcı olmanız dileğiyle saygılar

 

[Taruz]

Merhaba...

Aynı kodu formun güncelleme sonrasında olayına da yazın, yeni kayıt yaptığınızda da gösterir.

Saygılar..

 

[meraklı biri]

teşekkürler

Sn Taruz çok teşekkür ederim saygılar

 

[meraklı biri]

sorgulamada birleştirme

Sn Taruz ;Sizinle öğrendiklerimizi uygulamamnın ayrıcalığını ve mutluluğunu yüreğimde hissediyorum.Size ne kadar teşekkür etsem azdır.Merak ettiğim sorgulamada nasıl yapabiliriz bu birleştirmeleri.Yardımcı olursanız size çok teşekkür edeceğim saygılarımla

 

[beab05]

Merhaba;

"Birlestir" isimli sorguyu inceleyiniz..

 

[Taruz]

Sn. beab05 tek atışta bitirmiş işi.. Bende, kişilere ait tüm telefonları tek hücrede görmek istediğinizi düşünerek, (yine beab05'in başka bir soruya verdiği cevaptan fazlasıyla esinlenerek ) sorguya bağlı alt formlu bir örnek yapmıştım, çöpe gitmesin

Selamlar..

 

[meraklı biri]

birleştirmedeki bazı istekleri

Sn Taruz ve Sn beab05 ve diğer dostlarım ;Benim birleştirme sorumla ilgilendiğiniz için teşekkür ederim.Yukarıda yanıtladığınız dosyaları incelediğimde birleşmelerin form dosyasında gerçekleştiğini gördüm.Yalnız benim bazı özel isteklerime vevap vermiyor.Özel isteğim şu.1-Birleşmeler arasındaki boşluk tek karakter olacak 2-Meslek gruna göre,form üzerinde süzme yaptığımda , sorgu kaydı yapmadan ,kaydetmeksizin yine meslek grubuna göre; otomatik ,süzerek ,yine birleşme gerçekleşsin ama tek harf boşluk kararkterine göre birleştirsin 3-Telefon kaydı bulunmayan kişilerin verisine göre birleştirmeleri esnasında ,yine birleştirmede aradaki boşluk karakteri bir tane olsun (Yukarıdaki örneklerde,telefon kaydı bulunmayanlarda birleşme olduğu ve fakat aradaki harf karakterinin ,telefon verisinin bulunup bulunmamasına göre 1 - 2- 3 vehatta 4 karakter boşluk olduğu gözlemlenmektedir. Ekteki soru3 örneğini inceleyerek ,formülleri uygulanmış şekliyle cevaplandırırsanız sevinirim.Saygılarımla

 

[Taruz]

Sn. meraklı biri

Her iki örnekte de birleştirmeler sorgu üzerinde gerçekleştiriliyor. Araları da boşluklu.. Sorguyu bu hali ile de istediğiniz gibi süzebilirsiniz.

Sorunuz kafamı karıştırdı, isteğinizi net olarak anlamadım açıkçası.

Saygılar

 

[meraklı biri]

Merhaba;

"Birlestir" isimli sorguyu inceleyiniz..

Sn beap05 ;sizin yaptığınız "hepsi bir yerde " dosyanızdaki sorgudaki birleştirme mükemmel.Yalnız boşluklarda 2 harf karakteri var bunu tek karaktere indirmek için ne yapmam gerekeiyor.Yazarsanız ayrıca ilgili acces sorgusuna formülü yerleştirirseniz memnun kalırım .Teşekkürler

 

[beab05]

Merhaba;
Moduldeki,

Function Concatenate(pstrSQL As String, Optional pstrDelim As String = [COLOR="DarkOrchid"]" "[/COLOR]) As String

Renkli kısım aradaki boşluktur tırnaklar içine karakter koyarsanız da o karakter yer alır aralarında..

Hepsibiryerde örneği benim değil Taruz'undur, beap değil beab'tır

 

[mehmetdemiral]

Beab05.. Son mesaj birleştirmeden çok düzeltme biçiminde olmuş...

 

[meraklı biri]

Ad soyadd ayırma

Ekteki ad soyad sorgusunda bier eksiklik var galiba. inceleyip cevap verirseniz sevinirim saygılar

 

[Taruz]

Ekteki ad soyad sorgusunda bier eksiklik var galiba. inceleyip cevap verirseniz sevinirim saygılar

Merhaba..

Soyadını

soyadı: Right$([adısoyadı];Len([[COLOR=red]adısoyadı[/COLOR]])-InStr(1;[adısoyadı];" "))

olarak değiştirin..

 

[meraklı biri]

Çok teşekkür Sn Taruz

 

[meraklı biri]

Sn Taruz En son yaptığınız ad soyad ayırma formülü güzel oldu.Ancak bu konu ile ilgili bir nokta daha var. Ad iki isimden meydana gelmiş ise onu nasıl yapacağız Örnek " adı : Hasan Basri Soyadı :Okumuş " isimli bir kayıt var diyelim.Şimdiki formül "adı: Hasan Soyadı :Basri Okumuş " olarak belirtiyor.Bunu nasıl düzeltebiliriz.Bunu da aydınlatırsanız sevinirim.Saygılar

 

[modalı]

Arkadaşlar soru sormadan önce forumda arama yapın.

http://www.excel.web.tr/showthread.php?t=21727&highlight=Ad+soyad