Skip to main content

AccessTr.neT


Verileri Taşıma Hakkında.

Verileri Taşıma Hakkında.

Çözüldü #1
Arkadaşlar merhaba "masa-1" de açılmış hesabı "MASAISLEMLERI" formunda buton yardımı ile "masa-2 veya diğerleri" nasıl taşınabilir?
.rar MASALAR.rar (Dosya Boyutu: 579,2 KB | İndirme Sayısı: 7)
Cevapla
#2
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.
.rar The Anchor 10.0.0.3_sld.rar (Dosya Boyutu: 592,6 KB | İndirme Sayısı: 9)
Cevapla
#3
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?
Cevapla
#4
Renklendirme sorunu HOME isimli formda da var. Form açıldığında açık masalar renklenmiyor.

HOME isimli forma

Visual Basic Code
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

Visual Basic Code
Call RenkYenile


Kodu ekle,

"frm_masaaktar" isimli formdaki kodların tamamını aşağıdaki ile değiştir.

Visual Basic Code
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.
Cevapla
#5
Çok teşekkürler ozan bey tam olarak anladım bildiriminizi +rep +rep
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da