Arkadaşlar ekleyeceğim programda ihale iş türüne göre, fiyatı en az veren firmanın;
ismini, adresini ve verdiği tutarı "tbl_kim" deki ilgili kısımlara nasıl getirebiliriz?
Merhaba, bu tür sorularda, tbl_ihtiyac tablosunda "asdasd" isminde firma olmamalı ve firma1,firma2 ve firma3 alanlarının tamamı dolu olmalı. "asdasd" diye bir firma firmalar tablosunda yok.
Tamam sayın hocam. Verileri güncelledim.
İki adet sorunum var.
Birincisi: Her ihtiyaç için max. 3 firma seçip atamalıyım. Bu işlemi ürün bazında değilde iş bazında yapmak istiyorum.
İkincisi: Raporda kullanmak üzere; İş konusu bazında en az fiyat teklifi veren firmanın: Verdiği fiyat, Adresi ve Firma adı bilgilerini Tbl_kimo ya nasıl aktarabilirim. Buradan
Dlookup la almayı senaryo ettim.
Listefirma liste kutusunun çift tıklandığında olayındaki kodu aşağıdaki ile değiştir.
On Error GoTo ListefirmaHata
If IsNull(Me.txtsecim) Or Me.txtsecim = 0 Then
Me.txtsecim = 1
Else
Me.txtsecim = Me.txtsecim + 1
End If
If txtsecim = 4 Then
Me.txtsecim = 1
End If
If IsNull(Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim)) Or Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) = "" Then
If MsgBox("ihaleye katılan " & txtsecim & ". firma, " & Me.listefirma.Column(1) & " isimli firma olarak güncellensin mi?", vbYesNo) = vbYes Then
Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) = Me.listefirma.Column(1)
Me.frm_ihtiyac.SetFocus
DoCmd.GoToRecord , , acFirst
Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) = Me.listefirma.Column(1)
For x = 1 To Forms![frm_malzemeler]![frm_ihtiyac].Form.RecordsetClone.RecordCount - 1
DoCmd.GoToRecord , , acNext
Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) = Me.listefirma.Column(1)
Next x
DoCmd.RunCommand acCmdSaveRecord
End If
Else
If MsgBox("ihaleye katılan " & txtsecim & ". firma olan " & Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) & " isimli firma, " & Me.listefirma.Column(1) & " isimli firma olarak değiştirilsin mi?", vbYesNo) = vbYes Then
Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) = Me.listefirma.Column(1)
Me.frm_ihtiyac.SetFocus
DoCmd.GoToRecord , , acFirst
Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) = Me.listefirma.Column(1)
For x = 1 To Forms![frm_malzemeler]![frm_ihtiyac].Form.RecordsetClone.RecordCount - 1
DoCmd.GoToRecord , , acNext
Forms![frm_malzemeler]![frm_ihtiyac].Form!("txtf" & txtsecim) = Me.listefirma.Column(1)
Next x
DoCmd.RunCommand acCmdSaveRecord
End If
End If
Forms![frm_malzemeler]![frm_ihtiyac].Requery
ListefirmaCikis:
Exit Sub
ListefirmaHata:
MsgBox ("Firma Seçimleri Tamamlandı")
Resume ListefirmaCikis
Forms![frm_malzemeler]![frm_ihtiyac].Requery
Koddaki listefirmaHata: kısmında hata var, buraya dokunmadım.
2. sorunuz için,
SELECT TOP 1 GSorgu.ihale_id, firma, teklif, firma_adresi, firma_yetkilisi, firma_telefonu
FROM (SELECT ihale_id, firma1 AS firma, Sum([fr1_toplam]) AS teklif
FROM tbl_ihtiyac GROUP BY ihale_id, firma1 HAVING (((ihale_id)=1))
UNION SELECT ihale_id, firma2 AS firma, Sum([fr2_toplam]) AS teklif
FROM tbl_ihtiyac GROUP BY ihale_id, firma2 HAVING (((ihale_id)=1))
UNION SELECT ihale_id, firma3 AS firma, Sum([fr3_toplam]) AS teklif
FROM tbl_ihtiyac GROUP BY ihale_id, firma3
HAVING (((ihale_id)=1))) AS GSorgu INNER JOIN tbl_firmalar ON GSorgu.firma = tbl_firmalar.firma_adi ORDER BY GSorgu.teklif;
Kodu ihaleid=1 için en az fiyat teklifi veren firmayı gösterir, istediğiniz bu ise ihaleid düzenlemesi yapılabilir.
Evet. Bir açık var. Oda aynı firmayı kullanıcı sürekli çift tıklarsa 3 firmaya da aynısı atıyor. Mantiken seçilen bir firmanın ikinci bir firma olarak seçilmemesi gerekiyor.
(19/03/2020, 14:54)ozanakkaya yazdı: [ -> ]Kodu ihaleid=1 için en az fiyat teklifi veren firmayı gösterir, istediğiniz bu ise ihaleid düzenlemesi yapılabilir.
bu kodu firmalara göre nasıl çalıştıracağım: Tarif edebilirmisiniz?