پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 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 
مطالب مرتبط
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
چگونه می توان وقتی از طریق کلیک بر روی عنوان و یا متنی در PowerPoint به اسلایدی دلخواه رفت؟ استفاده از BookMark در پاور پوینت گزینه Hyperlink دانلود فایل ضمیمه پاورپوینت
2012, Thursday, 06, Dec
شرط گذاری در سلول های اکسل با گزینه Conditional Formatting رنگی کردن سطر و سلول و ستون های اکسل با استفاده از منوی فرمتینگ تب Style پنجره Conditional formating rules manager آموزش اکسل Excel Learning
2016, Friday, 05, Feb
روش ترکیب کردن متن انگلیسی با ترجمه فارسی اجرای ماکر برنامه نویسی VBA فرمت دارای قابلیت اجرای Macro ایجاد Madual ماژول اجرای کد ترکیب سطرهای دو فایل ورد فایل اکسل comine rows in excell
2013, Wednesday, 24, Jul
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
