انتقال مقدار یک تکست باکس از یک فرم به تکس باکس فرم دیگر

[mohsen.sh88]

سلام
نگو جستجو نکردی که چشممام جلو مانیتور کور شد هر چقدر هم می گردم سردرگم تر می شم که علتش آماتوریه

از دوستان خواهش می کنم توضیحشون کامل بگن

در یک بانک اکسس پروجکت چطور می شه هنگام لود شدن فرم ،" مقداری از داخل تکس باکس یک فرم دیگر" که قبلا باز شده (مثل سویچ برد) بطور پیش فرض در فیلدی بارگذاری کرد .

مسئله اصلی من اینه که می خواهم کد کاربری رو از این طریق به فرمها انتقال بدم تا بعد از تکمیل یک رکورد به فیلد خودش در جدول افزوده بشه
توجه کنید بانک از نوع اکسس پروجکت (adp ) است:افسرده:

[ARData]

براي انتقال اطلاعات از يک تکست باکس به با تکست باکس ديگر ، لازم است دو تا فرم هم باز باشند :

Form_FrmA.Txt1 = Form_FrmB.Txt2

[aghl2004]

سلام
من يك سوال داشتم اگه بي ربط بود پاكش كنيد:
اين چيزي كه شما نوشتيد بيشتر وقتها به به جاي _ از ! استفاده ميشود. فرق دو تاشون چيه و از كدام يكي استفاده كنيم بهتر است.

[mohsen.sh88]

جواب نمیده داداش قرار شد کامل بنویسی!

[ARData]

"_" براي دسترسي به کليه کنترل ها و Properties فرم هاي باز استفاده ميشه ولي از ! جهت دسترسي به خصوصيات کنترل فرم هاي باز استفاده مي شود مثلا براي دسترسي به کپشن يک فرم باز از - اسفاده مي شود ...

[mohsen.sh88]

اگر می دونید تو رویداد befor_update چه کدی باید بنویسم که قبل از اعمال تغییرات مقدار اون تکس از فرم دیگر در تکس فرم در حال آپدیت شدن درج بشه راهنمایی کنید .ممنون .

[Younestalebi]

سلام دوست عزیز
شما چندتا کار می تونین بکنین
1- توی Before Update بنویسید

TxtBox=Forms![FormName]![Field]

2- توی Default Value فیلد مورد نظر بنویسید

=Forms![FormName]![Field]

[mahdytaherian]

با سلام اگه زحمتي نيست لطفا يك نمونه بزارين (2003) عمل نميكنه خطا ميده

[Abbas Amiri]

