Skip to main content

AccessTr.neT


+ - olayında kürsörün işlem yapılan alanda kalmaması.

+ - olayında kürsörün işlem yapılan alanda kalmaması.

Çözüldü #1
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.
.rar FA.RES-BAR Son-.rar (Dosya Boyutu: 538,73 KB | İndirme Sayısı: 4)
Cevapla
Çözüldü #2
Kodları aşağıdakilerle değiştiriniz.

Visual Basic Code
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
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da