این برنامه چطور کار میکند؟

[wolfstander]

سلام به همه دوستان
فکر کنم خیلیا از این انتخاب کننده تاریخ تو برنامه اشون استفاده کردن
تو همین فروم بوده و منم برش داشتم
یه نکته جالبی رو توش دیدم
که میخوام ازش استفاده کنم
شما زمانی که تاریخی رو انتخاب میکنید، تاریخ به صورت خودکار تو فیلدی که در اونت On Click تعریف کردید، میشینه
هرچی نگاه کردم، سر در نیاوردم که این برنامه چطور کار میکنه در این قسمت
کسی هست که راهنمایی کنه؟.
میخوام تو قسمت انتخاب مشتری در برنامه خودم، از این تکنیک استفاده کنم
به این صورت که بعد از انتخاب مشتری، کد مشتری خودکار بشینه توی فیلد
در حال حاضر کاری که میکنم اینه که اول میام و جستجو میکنم
کاربر روی لیست باکس میره و مشتری رو انتخاب میکنه
برنامه کد انتخاب شده رو توی یک متغیر سراسری میریزه
بعد کاربر با استفاده از یک دکمه، کد رو به تکست باکس انتقال میده
میخوام که اون دکمه رو از این وسط حذف کنم
و چون از اون فرم، در بخشهای مختلف برنامه استفاده میکنم، نمیتونم بگم که وقتی بسته شد، فلان تکست باکس رو برابر کد مشتری قرار بده
به این دلیل که یه مشتری خریدار دارم، و یک مشتری تحویل گیرنده و اینها هردو از یک جدول فراخوانی میشن
با تشکر از شما

[mahdi_107]

به دستور open كردن فرم دقت كن (acDialog) در اين حالت تا وقتي فرم بازه دستور بعدي اجرا نمي شه
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
حال مقدار خروجي را در يك متغير سراسري ريخته و بعد از اين دستور open در تكست باكسمان اعمال مي كنيم

[wolfstander]

تا اینجا رو مشکلی ندارم
مشکل اصلی زمانی هستش که مقداری که در متغیر سراسری هست رو بریزیم توی تکست باکسهای مختلف

[id1385]

با سلام
خب شما رویدار زیر رو نگاه کن:


Private Sub Command16_Click()
DoCmd.OpenForm "frmcalendar", acNormal, , , , acDialog
If strDate <> Empty Then
date1.Value = strDate 'My textbox in form
End If
End Sub


date1.Value = مقدار سراسری من رو میگیره که این میتونه تکس باکسهای مختلف و یا متغیرهای دیگه مختلفی باشه.
بازم اگه بتونی نمونه بذاری خیلی بهتر میشه نظر داد.


موفق باشید.

[wolfstander]

سلام
این هم نمونه برنامه
میخوام در قسمت صدور فاکتور، بعد از اینکه کاربر روی دکمه ... کلیک کرد، بعد از اینکه موردی رو تو لیست باکس انتخاب کرد و مقدار انتخاب شده در متغیر سراسری ریخته شد، به محض بستن فرم جستجوی مشتری، مقدار متغیر سراسری در فیلد کد مشتری قرار بگیره
فکر کنم حالا خوب تونسته باشم منظورمو برسونم
:لبخند:

[HAMRAHSOFT.IR]

دوست خوب فكنم جواب اين باش
Private Sub RunDialog()
mRunning = True
DoCmd.OpenForm "DatePicker", , , , , acDialog
DoCmd.Close acForm, "DatePicker"
mRunning = False


ببين همينو مخواستي؟ فرم كه بسته ميشه كد مشتري نگاه كن
البته جا داره بهتر و قشنگتر هم در بياد

اگه نتونستيد بگو دا برات در بيارم

[mahdi_107]

خدمت شما نمونتون اصلاح شد