پاس دادن مقدار یک فیلد از فرم اول به فیلدی در فرم دوم در اکسس
سوال :
با سلام، در اکسس 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 
مطالب مرتبط
شرط گذاری در سلول های اکسل با گزینه Conditional Formatting رنگی کردن سطر و سلول و ستون های اکسل با استفاده از منوی فرمتینگ تب Style پنجره Conditional formating rules manager آموزش اکسل Excel Learning
2016, Friday, 05, Feb
من ویندوز xp داشتم که به ویندوز 7 تغییر دادم و از اون به بعد پرینترم کار نمی کنه در صورتی که دستگاه پرینتر رو چک کردم و سالم هست Windows 7 ویندوز XP ویندوز Seven درایور پرینتر نصب درایور
2013, Tuesday, 21, May
کاربر گرامی سوالات خود را در زمینه نرم افزارهای ورد اکسل اکسس پاورپوینت اینترنت و سیستم عامل ویندوز از منوی تماس با ما ارسال نمائید، تا در اولین فرصت پاسخ داده شود pasokh be soalat
2012, Friday, 15, Jun
چطوری دراکسس اختلاف دو تا ساعت را بدست بیاوریم؟ محاسبه اختلاف ساعت در اکسس amoozesh mohasebeh ekhtelaf saat dar access بدست آوردن اختلاف ساعت و تاریخ
2015, Thursday, 18, Jun
میخواهم windows راعوض کنم درهمان مراحل اولیه(windows is loading file) گیرمیکندوهیچ کاری انجام نمیدهدسی دی هم پس از15ثانیه ازگردش می ایستدوچراغ درایورهم خاموش میشود
2012, Thursday, 25, Oct
