پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 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 
مطالب مرتبط
آیا شما مایل به خارج شدن از برنامه Powerpoint هستید؟ چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه پیغام خروج کدهای VBA برنامه نویسی با پاورپوینت
2013, Friday, 12, Jul
روش ترکیب کردن متن انگلیسی با ترجمه فارسی اجرای ماکر برنامه نویسی VBA فرمت دارای قابلیت اجرای Macro ایجاد Madual ماژول اجرای کد ترکیب سطرهای دو فایل ورد فایل اکسل comine rows in excell
2013, Wednesday, 24, Jul
نحوه ذخیره فایل صوتی در پاور پوینت بصورت مستقل ذخیره صدا در پاور پوینت powerpoint ساخت اسلاید شو صدای پیش زمینه ذخیره فایل صوتی بدون مسیر فایل صوتی نرم افزار پاور پوینت Sound Options Media Clips
2012, Monday, 13, Aug
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
چگونه یک سلول را به لیست combobox در اکسل تبدیل کنم؟ convert cell to combobox in excel تبدیل سلول به لیست کشویی در اکسل DropDown combobox اکسل آموزش اکسل پاسخ به سوالات اکسل ایجاد گزینه در اکسل
2013, Saturday, 17, Aug
