پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 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 
مطالب مرتبط
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
چگونه یک سلول را به لیست combobox در اکسل تبدیل کنم؟ convert cell to combobox in excel تبدیل سلول به لیست کشویی در اکسل DropDown combobox اکسل آموزش اکسل پاسخ به سوالات اکسل ایجاد گزینه در اکسل
2013, Saturday, 17, Aug
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
آیا شما مایل به خارج شدن از برنامه Powerpoint هستید؟ چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه پیغام خروج کدهای VBA برنامه نویسی با پاورپوینت
2013, Friday, 12, Jul
چگونه می توان وقتی از طریق کلیک بر روی عنوان و یا متنی در PowerPoint به اسلایدی دلخواه رفت؟ استفاده از BookMark در پاور پوینت گزینه Hyperlink دانلود فایل ضمیمه پاورپوینت
2012, Thursday, 06, Dec
