مدحت توفيق قام بنشر سبتمبر 11, 2020 قام بنشر سبتمبر 11, 2020 إنشاء زر يطبع تقرير البحث وزر اخر تصدير الي الاكسل f4.rar
محمد التميمي قام بنشر سبتمبر 11, 2020 قام بنشر سبتمبر 11, 2020 منذ ساعه, سالم محمد said: إنشاء زر يطبع تقرير البحث وزر اخر تصدير الي الاكسل f4.rar اخي لا يوجد تقرير في المرفق على كل حال اليك الاكواد التي تحتاجها 1- كود طباعة البحث ضعه في زر امر Dim RName, FldCriteria As String RName = "اسم التقرير" FldCriteria = "[اسم الترقيم في الجدول]=" & Me![اسم الترقيو في الجدول] DoCmd.OpenReport RName, acViewNormal, , FldCriteria 2- كود تصدير التقرير الى اكسل On Error Resume Next DoCmd.SelectObject acReport, namerpts DoCmd.OutputTo acOutputReport, namerpts, "MicrosoftExcelBiff8(*.xls)", "", True, ".xls", , acExportQualityPrint
الردود الموصى بها
انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد
يجب ان تكون عضوا لدينا لتتمكن من التعليق
انشئ حساب جديد
سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .
سجل حساب جديدتسجيل دخول
هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.
سجل دخولك الان