درخواست تاريخ متفاوت

[reza850101]

سلام مشكلي دارم كه اميدوارم با كمك وراهنمايي شما دوستان حلش كنم
وقتي درفرم سه فيلد(جدول A) زير اطلاعات را بصورت زير وارد ميكنم

از تاريخ -تا -مدت روز
27/02/89 -02/03/89 - 7

بصورت خوكار در دو فيلد جدول B چنين درج شود

تاريخ -مدت روز
27/02/89 -1
28/02/89 -1
29/02/89 -1
30/02/89 -1
31/02/89 -1
01/03/89 -1
02/03/89- 1

قبلا از وقتي كه گذاشتيد تشكر ميكنم

[jack007]

سلام
من منظورتون متوجه نشدم شاید اگه برنامه رو پیوست کنید بهتر باشه؟

[reza850101]

دوست عزيز برنامه در حد فرض است من قصد دارم برنامه اي براي ثبت مرخصي پرسنل بنويسم براي يك نفر كه از يك تاريخ مثلا 27/02/89 تاتاريخ02/03/89 يعني 7 روز مرخصي ميرود ميخواهم باثبت تاريخ شروع و پايان تاريخهاي بين آنها را پيدا و هريك را دريك ركود وارد كند (اين مثال يعني 7 ركود بشرح بالا)

[reza850101]

اينم نمونه اميدوارم مشكلم باكمك شمادوستان زودتر حل شه

ضمنا اينتابع براي من عمل نميك=Diff([az];[ta])

[reza850101]

باسلام
دوستان تابعي كه تاريخهاي بين دو تاريخ را استخراج كند وجود دارد يا خير ؟
چنانچه ندارد لطفا راهنمايي كنيد چطور ميشه اين تاريخها را بدست آورد ( موضوع تاپيك )1

[hghb57]

باسلام
دوستان تابعي كه تاريخهاي بين دو تاريخ را استخراج كند وجود دارد يا خير ؟
چنانچه ندارد لطفا راهنمايي كنيد چطور ميشه اين تاريخها را بدست آورد ( موضوع تاپيك )1

من يك فايل برات فرستادم
ببين مشكلت را حل ميكنه يا نه
درضمن هرگونه پيشنهادي جهت توابع موجود در ماژول تاريخ داري به من بگو تا اضافه كنم

[reza850101]

دوست عزيز از نمونه نتواتستم استفادهكنم اكسس من2003 است اگر ممكنه فايل نمونه را مطابق آن كنيدممنون

[reza850101]

باعجله اي كه بود با كپي كردن مازول و اونت فرم در برنامه 2003 فايل قابل رويت شد ،
خواهشي كهداشتم همانطوريكه شما تاريخ را در جدول اضافه ميكنيد من دوفيلد كدملي و نوع را ميخواستم اضافه كنم كه متاسفانه بعلت ندانستن كدنويسي نتوانستم به اونت شما اضافه كنم اميدوارم اين زحمت را مرا ببخشيد
مورد ديگر اينكه با فشردن دگمه تك تك تاريخ به جدول اضافه ميشود كه زمانبر است اينكار با يك كليك امكان پذير است ممنون ميشم
ازاينكه باعث زحمت شدم مجدد عذرخواهي ميكنم

[hghb57]

فایل اصلاح شد

[dadsara]

سلام
ضمن تشکر مجدد از دوست عزیز اگر کد را به این شکل تغییر دهید دیگر نیازی به تائید تمام روزها ندارید

Dim Dt As String, TDt As String
Dt = TxtFrom
TDt = TxtTo
While Dt <= TDt
DoCmd.SetWarnings False
SQLStr = "INSERT INTO Table1 ( Id, Dt, [Day], Kind )"
SQLStr = SQLStr & " SELECT '" & TxtID & "' AS F1, '" & Dt & "' AS F2, 1 AS F3, '" & TxtKind & "' AS F4"
DoCmd.RunSQL SQLStr
DoCmd.SetWarnings True
Dt = SDayAdd(Dt, 1)
Wend

[reza850101]

بي نهايت ممنون ازكليه دوستان بخصوص آقايان دادسرا و hghb57 ، اميدوارم هميشه موفق باشيد . تابعد...

[hghb57]

من در قسمت access option/advance گزینه های قسمت Confirm را غیر فعال می کنم و هیچ پیغامی برای اجرای کوئری نمایش داده نمی شود.
75441
فکر کنم این کار بوسیله کد نویسی هم امکان پذیر است

[reza850101]

[QUOTE=hghb57;1340481]من در قسمت access option/advance گزینه های قسمت Confirm را غیر فعال می کنم و هیچ پیغامی برای اجرای کوئری نمایش داده نمی شود.
باسلام
1- فكركنم مربوط به اكسس2007 باشد ، برنامه من 2003 است.
2- برنامه خيلي دقيق و خوب شده ، يك مشكلي دراين كد وجود دارد زماني كه (دكمه ارور را غيرفعال كنيم )اتوماتيك ركوردها را مي نشاند تاريخ اول كه تكراري است نمي نشاند ولي بقيه را مينشاند كه ثبت بقيه تاريخ اشتباه است مثلااز 90/06/15 تا 90/06/17 را درصورت تكراري بودن تاريخ شروع كلا نبايد عمل شود درصورتيكه مثلا 16و17/06/90 را اضافه ميكند ممكنه اين اشكال را بررسي كنيدممنونم ازكمكتان

[reza850101]

حداقل اگر پيغام دهد تاريخ ورود تكراري است دگمه كنسل يا ادامه داشته باشد خيلي خوب ميشد

[reza850101]

حداقل اگر پيغام دهد تاريخ ورود تكراري است دگمه كنسل يا ادامه داشته باشد خيلي خوب ميشد

DoCmd.SetWarnings Falseدوست عزيز منظور بااين فرمان بود - اصلا پيغام نميدهد درحالي كه حداقل ((پيغام تاريخ تكراري است ادامه ميدهيد)) را لازم دارم