Veri girişi sorunu

[yavuz829]

Merhaba arkadaşlar access dosyamda birtane ComboBox var veriyi stok sayfasından alıyor. Sıtoğun dışındaki verileri kabul etmiyor. Benim istediğim stokta olmayan bir ürünü yazdığım zaman da kabul etsin hata vermesin. Kod sayfasındaki kodları ekliyorum. Excele göre ComboBox diyorum accesste ismi değişik olabilir. Saygılar.

Option Compare Database

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyEscape Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close
End If
End Sub

Private Sub KOD_AfterUpdate()
Me.YAPILANISLEM = DLookup("[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = DLookup("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDVdeğeri = (Me.SATISFIYATI * Me.ADEDI) * Me.KDVoran / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDVoran
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 "KONTROL"
End Sub

Private Sub ADEDI_AfterUpdate()
DoCmd.RunMacro "SATISTOPLAM1"
If Me.DEPO < Me.ADEDI Then
MsgBox "Stokta satmaya çalıştığınız kadar ürün yok", vbInformation, "Bilgi"
Me.ADEDI = 0
Me.ADEDI.SetFocus
End If
End Sub

Private Sub Form_Close()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "FRMSATISLAR"

stLinkCriteria = "[MNO]=" & Me![MNO]

Forms!FRMSATISLAR!Liste25.Requery
DoCmd.Close acForm, "FRMSATISLAR"
DoCmd.OpenForm stDocName, , , stLinkCriteria
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

Private Sub SATAN_NotInList(NewData As String, Response As Integer)
On Error GoTo hata
Response = acDataErrContinue
MsgBox "Lütfen listeden bir öğe giriniz.", 48, "Müşteri Takip"
hata: Exit Sub

End Sub

Private Sub YAPILANISLEM_AfterUpdate()
Me.KOD = DLookup("[URUNKODU]", "[URUNLER]", "[YAPILANISLEM]=[URUNADI]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = DLookup("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDVdeğeri = (Me.SATISFIYATI * Me.ADEDI) * Me.KDVoran / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDVoran
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.YAPILANISLEM.SetFocus
End If
DoCmd.OpenForm "KONTROL"
End Sub

Private Sub YAPILANISLEM_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
Private Sub Komut28_Click()
On Error GoTo Err_Komut28_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.Close
Exit_Komut28_Click:
Exit Sub

Err_Komut28_Click:
MsgBox Err.Description
Resume Exit_Komut28_Click

End Sub
Private Sub Komut29_Click()
On Error GoTo Err_Komut29_Click
Dim C As Integer
C = MsgBox("Satış kaydı silinecek..! Eminmisiniz?", vbOKCancel + vbQuestion, "Müşteri Takip")
If C = vbOK Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

ElseIf C = vbCancel Then
Me.Undo
End If

Exit_Komut29_Click:
Exit Sub

Err_Komut29_Click:
MsgBox Err.Description
Resume Exit_Komut29_Click

End Sub

 

[yavuz829]

Arkadaşlar Özelik sayfası/Veri/Listeyle Sınırla kısmına hayır dedim bu sefer de toplam tutar boş kalıyor. Yani adeti satış fiyatı ile çarparak toplam tutarda göstermiyor. Bu konuda yardımlarınızı bekliyorm.