پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 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 
مطالب مرتبط
فهرست کردن مطالب یا عناوین پایان نامه بصورت خودکار فهرست پایان نامه بهم ریختگی فهرست فهرست خودکار منوی Refrences تب Table of Contents پایان نامه Update Table فهرست گذاری
2013, Tuesday, 28, May
نحوه مرتب شدن خودکار Auto Sort رکورد ها در نرم افزار اکسل نحوه مرتب شدن خودکار (Auto Sort) رکورد ها در نرم افزار اکسل منوی Home و منوی Editing و از دکمه Sort Filter
2013, Thursday, 05, Sep
چگونه می توان وقتی از طریق کلیک بر روی عنوان و یا متنی در PowerPoint به اسلایدی دلخواه رفت؟ استفاده از BookMark در پاور پوینت گزینه Hyperlink دانلود فایل ضمیمه پاورپوینت
2012, Thursday, 06, Dec
تفاوت گزینه های Blank Page با Page Break در بخش insert چیست؟ ایجاد یک صفحه خالی تفاوت گزینه های blank page با page break پاسخ به سوالات ورد
2013, Friday, 26, Apr
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
