پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 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 نام فیلدی که در فرم دوم مد نظرتان است را بنویسید)
نظرات و پاسخ ها
سعید هامین نوشته :
سلام چه كد ساده و كاربردي اي چندتا سايت ديگه هم گشتم ، بعد 20 دقيقه توضيحات اضافي كدشون ناقص بود ممنون از مهر و خوبيتون
حسین نوشته :
سلام
ميخوام يك فرم رو با Button اجرا كنم ولي وقتي روي Button كليك مي كنم اجرا نميشه.
ممنون ميشم راهنمايي كنيد.
نسخه اكسس 2021
كد مورد استفاده
Private Sub Command131_Click()
DoCmd.OpenForm "quality control"
End Sub
مهدی امیراحمدی نوشته :
من ميخوام در فرم اطلاعات پرسنلي به محض وارد كردن نام و فاميل در فيلد فرم بلافاضله نام و فاميل بصورت يكجا در سربرگ همان فرم نشان داده شود.
Reza نوشته :
aya mishe name form ro ham dar in khat DoCmd.OpenForm "Form2 avaz kard
محبوبه نوشته :
من مي خوام شرطي بزارم كه بعد از اينتر پيام موفقيت آميز رو هم به كاربر نشون بده، ميشه راهنمايي كنيد؟
صفحه 1 از 4 
مطالب مرتبط
از بین بردن فایل اکسل در تاریخ معین ساخت فایل اکسل دارای تاریخ انقضاء (دوره آزمایشی) Expire Date In Excel ایجاد فایل اکسل با تاریخ انقضاء ایجاد ماکرو VBProject فایل اکسل
2013, Thursday, 30, May
فهرست کردن مطالب یا عناوین پایان نامه بصورت خودکار فهرست پایان نامه بهم ریختگی فهرست فهرست خودکار منوی Refrences تب Table of Contents پایان نامه Update Table فهرست گذاری
2013, Tuesday, 28, May
آیا شما مایل به خارج شدن از برنامه Powerpoint هستید؟ چه جوری میتونم کاری کنم که وقتی می خوام از پاورپوینت خارج شم پیام بده که آیا شما مایل به خارج شدن هستید یانه پیغام خروج کدهای VBA برنامه نویسی با پاورپوینت
2013, Friday, 12, Jul
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
