Skip to main content

AccessTr.neT


Alt Formdaki Verinin Forma Aktarılması

Alt Formdaki Verinin Forma Aktarılması

Çözüldü #13
Ö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)
Cevapla
Çözüldü #14
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)
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #15
İscinar kardeşim eline sağlık çok teşekkür ederim çalıştı,emeğine sağlık.
Cevapla
Çözüldü #16
İ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)
Cevapla
Çözüldü #17
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.
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla
Çözüldü #18
Alt formunuzun adını kontrol edin veya koddaki

[frm_adisyon]

bölümünü

[tbl_adisyon]

olarak değiştirmeyi deneyin Img-grin
Toprağa her türlü kötü şey atılmasına rağmen
Topraktan hep güzel şeyler biter . (Akşemseddin)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task