jack007
دوشنبه 08 شهریور 1389, 12:16 عصر
سلام خدمت دوستان عزیز
تو برنامه ای که پیوست کردم یه فرم وجود داره بنام village . این فرم از نوع tabullar .
توی این فرم روبه روی هر رکورد یه باتوم گذاشتم تا ریپرت همون رکورد رو نشون کاربر بده
و پشت اون این کد زیر رو نوشتم ولی درست اجرا نمی شه و تمام رکورد ها رو آماده پرینت می کنه .مشکل کد چیه و چطوری از یه رکورد فقط ریپرت همون رکورد رو نشون بده؟
Dim stDocName As String
Dim stlinkcriteria As String
stDocName = "village"
stlinkcriteria = "[datesample]=" & Me![datesample]
DoCmd.OpenReport stDocName, acViewPreview, stlinkcriteria
Exit_Command19_Click:
Exit Sub
Err_Command19_Click:
MsgBox Err.Description
Resume Exit_Command19_Click
بسیار سپاس گذار:لبخندساده::لبخندساده:
تو برنامه ای که پیوست کردم یه فرم وجود داره بنام village . این فرم از نوع tabullar .
توی این فرم روبه روی هر رکورد یه باتوم گذاشتم تا ریپرت همون رکورد رو نشون کاربر بده
و پشت اون این کد زیر رو نوشتم ولی درست اجرا نمی شه و تمام رکورد ها رو آماده پرینت می کنه .مشکل کد چیه و چطوری از یه رکورد فقط ریپرت همون رکورد رو نشون بده؟
Dim stDocName As String
Dim stlinkcriteria As String
stDocName = "village"
stlinkcriteria = "[datesample]=" & Me![datesample]
DoCmd.OpenReport stDocName, acViewPreview, stlinkcriteria
Exit_Command19_Click:
Exit Sub
Err_Command19_Click:
MsgBox Err.Description
Resume Exit_Command19_Click
بسیار سپاس گذار:لبخندساده::لبخندساده: