Kodu aşağıdaki ile değiştirirseniz;

Public Function tikladim(tiklanan As String)

 DoCmd.SetWarnings False

 If Dlookup ("bosdolu", "tbl_odalistesi", "odano=" & Int(tiklanan)) = -1 Then

 DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE odano=" & Int(tiklanan))

 Controls("Etiket" & tiklanan).BackColor = 64

 Controls("Etiket" & tiklanan).ForeColor = 16777215

 Me.ODA_NO = tiklanan

 Else

 DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu =-1 WHERE odano=" & Int(tiklanan))

 Controls("Etiket" & tiklanan).BackColor = 12632256

 Controls("Etiket" & tiklanan).ForeColor = 0

 End If

 DoCmd.SetWarnings True

 Liste363.Requery

 Liste361.Requery

End Function

Dolu olarak gösterdiğiniz son odanın numarasını metin kutusuna aktarır.