پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 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 نام فیلدی که در فرم دوم مد نظرتان است را بنویسید)
نظرات و پاسخ ها
سارا چگینی نوشته :
چطور ميتونم بدون برنامه نويسي اين كار رو بكنم؟
حسین تبریزی نوشته :
خيلي خيلي ممنون، راهگشا بود .
شاهرخ جمشيدي نوشته :
با درود تشكر از اين ترفند بسيار خوب. من اين كار رو با موفقيت انجام دادم .ولي يك مشكل پيش اومده كه بعداز انتقال رنگ فرم گيرنده قاطي ميشه .راهي وجود داره كه بشه اين مشكل رو بر طرف كرد.خوشحال ميشم اگه كمك شما رو داشته باشم .سپاس
مدیر سایت فارسی میتینگ در پاسخ به شاهرخ جمشيدي نوشته :
دقیقا نمی دونم چه مشکلی بوجود آمده، که بنظرم با تغییر کد یا اضافه کردن متدی مشکل شما هم حل خواهد شد
mojtaba نوشته :
سلام ممنون از راهنمايي كه كرديد بابت پاس دادن مقدار يك فيلد.يك مشكلي كه براي من پيش اومده اين كه اگر فرم از نوع acFormAdd باشه اون مقدار در فرم قرار نميگيره چجوري بايد اين كار انجام بديم.كد من به اين صورت هست.Private Sub Command105_Click()Dim N As StringN = Me!National_Code.ValueDoCmd.OpenForm "frm_Continuous_grades", acNormal, , , acFormAdd, acDialogForms!frm_Continuous_grades!National_Code.SetFocusForms!frm_Continuous_grades!National_Code.Value = NEnd Subو يه مشكل ديگه اگر اطلاعاتي در فرم وارد نشود و فرم را ببنيدم پيغام خطاي vb ميده run time error '2450' ميدهممنون ميشم من راهنمايي كنيد تلفن : 0
مهدی نوشته :
با سلام من این کار را با دبل کلیک بر روی فرم مبدا و ثبت اطلاعات بر روی فرم مقصد انجام دادم سوال: فرم مقصد ساب فرم می باشد و به یک جدول وصل است وقتی مثلا در روی ردیف سوم ساب فرم( فرم مقصد) SetFocus است با دبل کلیک بر روی فرم مبدا( موردی که می خواهیم بر روی فرم مقصد ثبت شود) هر بار فقط ردیف اول فرم مقصد تغییر می نماید . و ردیف سوم بدون تغییر باقی می ماند آیا کدی وجود دارد که اطلاعات برروی بخشی از فرم مقصد که SetFocusاست ثبت گردد. لطفا راهنمائی نمائید. با تشکر
صفحه 2 از 4 
مطالب مرتبط
پیغام conflict در اکسل مشکل به اشتراک گذاری فایل اکسل share workbook نحوه به اشتراک گذاشتن فایل اکسل در شبکه Conficting Changes between users ارتباط با مشتریان Crm نرم افزار تحت شبکه
2014, Tuesday, 18, Feb
چرخاندن جدول در Word چگونه می توانم در ورد جدول را بچرخانم؟ روش چرخاندن جدول در Word چرخاندن جدول به اندازه 90 درجه Rotate Table In MicroSoft Word 2007 تبدیل جدول به تصویر چرخاندن متن در ورد charkhandane matn dar word
2013, Wednesday, 10, Apr
نحوه ذخیره فایل صوتی در پاور پوینت بصورت مستقل ذخیره صدا در پاور پوینت powerpoint ساخت اسلاید شو صدای پیش زمینه ذخیره فایل صوتی بدون مسیر فایل صوتی نرم افزار پاور پوینت Sound Options Media Clips
2012, Monday, 13, Aug
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
روش ترکیب کردن متن انگلیسی با ترجمه فارسی اجرای ماکر برنامه نویسی VBA فرمت دارای قابلیت اجرای Macro ایجاد Madual ماژول اجرای کد ترکیب سطرهای دو فایل ورد فایل اکسل comine rows in excell
2013, Wednesday, 24, Jul
