AccessTr.neT
Verileri Taşıma Hakkında. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Verileri Taşıma Hakkında. (/konu-verileri-tasima-hakkinda.html)

Verileri Taşıma Hakkında. - serkan1985 - 27/05/2017

Arkadaşlar merhaba "masa-1" de açılmış hesabı "MASAISLEMLERI" formunda buton yardımı ile "masa-2 veya diğerleri" nasıl taşınabilir?

Cvp: Verileri Taşıma Hakkında. - ozanakkaya - 01/06/2017

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.

Cvp: Verileri Taşıma Hakkında. - serkan1985 - 01/06/2017

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?

Cvp: Verileri Taşıma Hakkında. - ozanakkaya - 02/06/2017

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.

Cvp: Verileri Taşıma Hakkında. - serkan1985 - 02/06/2017

Çok teşekkürler ozan bey tam olarak anladım bildiriminizi +rep +rep