رکوردDefault

[Fazaeli]

دوستان عزیز
چگونه میتوان در سطح فرم مقدار یک رکورد را Default رکورد بعدی قرار داد؟
مثال :آقای محمدی را با مشخصات خاص خود در یک رکورد وارد کردیم وقتی به رکورد بعدی میرویم آقای محمدی بصورت Default در رکورد بعدی تایپ شده باشد تا شخص جدیدی را وارد کنیم
باتشکر

[moustafa]

در رویداد لاست فوکوس فیلد اخر فرمتون بنویسید

on error goto lable1

docmd.gotorecord acdataform,"formname",acnext

lable1:

docmd.gotorecord acdataform,"formname",aclast

m=name

docmd.gotorecord acdataform,"formname",acnewrec

name=m

یعنی برود به رکورد بعدی اگر خطای صورت گرفت برود به رکورد اخر مقدار اخرین فیلدنام را در mبگذارد وسپس یک رکورد جدید ایجاد کند ومقدار m رادر فیلد نام بگذارد

[Fazaeli]

در رویداد لاست فوکوس فیلد اخر فرمتون بنویسید

on error goto lable1

docmd.gotorecord acdataform,"formname",acnext

lable1:

docmd.gotorecord acdataform,"formname",aclast

m=name

docmd.gotorecord acdataform,"formname",acnewrec

name=m

یعنی برود به رکورد بعدی اگر خطای صورت گرفت برود به رکورد اخر مقدار اخرین فیلدنام را در mبگذارد وسپس یک رکورد جدید ایجاد کند ومقدار m رادر فیلد نام بگذارد

دوست عزیز
منظور از lable1چیست؟
mنام فیلد است یا نه؟
اگه میشه یک نمونه برام درتاپیک میگذارید ببینم!!!

[moustafa]

منظور از lable1چیست؟

با کنترل خطاها اشنا نیستی ؟ شی یا کنترل نیست برچسبی که به هنگام خطا برنامه به ان خط هدایت میشه شما میتونی از حروف یا کلمات دلخواه بجای lable1 استفاده کنی

mنام فیلد است یا نه؟

نه عزیز جان یه متغیره و میتوانی ان را با dim تعریف کنی عینه اینکه بگی مقدار فیلدنام اخرین رکورد را بخاطر بسپار حالا یه رکورد جدید تشکیل بده چیزی را که بخاطرسپردی بذار توفیلدنام رکورد جدید
شما این کدها را کپی کن به رویداد lostfocus اخرین فیلد فرمتون سپس بجای formname نام فرمتون وبجای name نام فیلدی را که می خواهی دیفالت بشه بذار حله
این کارها رابکن اگه نشد فایلت رابذار برات درست کنم

[Fazaeli]

با کنترل خطاها اشنا نیستی ؟ شی یا کنترل نیست برچسبی که به هنگام خطا برنامه به ان خط هدایت میشه شما میتونی از حروف یا کلمات دلخواه بجای lable1 استفاده کنی

نه عزیز جان یه متغیره و میتوانی ان را با dim تعریف کنی عینه اینکه بگی مقدار فیلدنام اخرین رکورد را بخاطر بسپار حالا یه رکورد جدید تشکیل بده چیزی را که بخاطرسپردی بذار توفیلدنام رکورد جدید
شما این کدها را کپی کن به رویداد lostfocus اخرین فیلد فرمتون سپس بجای formname نام فرمتون وبجای name نام فیلدی را که می خواهی دیفالت بشه بذار حله
این کارها رابکن اگه نشد فایلت رابذار برات درست کنم

دوست عزیز دستورات شما را مو به مو انجام دادم ولی باز errorمیده
فایلم رو گذاشتم تا مشکلشو ببینید
متشکرم

[moustafa]

دررویداد beforeInsert فرم:

DoCmd.GoToRecord acDataForm, "b", acLast

m = Nam

n = ID

k = SPH

DoCmd.GoToRecord acDataForm, "b", acNewRec

Nam = m

ID = n + 1

SPH = k

Nam.SetFocus



End Sub

البته پس از ایجاد رکورد جدید یک دکمه کنار اینتر عددی یا حروفی را فشاربده اطلاعات وارد میشود
فیلد id راهم عددمعمولی کردم که با هر بار یک واحد به ان اضافه میشه

[moustafa]

کامل کردن روش فوق
در روبداد ()GotFocus فیلد اولت یه مقدار را به یکی از فیلدها بدی دیگه نیاز به فشردن کلید اضافی نیست مثلا یه فیلد rowid به جدول و فرمت اضافه کن وخاصیت ویزبل ان را در فرم فالز کن واین کد رادر رویداد ()GotFocus فیلد id بنویس :
rowid=0

[mohsenna30ri]

می خواهیم در یک فرم اطلاعاتی را وارد کنیم که اغلب اطلاعات یک فیلد تکراری است مثلا سال تولد اغلب یک فیلد 1366 می باشد وقتی یک نفر با سال تولد 1367 وارد کردیم اکثر افراد بعد از او نیز متولد همین سال 1367 هستند چگونه می توان در یک فرم حالت پیش فرض یک فیلد را برابر آخرین مقدارش قرار داد تا ورود اطلاعات تسریع یابد
توجه: در پنجره پروپرتیز فرم مشخصه ای بنام Default value داریم که قابل تغییر است و در کد فرم هم می توان تغییر داد اما چگونه می توان برابر آخرین مقدار آن فیلد گذاست؟

