Örnek ekledim bu seferde parametre değeri istedi,ikinci bir adisyon alt formu oluşturdum,buna göre denerseniz memnun olurum İscinar kardeşim.Tşk.

Ek Dosyalar

Otel Yönetim.rar(420.34 KB)

Sub KutuRenk()

On Error Resume Next

Dim i As Integer

Dim x As Date

x = Date

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

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

        Controls("Etiket" & Me.Liste363.ItemData(i)).BackColor = 213

        Controls("Etiket" & Me.Liste363.ItemData(i)).ForeColor = 16777215

    If x = Me.Liste363.Column(1, (i)) Then

        Controls("Etiket" & Me.Liste363.ItemData(i)).BackColor = vbGreen

        Controls("Etiket" & Me.Liste363.ItemData(i)).ForeColor = 16777215

    End If

    Next



End Sub

Bölümü bende hata veriyordu kodu bu bölümü silip kontrol ettim çalışıyor.
Daha sonra ilk örneğine kodu ekledim, kendi makinende bir kontrol edersin.

Ek Dosyalar

Otel Yönetim iscinar.rar(416.13 KB)

İscinar kardeşim eline sağlık çok teşekkür ederim çalıştı,emeğine sağlık.

İscinar kardeşimform sayfsaında yaptığım düzenlemeden sonra tekrar hata verdi neden olabilir,yeni adisyon formu yapmıştım ondan olabilirmi,rica etsem bakabilirmisin hocam.

Ek Dosyalar

Otel Yönetim deneme.rar(428.06 KB)

PC yi dersleri için çocuğuma terk etmiştim örneğinizi inceleyemedim.
Muhtemelen değiştirdiğiniz alt formdandır. İncelemeye çalışayım.
Bu arada özel mesaj kutunuzun kotası dolmuş. Boşaltırsnız güzel olur.

Alt formunuzun adını kontrol edin veya koddaki

[frm_adisyon]

bölümünü

[tbl_adisyon]

olarak değiştirmeyi deneyin