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
Task