Skip to main content

AccessTr.neT


Listbox İle İlgili

Listbox İle İlgili

Çözüldü #1
Merhaba Kadir Bey,

listbox ile ilgili birkaç sıkıntım var,

1) KayitId nin formatını 5 haneli yaptım(00001) fakat  kayitno diye diğer numaralamaya  yıl+ ay + kayit id eklediğimde 00001 yerine 1 olarak geliyor. keza yandaki kayıtnumarasına da o şekilde geliyor (pozid+yil+ay+kayitid).
2)pozid listede rakam olarak (1,2,3) olarak gözüküyor, yazı olarak yani sutun 2 deki değerleri nasıl gösteririz.
3)listbox ın sonundaki son eleman olan fax dan sonra boxın bitmesini istiyorum ama beyaz uzun bir boşluk eklenmiş sonuna, onu da nasıl yok edebiliriz.
.rar DENEME-2.rar (Dosya Boyutu: 58,44 KB | İndirme Sayısı: 6)
Cevapla
#2
merhaba 
otomatik ıd alanı ile oynamanızı hiç tavsiye etmem.
yani illaki 00001görünmesi isteniyor ise
Kod:
SELECT tblKayitlar.KayitId, tblKayitlar.PozNo, tblKayitlar.KayitNo, "0000" & [KayitId] & "-" & [PozNo] & [KayitNo] AS [KAYIT NUMARASI], tblKayitlar.FirmaUnvan, tblKayitlar.YetkiliKisi, tblKayitlar.Adres, tblKayitlar.Telefon, tblKayitlar.Faks
FROM tblKayitlar
WHERE (((([tblKayitlar].[PozNo]) & "*") Like "*" & [Forms]![frmListe]![txtKayitNoTemp] & "*") AND ((([tblKayitlar].[FirmaUnvan]) & "*") Like "*" & [Forms]![frmListe]![txtFirmaUnvanTemp] & "*") AND ((([tblKayitlar].[YetkiliKisi]) & "*") Like "*" & [Forms]![frmListe]![txtYetkiliKisiTemp] & "*") AND ((([tblKayitlar].[Telefon]) & "*") Like "*" & [Forms]![frmListe]![txtTelefonTemp] & "*"));

gibi yapabilirsiniz.
Universal Form Tasarımı. devamlı güncelleniyor.
SQL TO Vba Convertör.
Cevapla
#3
(17/05/2018, 19:02)A.Kadir. yazdı: merhaba 
otomatik ıd alanı ile oynamanızı hiç tavsiye etmem.
yani illaki 00001görünmesi isteniyor ise
Kod:
SELECT tblKayitlar.KayitId, tblKayitlar.PozNo, tblKayitlar.KayitNo, "0000" & [KayitId] & "-" & [PozNo] & [KayitNo] AS [KAYIT NUMARASI], tblKayitlar.FirmaUnvan, tblKayitlar.YetkiliKisi, tblKayitlar.Adres, tblKayitlar.Telefon, tblKayitlar.Faks
FROM tblKayitlar
WHERE (((([tblKayitlar].[PozNo]) & "*") Like "*" & [Forms]![frmListe]![txtKayitNoTemp] & "*") AND ((([tblKayitlar].[FirmaUnvan]) & "*") Like "*" & [Forms]![frmListe]![txtFirmaUnvanTemp] & "*") AND ((([tblKayitlar].[YetkiliKisi]) & "*") Like "*" & [Forms]![frmListe]![txtYetkiliKisiTemp] & "*") AND ((([tblKayitlar].[Telefon]) & "*") Like "*" & [Forms]![frmListe]![txtTelefonTemp] & "*"));

gibi yapabilirsiniz.

Basa 0000 eklemişsiniz sanırım, basamak olarak degil, o zaman id 125 oldugunda 00125 olarak gözükmeyecek sanki, yanlış mıyım?
Cevapla
#4
Aynen yanilmiyorsunuz
Universal Form Tasarımı. devamlı güncelleniyor.
SQL TO Vba Convertör.
Cevapla
#5
(17/05/2018, 21:15)A.Kadir. yazdı: Aynen yanilmiyorsunuz

Peki nasıl yazabiliriz Kadir Bey? Bir çözüm yolu yok mu?
Cevapla
#6
sn: sidd LST1 sattır kaynağını aşağıdaki sorgu ile değiştiriniz. Değiştirdiğinizde. Kayıt id 00001 olarak devam edecek eklenen her sayıda sadece 5 hane gözükecek.
misal:
00001
00010
00100
01000
01001
         gibi,
SELECT Format([KayitId],"00000") AS [Kayıt ID], tblKayitlar.PozNo, tblKayitlar.KayitNo, tblKayitlar.[KayitId] & "-" & [PozNo] & [KayitNo] AS [KAYIT NUMARASI], tblKayitlar.FirmaUnvan, tblKayitlar.YetkiliKisi, tblKayitlar.Adres, tblKayitlar.Telefon, tblKayitlar.Faks
FROM tblKayitlar
WHERE (((([tblKayitlar].[PozNo]) & "*") Like "*" & [Forms]![frmListe]![txtKayitNoTemp] & "*") AND ((([tblKayitlar].[FirmaUnvan]) & "*") Like "*" & [Forms]![frmListe]![txtFirmaUnvanTemp] & "*") AND ((([tblKayitlar].[YetkiliKisi]) & "*") Like "*" & [Forms]![frmListe]![txtYetkiliKisiTemp] & "*") AND ((([tblKayitlar].[Telefon]) & "*") Like "*" & [Forms]![frmListe]![txtTelefonTemp] & "*"));

bu işlem için format fonksiyonu kullanılır.  format (alanadi; "000000") 
kaç sıfır koyarsanız o kadar sıfır ekler başa rakam büyüdükçe sıfır hane sayısı aynı kalıp sıfırlar azalır, misal de olduğu gibi

bu şekilde yaparsanız, sadece görünürde sıfırları eklemiş olursunuz.
POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da