دوستان با سلام مجدد
در فایلی که ضمیمه هست سوالی مطرح کردم
امیدوارم که به جواب برسم .
خیلی ممنون
Printable View
دوستان با سلام مجدد
در فایلی که ضمیمه هست سوالی مطرح کردم
امیدوارم که به جواب برسم .
خیلی ممنون
روی دکمه اجرااین کد را بگذاریدPrivate Sub Command6_Click()
Dim Count
For Count = az To ta
DoCmd.RunSQL "INSERT INTO far ( cod, num )SELECT asli.cod, " & Count & " FROM asli WHERE (((asli.cod)='" & cod & "'));"
Next
End Sub
ممنونم
فعلاً تست نکردم ولی همین که جواب دادین متشکرم.
خواهش می کنم
پیشنهاد می کنم تا جایی که امکان داره از پیوست کردن فایلصرف نظر کنید و سوالات رو همینجا مطرح کنید تا حجم کار پایین تر بیاد و با مشکل فضا مواجه نشیم .
ممنون
بله سعی میکنم
اما در مورد کدی که نوشتید ...
برای ایجاد هر رکورد من بایستی یک بار کلیک کنم یعنی اگه خواسته باشم عددی بین 1 تا 100 ایجاد کنم باید 100 بار کلیک کنم ؟
اگه منظورتون از هر رکورد تویsubform باشه نه فقط یک بار کافیه اما اگه توی فرم اصلی برای ایجاد رکورد جدید می گید بله چون سوال شما این نبود .
البته من منظورم این بود که با یک بار کلیک بتونیم به تعداد دلخواه یا همان مقداری که در فیلدها مقدار دهی می کنیم رکورد ایجاد کنیم آن هم با یک بار کلیک حال چه این کلید توی فرم اصلی باشه یا در ساب فرم فرقی نمیکنه
ضمناً اگه بخواهیم در ساب فرم 2 فیلد داشته باشیم که بخوایم مقدار دهی کنیم قضیه چه جوریه؟
اتفاقا درصورت امکان دوستان اگرسئوالات خودرا با یک فایل توضیح بدن درک مطلب برای بقیه خیلی ملموس وعینی تر میشه! باپوزش از سنبله
قسمت اول مشکل که رفع شد یعنی با یک کلیک رکوردهای دلخواه ایجاد می شن .نقل قول:
نوشته شده توسط kamran kamrani
برای مقدار دهی به فیلدهای بیشتر باید در کد بالا بعد از num نام فیلدها و قبل از From مقدار مورد نظرتون رو اضافه کنید .
آقای سنبله کار با عرض معذرت
مشکل ایجاد رکورد فقط با یک کلیک حل نشد...
یعنی کد بالا کوردهای بین دو عدد را در subform ایجاد نکرد ؟
اگه می خواهید من نمونه اصلاح شده را آپلود کنم .
چرا ولی باید به تعداد روی دکمه کلیک کنید...
اگه ممکنه فایلی رو آپلود کنید...
اینم نمونه اصلاح شده
آقای سنبله کار سلام
من فایل شما رو نگاه کردم شاید منظور منو متوجه نشده باشید یا اینکه شاید برنامه شما در سیستم من جواب نده!
به هر حال
در اون 2 تا فیلد ما بعنوان مثال میگیم از شماره 5 باشه تا 10 یعنی 6 تا رکورد در ساب فرم ایجاد بشه خوب منظورم این هستش که فقط با یک بار کلیک این عمل صورت بگیره یعنی 6 تا رکورد به یکباره ایجاد بشه نه 6 بار هی دکمه رو کلیک کنم...
ولی من بایستی دقیقاً 6 بار دکمه رو کلیک کنم یعنی رکوردها بصورت تک تک ایجاد میشه
حالا نمیدونم در سیتم شما طور دیگری هست یانه ؟
ممنون
زحمت بکشید پس از یک بار کلیک به رکورد آخر بروید و دوباره به همان رکورد برگردید نتیجه را حتما در زیر فرم مشاهده خواهید کرد .
دوست عزیز آقای سنبله کار
عرض کنم که با اولین کلیک فوراً پیغامی تولید میشه که با کلیک روی دکمه OK یک رکورد ایجاد میشه و مجدداً بلافاصله دوباره همان پیغام تکرار میشه و تا تعداد رکوردی که میخواهیم ایجاد کنیم این پیغام ادامه داره و اگر کنسل کنیم فقط یک رکورد ایجاد میشه و یا هر تعداد که OK کردیم.
البته ایجاد رکورد بلافاصله نیست بایستی یک رکورد از طریق فرم اصلی به جلو یا عقب بریم که در این حالت رکورد ابجاد شده نشون داده میشه
ومن منظورم جلوگیری از نمایش پیغام بود که با یکبار کلیک فقط یک رکورد ایجاد نشه هر تعدادی که مشخص کردیم به همان تعداد رکورد ایجاد بشه
خیلی ممنونم...
متوجه مشکل شدم شما باید قبل از کدتون از DoCmd.SetWarnings Falseاستفاده کنید تا دیگه بهتون پیغام نده و در انتها اونو true کنید .
برای جلوگیری از جابجایی رکورد هم کافیه از Requery روی زیرفرمتون استفاده کنید.
موفق باشید.
آقای سنبله کار خیلی از شما ممنونم
حل شد
آقای سنبله کار
من یک فیلد از نوع Number به تیبل Far اضافه کردم بنام b و کد رو نیز تغییر دادم ولی خطا میگیره ...
Private Sub Command6_Click()
DoCmd.SetWarnings False
Dim Count
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
For Count = az To ta
DoCmd.RunSQL "INSERT INTO far ( cod, num, b )SELECT asli.cod, " & Count & " FROM asli WHERE (((asli.cod)='" & cod & "'));"
Next
[Form_far Subform].Requery
DoCmd.SetWarnings True
End Sub
نمیدونم چرا این خطا رو میگیره .
مقدار متناظر با b در ادامه عبارت Select باید بیاد تا هر کدوم از فیلدها یک مقدار بهشون اختصاص داده بشه .
فایلی که خواسته بودید
خیلی ممنون
از اینکه دیر شد ببخشید
فایل اصلاح شده رو براتون گذاشتم
اما به نظر می رسه دو نکته باید مورد توجه قرار بگیره
1- فیلد تاتاریخ مورد مصرفی ندارد
2- با گذشتن تعداد مورد انتظار شما از تعداد روز ماه تاریختون اعداد بصورت غلط در قسمت روز می آیند که برای اون باید فکری کنید .
موفق باشید .
خیلی متشکرم
ضمنآ به شما آقای سنبله کار و آقای صارمی تبریک میگم...