PDA

View Full Version : سوال: سوال كردن قبل از پرينت گرفتن



mahdif123
دوشنبه 06 خرداد 1387, 07:38 صبح
با سلام

من مي خواهم وقتي در فرم ورود اطلاعات جديد اطلاعات ثبت شد قبل از اينكه اطلاعات در فرم اصلي ذخيره گردد از كاربر براي پرينت گرفتن اطلاعات سوال كند اگر Yes بود اطلاعات پرينت شود و بعد ذخيره گردد و اگر NO بود پرينت نشود و اطلاعات ذخيره گردد .

قبلا از راهنمايي شما ممنونم .

مهدی قربانی
دوشنبه 06 خرداد 1387, 08:24 صبح
سلام
مي تونيد يه چيزي شبيه كد زير بنويسيد :

If MsgBox("آيا مايل به چاپ اطلاعات هستيد؟", _
vbMsgBoxRight + vbYesNo + vbInformation, "چاپ") = vbYes Then
DoCmd.RunCommand acCmdPrint
Else
Exit Sub
End If

mahdif123
دوشنبه 06 خرداد 1387, 11:53 صبح
با سلام

دوست عزيز از راهنمايي شما ممنونم

اگر ممكن است قسمت شرط در كووري را هم جواب دهيد مدتي است كه كسي جوابم را نداده

از لطف شما ممنونم

مهدی قربانی
دوشنبه 06 خرداد 1387, 12:01 عصر
اگر ممكن است قسمت شرط در كووري را هم جواب دهيد مدتي است كه كسي جوابم را نداده

سلام
دوست گرامي كدوم كوئري اگر منظورتون تاپيك خاصي هست آدرسش رو بذاريد تا بررسي بشه .

mahdif123
سه شنبه 07 خرداد 1387, 07:48 صبح
با سلام

منظورم اين تايپيك است .

از توجه شما ممنونم .

http://barnamenevis.org/forum/showthread.php?t=105399

مهدی قربانی
چهارشنبه 08 خرداد 1387, 17:39 عصر
سلام
دوست گرامي با توجه به مندرجات تاپيكي كه لينكش رو در پست قبل گذاشتيد بنظر مياد مطابق خواسته شما دوستان نمونه ها و راهكارهاي مرتبط رو ارائه دادن حالا اگر موارد ارائه شده مطابق خواسته و سئوال شما نيست بهتره مغايرت موجود رو به انضمام توضيحات كامل و دقيق در ادامه تاپيك مربوطه ذكر كنيد تا دوستان و بنده اگر كاري از دستمون بر بياد در خدمتون باشيم .
ضمناً گزينه هاي مربوط به پيغام خصوصي شما جوري تنظيم شده كه امكان ارسال پيغام خصوصي رو براتون غير ممكن كرده .

mahdif123
پنج شنبه 09 خرداد 1387, 08:28 صبح
با سلام

:عصبانی++:
دوست عزيز راهنمايي هايي كه دوستان كردند بسيار مفيد واقع شد اما همانطور كه در آخرين ارسال بنده مشاهده مي كنيد عكسي را طبق آنجه كه دوست عزيزم اميرزاده خواستند درمورد مشكل و سوالم گذاشته ام كه فكر ميكنم منظورم را رسانده باشم . اگر متن نوشته شده براي شما گنگ است و نياز به توضيح بيشتري است بگوئيد تا مطرح كنم . من كه واقعا گيج شده ام .

چطوري بايد توضيح دهم .:عصبانی++::عصبانی++:

دوست عزيز قسمت پيام خصوصي ام را چك كردم موردي را پيدا نكردم . اگر موردي است راهنمايي نمائيد تا بررسي كنم و مشكل حل شود .
از توجه شما ممنونم .