AccessTr.neT

Tam Versiyon: Verileri Taşıma Hakkında.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Arkadaşlar merhaba "masa-1" de açılmış hesabı "MASAISLEMLERI" formunda buton yardımı ile "masa-2 veya diğerleri" nasıl taşınabilir?
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.
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

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 HatalarURL'ye Git konusunu tekrar incele.
Çok teşekkürler ozan bey tam olarak anladım bildiriminizi +rep +rep