[samaneh_h]

خب شما می‌تونی یک سلکت کوئری ایجاد کنی که مقدار اون تکست باکس رو بذاره last(year)
برو تو کوئری سال رو انتخاب کن از قسمت groupby گزینه last رو انتخاب کن .

[hamedinho]

با رعایت قوانین و مقررات سایت و احترام به اساتید سوال رو در عنوان مطرح کردم
اگر لطف کنید و من رو کمک کنید ممنون می شوم

[karmand]

هر فردی بنا به سلیقه خودش روشی برای ورود اطلاعات دارد و لی شاید بهتر این است که ما تکست باکسهای ایجاد شده روی فرم را مستقیم به بانک وصل نکنیم و وقتی کاملا از درست بودن اطلاعات مطمعن شدیم با یک کد نویسی در on click یک باتن تکستها را مساوی فیلدها کنیم در این حالت با add newتکستهای شما پاک نمیشود و انهایی را که میخواهید ثابت باشد را با enter رد میکنید حتی می توانید tabstopرا از آنها بگیرید تا سرعت بیشتر شود

[mohsenna30ri]

خب شما می‌تونی یک سلکت کوئری ایجاد کنی که مقدار اون تکست باکس رو بذاره last(year)
برو تو کوئری سال رو انتخاب کن از قسمت groupby گزینه last رو انتخاب کن .

منظورتون از تکست باکس چیه؟ ما که تو فرممون اصلا حرفی از تکس باکس نزدیم - تو کوئری هم از قسمت گروپ لاست رو انتخاب کردم اما مشکلی حل نکرد
شاید من منظورتون رو متوجه نمی شم لطفا کمی بیشتر توضیح بدین یا یک مثال ساده بفرستین - مرسی

[moustafa]

درجواب اقا حامد:کپی یک فیلد از رکورد اول برای تمام رکورد ها

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

docmd.GoToRecord acDataForm, "b", acfrist
x=fild1

[moustafa]

هر فردی بنا به سلیقه خودش روشی برای ورود اطلاعات دارد و لی شاید بهتر این است که ما تکست باکسهای ایجاد شده روی فرم را مستقیم به بانک وصل نکنیم و وقتی کاملا از درست بودن اطلاعات مطمعن شدیم با یک کد نویسی در on click یک باتن تکستها را مساوی فیلدها کنیم در این حالت با add newتکستهای شما پاک نمیشود و انهایی را که میخواهید ثابت باشد را با enter رد میکنید حتی می توانید tabstopرا از آنها بگیرید تا سرعت بیشتر شود

گذاشتن دکمه های save ,edit, new سرعت از کاربر میگیره در محل کار ما دوبرنامه یکی بدون اون دکمه ها بااکسس و دیگری با اون دکمه ها با دلفی ، کاملا سرعت و راحتی کار نمود پیدا می کنه
البته یه جا استاد عزیزم جناب اقای صارمی فرموده بودند که unbound بهترینه

[sarami]

متاسفانه در حالتی که Bound کار میشه کنترل کاربر سخت میشه و درمورد مقایسه هم باید عرض کنم به طراحی بستگی شدیدی داره ......

[moustafa]

متاسفانه در حالتی که Bound کار میشه کنترل کاربر سخت میشه

متوجه نشدم سخت میشه یعنی چی ؟
مگه اعتبار سنجی رو خود فیلدها تعریف نمیشه که کاربر در محدوه مجاز اطلاعات رو وارد کنه ؟
ساده ،راحت ،سریع در " bound"
برای عدم ویرایش هم پس از ورود اطلاعات روزانه دستوراتی قرار دادم که در محدوده زمانی یا .... رکوردها رو قفل میکنه

[sarami]

تو تجربیاتی که من داشتم error های ناخواسته و پیش بینی نشده که از جمله اون موارده و دیگری اینکه فرمها ایستا میشن و حالت Dynamic ازشون گرفته میشه شما میتونین از فرمهای Unbound چند منظوره استفاده کنین البته گفته های بنده وحی منزل نیست ممکنه تجربه شما و یا نگاهمون باهم تفاوت داشته باشه. هرکدوم رو که کاربر باهاش راحت تره فکر کنم و شما هم باهاش مشکلی نداری میتونه بهترین باشه . تجربه بنده Unbound بهتر بوده بعضی مواقع هم تلفیق این دو چاره ساز تره. در ضمن مشتاقانه منتظر ترجمه ی مقاله ایتالیایی شما هستیم ...

[moustafa]

در ضمن مشتاقانه منتظر ترجمه ی مقاله ایتالیایی شما هستیم ...

شرمنده استاد، من فرانسه ،اسپانولی ،پرتغالی ،المانی و هندی و چینی وژاپنی بلدم

[moustafa]

تو تجربیاتی که من داشتم error های ناخواسته و پیش بینی نشده که از جمله اون موارده و دیگری اینکه فرمها ایستا میشن و حالت Dynamic ازشون گرفته میشه

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

select case id

case 1:forms!form1.caption=" فرم ثبت درامد ها "

fild1.visible=false

me.backcolor=12632256

.....

case 2:forms!form1.caption=" فرم ثبت هزینه ها  "

fild1.visible=true

me.backcolor=12154621

.....