پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 2010 بر روی فرم" Navigation " دو فرم را باز کرده ام میخواهم دکمه ای ایجاد کنم که با کلیک بر روی آن محتویات یک فیلد از فرم اول در فیلدی از فرم دوم درج شود خواهشمندم مرا راهنمائی فرمائید متشکرم
پاسخ :
این کار را با چند خط کد نویسی می توان انجام داد (مطابق دستورات زیر عمل کنید)
بر روی فرم اول یک Button رسم کنید، سپس از طریق خصوصیات این شی بر روی Event و یا رویداد OnClick کلیک کنید تا به صفحه VBA هدایت شوید، سپس در آن صفحه قسمت آبی رنگ زیر را مشاهده خواهید نمود، باید دستورات برنگ مشکی را در آن بنویسید.
Private Sub Command1_Click()
Dim N As String
N = Me!Nam.Value
DoCmd.OpenForm "Form2"
Forms!Form2!txtTwo.SetFocus
Forms!Form2!txtTwo.Value = N
End Sub
توضیحات کد VBA:
خط اول : یک متغیر از نوع رشته تعریف می کنیم
خط دوم : مقدار فیلد مورد نظر از فرم اول را درون متغیر N می ریزیم (بجای Nam باید نام TextBox را بنویسید)
خط چهارم : با این ستور Form2 فرم دوم را باز کرده (بجای Form2 باید نام فرم دومتان را بنویسید)
خط پنجم : با دستور SetFocus بر روی فیلد مربوط به فرم دوم فوکوس یا متمرکز می کنیم (بجای txtTwo نام فیلدی که در فرم دوم مد نظرتان است را بنویسید)
خط ششم : مقدار N را در داخل فیلد مورد نظر در فرم دوم می ریزیم (بجای txtTwo نام فیلدی که در فرم دوم مد نظرتان است را بنویسید)
نظرات و پاسخ ها
محمد نوشته :
سلام خدمت شما دوستان لطفا کمک کنید من با استفاده از این دستورPrivate Sub Command1_Click()Dim N As StringN = Me!Nam.ValueDoCmd.OpenForm "Form2"Forms!Form2!txtTwo.SetFocusForms!Form2!txtTwo.Value = NEnd Subدر یک فایل اکسس اطلاعات فرم خودمو به یک فرم دیگه انتقال دادم و موفق هم شدم ولی این فایل توی یک سیستم دیگه وقتی باز میشه و Button اونو میزنی هیچ عکس العملی انجان نمیده.فقط تو همون کامپیوتراول کار میکنه.
مدیر سایت فارسی میتینگ در پاسخ به محمد نوشته :
به احتمال زیاد، از بخش Options گزینه فعال بودن اجرای Macro را فعال نکرده
محمد حسین نوشته :
سلام میخواستم ببینم با چه کدی میتونم یک کلید تو فرم اولم بزازم که با کلیک روی اون فرم وارد فرم جدیدی بشم و بعد یک جدولی در فرم دو داشته باشم تا با کلیک روی هر اسمی در جدول فرم سوم باز شود تا ویژگی های مربوط به ان اسم نمایان شود لطفا سریع کمکم کنید خیلی مهم واسه ایندم در ضمن برنامه نویسی وی بی هم در حد نرمال بلدم ممنون لطفا جواب بدید
علی شریعت نوشته :
با عرض سلام و ادب 3فیلد a b c داریم در قسمت فرم مقدار a و b را میدهیم c ما برابر است با c=a+b به ما نشان میدهد ولی در فیلد c ذخیره نمیشود چگونه می توان جمع a+b را در فیلد c کرد با تشکر از راهنمایی شما
مدیر سایت فارسی میتینگ در پاسخ به علی شریعت نوشته :
در صورت ممکن بودن فایلتون را در سایتی آپلود کنید و آدرسشو بفرمائید تا بررسی کنم
مریم نوشته :
سلام خسته نباشید من میخوام از فرم ها استفاده کنم به طوری که وقتی فایل اکسس رو باز کردم مستیقم فرم ها اجرا شوند دیگر محیط کاری اکسس نمایش داده نشود
مدیر سایت فارسی میتینگ در پاسخ به مریم نوشته :
دکمه دایره ای Office Button را بزن و سپس گزینه Access Options و در قسمت Current DataBase در بخش Application Options از لیست کشویی Display Form فرمت را انتخاب کن و سپس در بخش Ribbon and Toolbar Options تیک های منو ها را بردار ولی قبل از آن یک کپی از فایلت را با نامی دیگر در جایی دیگر ذخیره کن که بتونی بعداً هم ویرایش کنی
یاسر نوشته :
با سلام و تشکر حال اگر خواستیم چند فیلد را همزمان با یک کلید انتقال دهیم چه کار باید کرد لطفا مرا راهنمایی کنید با تشکر
صفحه 3 از 4 
مطالب مرتبط
ذخیره فایل ورد به پی دی اف PDF سیو به پی دی اف Save to pdf تبدیل ورد به پی دی اف Convert Word To PDf چطور می توان فایل ورد را به پی دی اف ذخیره کنم تا بتوان با نرم افزار Adobe Acrobat Reader باز کرد؟ پلاگین SaveToPDF پی دی اف
2013, Friday, 07, Jun
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
چرخاندن جدول در Word چگونه می توانم در ورد جدول را بچرخانم؟ روش چرخاندن جدول در Word چرخاندن جدول به اندازه 90 درجه Rotate Table In MicroSoft Word 2007 تبدیل جدول به تصویر چرخاندن متن در ورد charkhandane matn dar word
2013, Wednesday, 10, Apr
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
غیر فعال کردن رویداد کلیک بر روی اسلایدهای ارائه پاورپوینت On Mouse Click هایپرلینک باز کردن اسلایدها از منوی Transition و سپس تب Timing برای همه اسلاید ها یا اسلایدهای مورد نظر خود تیک گزینه On Mouse Click را بردارید
2015, Sunday, 13, Dec
