AccessTr.neT

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.