Listbox İle İlgili

1 2
17/05/2018, 17:19

sidd

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.
17/05/2018, 19:02

A.Kadir.

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.
17/05/2018, 19:39

sidd

(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?
17/05/2018, 21:15

A.Kadir.

Aynen yanilmiyorsunuz
18/05/2018, 00:47

sidd

(17/05/2018, 21:15)A.Kadir. yazdı: Aynen yanilmiyorsunuz

Peki nasıl yazabiliriz Kadir Bey? Bir çözüm yolu yok mu?
18/05/2018, 02:14

ozguryasin

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.
1 2