تخصیص عدد [بایگانی] - برنامه نویس

mosaArabi

سه شنبه 13 بهمن 1394, 12:55 عصر

با سلام
اگر ما در فرم اصلی مثلا در 2 تکس بزنیم 1 الی 50
حال در سابفرم فقط ستون عدد میباشد دستوری ثبت گردد که از عدد 1 تا 50 را خودش ایجاد کند

با تشکر

alirezabahrami

سه شنبه 13 بهمن 1394, 16:17 عصر

با سلام
اگر ما در فرم اصلی مثلا در 2 تکس بزنیم 1 الی 50
حال در سابفرم فقط ستون عدد میباشد دستوری ثبت گردد که از عدد 1 تا 50 را خودش ایجاد کند

با تشکر
سلام
با فرض اینکه عنوان دو تکست باکس شما در فرم اصلی TxtNum1 و TxtNum2 باشد و عنوان سابفرم هم Subform
همچنین نام جدول مربوطه table1 و نام فیلد عددی در جدول فوق Num باشد
با استفاده از کد اسکیول و ایجاد حلقه for ... next
از کد زیر استفاده کن :

DoCmd.SetWarnings False
For i = TxtNum1 To TxtNum2
DoCmd.RunSQL "INSERT INTO Table1(Num)VALUES (" & i & ")"
Next
Me.Subform.Requery
DoCmd.SetWarnings True

با استفاده از رکورست هم همین کار را میتوانید انجام بدهید
ناگفته نماند که کد بالا با این فرض که قصد اضافه نمودن اطلاعات به جدول مربوطه را دارید کاربرد دارد و اگر جدول فوق اطلاعات دارد و صرفاً قصد ویرایش دارید باید از .......... DoCmd.RunSQL Update استفاده کنید .
یا علی

mosaArabi

چهارشنبه 14 بهمن 1394, 07:21 صبح

ممنون جناب بهرامی عزیز
ستون فقط عددی است و فقط تعداد باید در سابفرم درج گردد . تست میزنم مورد داشت مزاحمتون میشم

با تشکر

mosaArabi

چهارشنبه 14 بهمن 1394, 08:02 صبح

جناب بهرامی
نمونه را ضمیمه کردم . نمیدونم چرا بمن جواب نداد بی زحمت شما یه تست بزنید
در فرم تیبل 1 در ایتم تعداد عدد مورد نظر درج میشه مثلا 50
در سابفرم که فقط یک ستون میباشد مقدار مردج شده در فرم از 1 تا 50 ایجاد شود
ممنون

ehsansharif

چهارشنبه 14 بهمن 1394, 13:35 عصر

سلام داداش من نمونه رو بررسی کردم کد مشکل نداشت مشکل از نام گذاری فیلد table ها می باشد سعی کنید fieldname ها رو تو برنامه هاتون انگلیسی تعریف کنید و در صورت ضرورت و تمایل caption را فارسی نام گذاری کنید از ایجاد فاصله بین نام گذاری ها خودداری کنید می تونید از _ استفاده کنید نمونه شما چون دارای ریلیشن بود تغییراتی توی کد دادم البته با اجازه ی آقای علیرضا