odano metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kod yazıldı.

On Error Resume Next

Dim OdaSira As Integer

Dim OdaKalan As String

OdaSira = Dlookup ("Kimlik", "[tbl_odabilgileri]", "[bosdolu]=0 And [ODA NO] =" & [odano])

OdaKalan = Dlookup ("[ADI] &' '&[SOYADI]", "tbl_musteri", "[odaid]=" & OdaSira)

If OdaSira <> 0 Then

MsgBox (odano & " numaralı odada " & OdaKalan & " isimli Müşteri Kalıyor.")

End If

Ek Dosyalar

Otel Yönetim-deneme_sled.rar(242.6 KB)