[QUOTE]من يك سوال داشتم اگه بي ربط بود پاكش كنيد:
اين چيزي كه شما نوشتيد بيشتر وقتها به به جاي _ از ! استفاده ميشود. فرق دو تاشون چيه و از كدام يكي استفاده كنيم بهتر است. [/QU

از "!" درهمه جا میتوان استفاده کرد: در محیط VBE در عبارات داخل کنترلهای فرم ودر کوئریها.
ولی از "_" فقط در محیط VBE و آنهم درصورتی که خصوصیت Has Module فرم Yes باشد. حسن مورد اخیر اینست که تمام خصوصیتها ومتدها نمایش داده میشود(Auto List Member)

[ahmad29769]

باسلام و خسته نباشید
من یک کوئری از جدولم ساختم که مقدار جمع یک ستون رو نمایش میده
حالا من میخام در یک فرم دیگر این مقدار رو توی ی تکست باکس ویا لیبل مقدارش رو نشون بدم
اینجوری بگم یک مقدار اولیه دارم مثلا 100 عدد در یک جدول مادر . میخام مقدار اولیه و مقدار موجودی رو در یک فرم نشان بدم
ایشالله ک تونسته باشم منظورم رو قشنگ رسونده باشم
ممنون میشم توضیح بدید

[mazoolagh]

من یک کوئری از جدولم ساختم که مقدار جمع یک ستون رو نمایش میده
حالا من میخام در یک فرم دیگر این مقدار رو توی ی تکست باکس ویا لیبل مقدارش رو نشون بدم


سلام و روز خوش
یعنی کوئری شما فقط یک مقدار برمیگردونه دیگه (sum)؟
یک راه این هست که بجای کوئری مستقیما با dsum محاسبه کنین و اون رو بعنوان control source تکسباکس بذارین:

=DSUM("TableName","FieldName")

اگر کوئری شما پیچیده است و با یک sum ساده انجام نمیشه، یا به هر دلیلی حتما باید از کوئری استفاده بشه:

=DFIRST("QueryName","ColumnName")

[ahmad29769]

تشکر خیلی عالی بود

فقط ی سوال دیگه :
من 3 تا تکس باکس دارم که برای جستجو قرار دادم و 3 تا تکس باکس رو به صورت and سری کردم که همزمان 3 تا مقدار تکس باکس رو فیلتر کنه . حالا میخام یه option group رو به شرطم اضاف کنم چجوری میتونم این کار رو انجام بدم
دستوراتم رو کپی کردم که بهتر متوجه بشید

Public Function TblFilter()


DoCmd.SetFilter , "nz([ReciverName]) like '*" & Forms!FormAllDataEvents.ComboReciver & "*' and nz([Commerce]) like '*" & Forms!FormAllDataEvents.ComboCommerce & "*' and nz([FactorySender]) like '*" &
Forms!FormAllDataEvents.ComboSearchFactorySender & "*' and nz([DestinationCity]) like '*" & Forms!FormAllDataEvents.ComboDestinationCity & "*' "


Select Case Frame423
Case 1
Form_FormAllDataEvents.FilterOn = False
Case 2
Form_FormAllDataEvents.Filter = "[StatusBar]=0"
Form_FormAllDataEvents.FilterOn = True
Case 3
Form_FormAllDataEvents.Filter = "[StatusBar]=-1"
Form_FormAllDataEvents.FilterOn = True
End Select




End Function

[mazoolagh]

من 3 تا تکس باکس دارم که برای جستجو قرار دادم و 3 تا تکس باکس رو به صورت and سری کردم که همزمان 3 تا مقدار تکس باکس رو فیلتر کنه . حالا میخام یه option group رو به شرطم اضاف کنم چجوری میتونم این کار رو انجام بدم

1- همیشه کدها رو درون تگ مناسب بگذارین تا خوانا باشه:
154792
Public Function TblFilter()


DoCmd.SetFilter , "nz([ReciverName]) like '*" & Forms!FormAllDataEvents.ComboReciver & "*' and nz([Commerce]) like '*" & Forms!FormAllDataEvents.ComboCommerce & "*' and nz([FactorySender]) like '*" &
Forms!FormAllDataEvents.ComboSearchFactorySender & "*' and nz([DestinationCity]) like '*" & Forms!FormAllDataEvents.ComboDestinationCity & "*' "


Select Case Frame423
Case 1
Form_FormAllDataEvents.FilterOn = False
Case 2
Form_FormAllDataEvents.Filter = "[StatusBar]=0"
Form_FormAllDataEvents.FilterOn = True
Case 3
Form_FormAllDataEvents.Filter = "[StatusBar]=-1"
Form_FormAllDataEvents.FilterOn = True
End Select


End Function

2- گویا یک فرم جستجو دارین که نتایج رو در یک فرم دیگه نمایش میده و در اون فرم مقادیر شرط رو از این فرم جستجو میخونین.
پیشنهاد میکنم اول این تاپیک (https://barnamenevis.org/showthread.php?544014) و همچنین این یکی تاپیک (https://barnamenevis.org/showthread.php?539141) رو ببینین،
ممکنه به شما کمک کنه.

3- الان مشخص نیست که نتیجه این option group باید با اونای دیگه AND بشه یا اینکه وظیفه دیگه ای داره.

[arman2000]

با سلام

نیاز دارم آدرس یک تکست‌باکس رو از یک فرم، در فرم دیگه‌ای استفاده کنم.

اگه در همون فرم باشه که کدش می شه:

Me.Text20 = "T"

ولی اگه توی فرم دیگه ای باشه، می‌شه چی؟


Me.Forms![Form2]![Text20]

که مطمین هستم اشتباه هست

[arman2000]

براي انتقال اطلاعات از يک تکست باکس به با تکست باکس ديگر ، لازم است دو تا فرم هم باز باشند :

Form_FrmA.Txt1 = Form_FrmB.Txt2


سلام


نیاز دارم آدرس یک تکست‌باکس رو از یک فرم، در فرم دیگه‌ای استفاده کنم.

اگه در همون فرم باشه که کدش می شه:

Me.Text20 = "T"

ولی اگه توی فرم دیگه ای باشه، می‌شه چی؟


Me.Forms![Form2]![Text20]

که مطمینم اشتباه هست

[mazoolagh]

سلام


نیاز دارم آدرس یک تکست‌باکس رو از یک فرم، در فرم دیگه‌ای استفاده کنم.

اگه در همون فرم باشه که کدش می شه:

Me.Text20 = "T"

ولی اگه توی فرم دیگه ای باشه، می‌شه چی؟


Me.Forms![Form2]![Text20]

که مطمینم اشتباه هست

سلام و روز خوش

کد دوم اشتباه هست (همونجور که خودتون گفتین)؛
وقتی به یک فرم بیرونی رفرنس میدین دیگه Me بی معنی هست،
اون برای رفرنس به همون فرمی هست که کد داره در اون اجرا میشه.

[mazoolagh]

تاپیک زیر رو ببینین:

آموزش: چگونه از یک فرم به فرم دیگر رفرنس (آدرس) بدهیم (barnamenevis.org) (https://barnamenevis.org/showthread.php?589394-%DA%86%DA%AF%D9%88%D9%86%D9%87-%D8%A7%D8%B2-%DB%8C%DA%A9-%D9%81%D8%B1%D9%85-%D8%A8%D9%87-%D9%81%D8%B1%D9%85-%D8%AF%DB%8C%DA%AF%D8%B1-%D8%B1%D9%81%D8%B1%D9%86%D8%B3-(%D8%A2%D8%AF%D8%B1%D8%B3)-%D8%A8%D8%AF%D9%87%DB%8C%D9%85)

[arman2000]

سپاس بزرگوار :تشویق::تشویق: