Belitrttiğiniz şekilde oldu sayılır ama bu defa birinci kutudan çeçim yaptığımızda ikinci kutuda birinci kutuya göre veri gelmesi gerekirken oradada tüm veriler ekrana geliyor.
Ben ise ön eleme yaparak, önce birinci kutudan sonra birinci kutuya ait olan listedeki verileri ikinci kutuda görmek ve oradaki seçimi yaptığımda diğer verilerin aktarılmasını istiyorum.
Kodlamada bi hatamı yaptım bakabilirmisiniz?
1. Kutu kodları
Kod:
Private Sub BARKOD_AfterUpdate()
Me.KOD.SetFocus
Me.KOD.Requery
Me.YAPILANISLEM = DLookup("[BARKOD]", "[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = DLookup("[BARKOD]", "[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * KDVSİ / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.BARKOD.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub
Private Sub BARKOD_Enter()
KOD.BackColor = vbYellow
End Sub
Private Sub BARKOD_Exit(Cancel As Integer)
KOD.BackColor = vbWhite
End Sub
Private Sub BARKOD_NotInList(NewData As String, Response As Integer)
On Error GoTo hata
Response = acDataErrContinue
MsgBox "Stokta tanımlı böyle bir ürün bulunamadı.", 48, "Müşteri Takip"
hata: Exit Sub
End Sub
2. Kutu kodları
Kod:
Private Sub KOD_AfterUpdate()
Me.YAPILANISLEM = DLookup("[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = DLookup("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * KDVSİ / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.KOD.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub
Private Sub KOD_Enter()
KOD.BackColor = vbYellow
End Sub
Private Sub KOD_Exit(Cancel As Integer)
KOD.BackColor = vbWhite
End Sub
Private Sub KOD_NotInList(NewData As String, Response As Integer)
On Error GoTo hata
Response = acDataErrContinue
MsgBox "Stokta tanımlı böyle bir ürün bulunamadı.", 48, "Müşteri Takip"
hata: Exit Sub
End Sub
Yada Dlookup kodunu aşağıdaki gibi bağlasak istediğim sonuca çıkarmı diyerek denedim ama olmadı Yada bu kodda biyerde hata yaptım
Kod:
DLookup("BARKOD, "KOD", "ID='" & DLookup("URUNADI", "SATISFIYATI") & "'")