AccessTr.neT

sayın fascioglu,

özelden talebinize yönelik inceleme neticesinde,asıl projenizdeki oda kayıt bilgileri işlemi yapıp kaydettikten sonra bir de ODA TANIMI isimli yeni oluşturduğunuz butona da basarak odanın dolu olduğuna dair işaretleme de yaptığınız takdirde sorununuz çözülecektir.lütfen deneyiniz.bilgilerinize.

iyi çalışmalar,
saygılar.

Hocam emeğinize sağlık çok güzel bir düşünce çalışması oldu,çok teşekkür ederim.Sorun çözüldü.

sayın fascioglu,

özelden talebinize yönelik olarak,yeni düzenlemeli şekli ile,
ek'te uygulamanın son çalışması mevcuttur.inceleyebilirsiniz.

iyi çalışmalar,
saygılar.

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

Sorunu çözdüm,kodun son kısmının yazni gizle özlliğinin
Else
Me.Metin765=""
Me.Metin767=""
Bu şekilde olması gerekiyor,saygılarımla.
Bu sebeple sorun çözülmüştür emek ve katkı sağlayan değerli arkadaşlarıma ço teşekkür ederim.

merhaba sayın fascioglu,

özelden yeni talebinize dair ek'te yeni çalışma mevcuttur.inceleyebilirsiniz.

iyi çalışmalar.
saygılar.