24/12/2008, 14:05
(24/12/2008, 12:36)Bilgisayarcı yazdı: [ -> ]Tahminim 3 yerde hata olabilir
1. Açılış parametresi gönderilemiyor
2. Form Load olayı openargs'a erişemiyor
3. (Bu sonradan gelecek) Text'e bilgi atanamıyor.
Kod:
Private Sub List2_DblClick(Cancel As Integer)
Dim rs As Object
DoCmd.OpenForm "YAPILANLAR"
Set rs = Forms!YAPILANLAR.Recordset.Clone
rs.FindFirst "[ZiyaretNO] = " & Str(Nz(Me![List2], 0))
If Not rs.EOF Then Forms!YAPILANLAR.Bookmark = rs.Bookmark
Açarken açılış parametresi göndermemişsin hocam.... Yani 1. madde geçerli.
DoCmd.OpenForm "YAPILANLAR",,,,,,"Buraya yazacaksın ne göndermek istiyorsan"
Yukarıdaki gibi dene....
Ayrıca formda ne yapmaya çalıştığını da anlamadım...