AccessTr.neT

Tam Versiyon: + - olayında kürsörün işlem yapılan alanda kalmaması.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Herkese hayırlı günler,iyi çaılışmalar.
Arkadaşlar üzerinde çalıştığım projede;
Müşteri fişinde Ürün miktarını ekleyen ve çıkaran iki adet buton bulunmakta (-) ve (+) Müşteri fişinde ilk satır haricindeki satırlarda ilk eklemeyi veya çıkarmayı yapıyor,ikinci tklamada ise
direkt en üst satıra yönelmekte,
Bu nedenle - veya + işleminin sadece işlem yapılan alanda kalmasını onun dışındaki alanlara geçmemesi için ne yapılabilir,
İkinci sorum ise Menü de bulunan ürünleri form üzerinde çalışma biçimini bozmadan nasıl guruplayabilirim veya sınıflandırabilirim.
Yardımcı olacak arkadaşlara şimdiden saygılarımı sunarım.
Kodları aşağıdakilerle değiştiriniz.

Private Sub Ekle_Click()
Dim GeciciUrunadi As String
If Forms![frm_masabılgılerı]![masano] = 0 Then MsgBox ("Lütfen Masa Seçiniz..Masano sıfır olamaz"): Exit Sub
If IsNull(Me.urunadı) Or Me.urunadı = "" Then
MsgBox ("Listeden Ürün Seçiniz")
Else
GeciciUrunadi = Me.urunadı
mıktar = mıktar + 1
Forms![frm_masabılgılerı].Requery
With Forms![frm_masabılgılerı]![FIS].Form.Recordset
.FindFirst "[urunadı] = " & "'" & GeciciUrunadi & "'"
If .NoMatch Then MsgBox (GeciciUrunadi & " bulunamadı")
End With
Forms![frm_masabılgılerı]![HESTOP] = Forms![frm_masabılgılerı]![FIS].Form![toplam]
Forms![frm_masabılgılerı].[HESTOP].Requery
End If
End Sub
Private Sub CIKAR_Click()
Dim GeciciUrunadi As String
If Forms![frm_masabılgılerı]![masano] = 0 Then MsgBox ("Lütfen Masa Seçiniz..Masano sıfır olamaz"): Exit Sub
If IsNull(Me.urunadı) Or Me.urunadı = "" Then
MsgBox ("Listeden Ürün Seçiniz")
Else
GeciciUrunadi = Me.urunadı
mıktar = mıktar - 1
Forms![frm_masabılgılerı].Requery
With Forms![frm_masabılgılerı]![FIS].Form.Recordset
.FindFirst "[urunadı] = " & "'" & GeciciUrunadi & "'"
If .NoMatch Then MsgBox (GeciciUrunadi & " bulunamadı")
End With
Forms![frm_masabılgılerı]![HESTOP] = Forms![frm_masabılgılerı]![FIS].Form![toplam]
Forms![frm_masabılgılerı].[HESTOP].Requery
End If
End Sub
Sayın Hocam,
Emeğinize elinze sağlık çok teşekkürler.
İkinci soru hakkında da bir fikir veya yol gösterirseniz memnun olurum
Saygılarımla.
Bunu kaçıncı yazışım hatırlamıyorum.
Site Kuralları:
1 c) Birden fazla soruyu aynı konuda sormayınız. Her soru için farklı başlıklı yeni konu açınız.