AccessTr.neT

Değerli hocalarım mesaj gönderme konusunda fazlada becerili değilim hata yaptığım için herkesten özür dilerim,
Benim sorum Etiket kutusu değerinin metin kutusuna atması ve buna göre formda yeni kayıt açması.2 sorum ise müşteri çıkışlarında etiket kutusunun boş konuma gelmesi.Saygı ve hürmetlerimi sunarım.

Ek Dosyalar

Etiket Kutusunden veri aktarma.rar(64.19 KB)

Yeni sorular için yeni konu açınız ayrıca sorununuzu mesajınıza yazarsanız yardımcı olabileceklerin sayısı artacaktır.

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.

Sledgeab -Hocam eline sağlık sağolun var olun çok çok tşk ederim. Örneği bitirdikten sonra siteye ekleyeceğim saygılarımla.

---

Sevgili hocam kodu uyguladım ancak dolu oda etiketleri porgramı açıp kapattıktan sonra boş olarak gözüküyor neden olabilir,hatamı yapıyorum form ektedir yardımcı olursanız memnun olurum.

Ek Dosyalar

oda_kayıt da Etiket.rar(67.76 KB)

hazırlanan örnekte

Sub KutuRenk()

On Error Resume Next

  

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

    For i = 0 To Me.Liste361.ListCount - 1

        Controls("Etiket" & Me.Liste361.ItemData(i)).BackColor = 12632256

        Controls("Etiket" & Me.Liste361.ItemData(i)).ForeColor = 0

    Next



End Sub

ve

Private Sub Form_Current()

Call KutuRenk

End Sub

kodları eklenmişti. Son örneğinizde bu kodlar yok.

---

ayrıca, renk değiştirme sonrası kodlarda hatalı değişiklikler yapılmış. Ekteki uygulamayı deneyiniz.

Ek Dosyalar

oda_kayıt_son.rar(52.91 KB)

Sledgeab hoca ne yazsam ne söylesem kafi gelmez sanırım eline koluna sağlık sizi fazla yordum kusuruma bakmayın birde kayıt silme işleminde dolu olan oda etiketininde silmeyle birlikte boş konumuna gelirse söyleyecej sözüm kalmayacak.. saygılarımla.