Arkadaşlar merhaba "masa-1" de açılmış hesabı "MASAISLEMLERI" formunda buton yardımı ile "masa-2 veya diğerleri" nasıl taşınabilir?
Verileri Taşıma Hakkında.
Merhaba,
Formunuza "frm_masaaktar" adında form ve "MASAISLEMLERI" isimli forma da "Masa Aktar" isimli buton ekledim.
İnceleyip olumlu/olumsuz bildirimde bulununuz.
Ayrıca sayın @fascioğlu'nun FA.RESTAURANT-BAR bağlantısındaki örnek uygulamasını incelemenizi tavsiye ederim.
Formunuza "frm_masaaktar" adında form ve "MASAISLEMLERI" isimli forma da "Masa Aktar" isimli buton ekledim.
İnceleyip olumlu/olumsuz bildirimde bulununuz.
Ayrıca sayın @fascioğlu'nun FA.RESTAURANT-BAR bağlantısındaki örnek uygulamasını incelemenizi tavsiye ederim.
Ozan bey teşekkürler yardımınızdan dolayı şöle bi sorun var ilk masa açıştan sonra masa iconu sarı oluyor masa değişimi yaptığımda geçiş yaaptığım masa sarı ilk açtığım masa renksiz nasıl olabilir?
Renklendirme sorunu HOME isimli formda da var. Form açıldığında açık masalar renklenmiyor.
HOME isimli forma
Kodu ekle, Formun geçerli olduğunda olayına da
Kodu ekle,
"frm_masaaktar" isimli formdaki kodların tamamını aşağıdaki ile değiştir.
Ayrıca, her ne kadar size garip gelse de, Yapılmaması Gereken Ölümcül Hatalar konusunu tekrar incele.
HOME isimli forma
Sub RenkYenile()
Dim GSayim As Integer
Dim GMasam As String
For GSayim = 1 To 21
GMasam = "MASA" & GSayim
If Dlookup ("MASADURUMU", "MASALAR", "[MASAID]=" & GSayim) = "DOLU" Then
Forms![HOME](GMasam)![MASAADI].BackColor = 65535
Else
Forms![HOME](GMasam)![MASAADI].BackColor = vbWhite
End If
Next GSayim
End Sub
Kodu ekle, Formun geçerli olduğunda olayına da
Call RenkYenile
Kodu ekle,
"frm_masaaktar" isimli formdaki kodların tamamını aşağıdaki ile değiştir.
Option Compare Database
Option Explicit
Private Sub btn_masaaktar_Click()
Dim GAdisyonNo, GMasaId As Integer
Dim GMasaAdi As String
GAdisyonNo = mtn_adisyonno
GMasaId = Me.acl_bosmasalar
GMasaAdi = Me.acl_bosmasalar.Column(1)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE MASAISLEMLERI SET MASAID = " & GMasaId & " , MASAADI = '" & GMasaAdi & "' WHERE (((ISLEMID)= " & GAdisyonNo & "));"
DoCmd.RunSQL "UPDATE MASALAR SET MASADURUMU = 'BOŞ' WHERE (((MASAADI)= '" & mtn_masaadi & "' ));"
DoCmd.RunSQL "UPDATE MASALAR SET MASADURUMU = 'DOLU' WHERE (((MASAID)= " & GMasaId & " ));"
DoCmd.SetWarnings True
Call RenkYenile
MsgBox ("Masa Aktarımı Tamamlandı")
DoCmd.OpenForm "MASAISLEMLERI", , , "[MASAID]=" & [acl_bosmasalar]
Forms![MASAISLEMLERI]!Metin40 = GMasaAdi
Forms![MASAISLEMLERI]!GELENMASAADI = GMasaAdi
DoCmd.Close acForm, "frm_masaaktar"
End Sub
Sub RenkYenile()
Dim GSayim As Integer
Dim GMasam As String
For GSayim = 1 To 21
GMasam = "MASA" & GSayim
If Dlookup ("MASADURUMU", "MASALAR", "[MASAID]=" & GSayim) = "DOLU" Then
Forms![HOME](GMasam)![MASAADI].BackColor = 65535
Else
Forms![HOME](GMasam)![MASAADI].BackColor = vbWhite
End If
Next GSayim
End Sub
Ayrıca, her ne kadar size garip gelse de, Yapılmaması Gereken Ölümcül Hatalar konusunu tekrar incele.
Çok teşekkürler ozan bey tam olarak anladım bildiriminizi
Konuyu Okuyanlar: 1 Ziyaretçi