Forma 

Public Function RezervKontrol(ByRef GMasNo As Integer)



Dim GKimlikNo As Integer

Dim GKisi As String

Dim GSaat As Date



GKimlikNo = Nz(DLookup("Kimlik", "T_90_RezervasyonBilgi", "[MasaNo]=" & Nz(GMasNo, 0) & " AND clng([Tarih])='" & CLng(Date) & "'"), 0)



If GKimlikNo <> 0 Then



'GTarih

GSaat = Dlookup ("Saat", "T_90_RezervasyonBilgi", "[Kimlik]=" & GKimlikNo)

GKisi = Dlookup ("AdiSoyadi", "T_90_RezervasyonBilgi", "[Kimlik]=" & GKimlikNo)



MsgBox "Masa ..... Tarihinde, Saat " & GSaat & " e Sn; " & GKisi & " 'e  rezerve edilmiştir. ", vbExclamation



End If





End Function

Kodu ekle, Etiket17R'nin tıklandığında olayına

=RezervKontrol("17")

şeklinde kod ekle, diğer etiketlerin tıklandığında olayına etiket ismine göre kod eklemelisiniz.

Ayrıca, bu tür sorularınıza cevap yazarak çözüm buluyoruz, umarım siz birşeyler kapıyorsunuz.