Sayın Atoz112,,
Örneğiniz için teşekkürler,bende bu gün konuştuğumuz düşüncelerle yola çıktım ve 3 adet ilişkisiz metin kutusu yaptım ve ekteki kodları uyguladım,ancak bir aksilik var oda şu dolu oda bilgilerini Metin kutularına getirdim,boş oda isminide getirdim,ancak boş oda ismi ile birlikte dolu oda bilgilerinden Ülkesi,Konaklama şekli bilgiside geliyor.Bir yerde hata yapıyorum ama nerede bulamadım.
Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Metin762.Visible = False
Me.Metin765.Visible = False
Me.Metin767.Visible = False
End Sub

Private Sub Etiket101_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Metin762.Visible = True
Me.Metin765.Visible = True
Me.Metin767.Visible = True
If Dlookup ("[bosdolu]", "tbl_odalistesi", "[odano]=" & "101") And Dlookup ("[bosdolu]", "tbl_odalistesi", "[bosdolu]=" & "-1") Then
Me.Metin762 = Dlookup ("[Adi]&' '& [Soyadi]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Adi1]&' '& [Soyadi1]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Adi2]&' '& [Soyadi2]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10)
Me.Metin765 = Dlookup ("[Ulkesi]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Ulkesi1]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Ulkesi2]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10)
Me.Metin767 = "Konaklama Biçimi:" & Dlookup ("[konakseklı]", "tbl_Odabilgileri", "[odano]=" & "101") & Chr(13) & Chr(10) & "Yatak Sayısı:" & Dlookup ("[yataksayısı]", "tbl_odalistesi", "[odano]=" & "101") & Chr(13) & Chr(10) & "Kişi Sayısı:" & Dlookup ("[kisisayisi]", "tbl_odabilgileri", "[odano]=" & "101") & Chr(13) & Chr(10)
Else
Me.Metin762 = "Oda Durumu:" & "BOŞ" & Chr(13) & Chr(10) & "Oda Tipi:" & Dlookup ("[odatipi]", "tbl_odalistesi", "[odano]=" & "101") & Chr(13) & Chr(10) & "Yatak Sayısı:" & Dlookup ("[yataksayısı]", "tbl_odalistesi", "[odano]=" & "101") & Chr(13) & Chr(10) & "Oda Fiyatı: " & Dlookup ("[odafiyati]", "tbl_odalistesi", "[odano]=" & "101") & Chr(13) & Chr(10)

End If
End Sub

Private Sub Etiket102_MouseMove(Buton As Integer, Shift As Integer, X As Single, Y As Single)
Me.Metin762.Visible = True
Me.Metin765.Visible = True
Me.Metin767.Visible = True
If Dlookup ("[bosdolu]", "tbl_odalistesi", "[odano]=" & "102") And Dlookup ("[bosdolu]", "tbl_odalistesi", "[bosdolu]=" & "-1") Then
Me.Metin762 = Dlookup ("[Adi]&' '& [Soyadi]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Adi1]&' '& [Soyadi1]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Adi2]&' '& [Soyadi2]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10)
Me.Metin765 = Dlookup ("[Ulkesi]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Ulkesi1]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10) & Dlookup ("[Ulkesi2]", "tbl_musteri", "[odano]=" & "101") & Chr(13) & Chr(10)
Me.Metin767 = "Konaklama Biçimi:" & Dlookup ("[konakseklı]", "tbl_Odabilgileri", "[odano]=" & "101") & Chr(13) & Chr(10) & "Yatak Sayısı:" & Dlookup ("[yataksayısı]", "tbl_odalistesi", "[odano]=" & "101") & Chr(13) & Chr(10) & "Kişi Sayısı:" & Dlookup ("[kisisayisi]", "tbl_odabilgileri", "[odano]=" & "101") & Chr(13) & Chr(10)
Else
Me.Metin762 = "Oda Durumu:" & "BOŞ" & Chr(13) & Chr(10) & "Oda Tipi:" & Dlookup ("[odatipi]", "tbl_odalistesi", "[odano]=" & "102") & Chr(13) & Chr(10) & "Yatak Sayısı:" & Dlookup ("[yataksayısı]", "tbl_odalistesi", "[odano]=" & "102") & Chr(13) & Chr(10) & "Oda Fiyatı: " & Dlookup ("[odafiyati]", "tbl_odalistesi", "[odano]=" & "102") & Chr(13) & Chr(10)
End If
End Sub