اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

تعديل جملة استعلام


kaser906

الردود الموصى بها

السلام عليكم ورحمة الله وبركاتة

امل المساعدة في التعديل على جملة الاستعلام التالية

بإزالة الجزأ الخاص بعدد الثواني (second)

حاولت كثيراً التعديل عليها ولكن تظهر لي مشكلة في عدد الأقواس -

Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";TimeSerial(Hour(Nz([FT1]))-Hour(Nz([FT2]));Minute(Nz([FT1]))-Minute(Nz([FT2]));Second(Nz([FT1]))-Second(Nz([FT2]))))

 

رابط هذا التعليق
شارك

وعليكم السلام:smile:

 

حياالله من يانا:smile:

 

لانك تستخدم الدالة TimeSerial ، فما تقدر تحذف الثواني ، وانما تقدر تستبدلهم بـ 00 :

Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";TimeSerial(Hour(Nz([FT1]))-Hour(Nz([FT2]));Minute(Nz([FT1]))-Minute(Nz([FT2]));"00"))

.

جعفر

رابط هذا التعليق
شارك

3 دقائق مضت, jjafferr said:

حياالله من يانا:smile:

حياك الله وبياك وجعل الجنة مثواك

 

4 دقائق مضت, jjafferr said:

انك تستخدم الدالة TimeSerial ، فما تقدر تحذف الثواني ، وانما تقدر تستبدلهم بـ 00 :

هل من بديل لهذه الدالة لاني لاأريد ان تظهر خانة الصفرين الخاصة بالثواني في الاستعلام

رابط هذا التعليق
شارك

11 دقائق مضت, jjafferr said:

احذف الدالة كاملا ، هكذا:


Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2])))

 

جعفر

لم تنجح استاذي

بعد حذف الدالة تظهر رسالة خطأ بأن الاستعلام معقد جداً حاول تبسيطه

رابط هذا التعليق
شارك

جرب هاي في حقل مستقل ، وشوف نتيجته

Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2]))

 

ونتيجة هاي

Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";chr(34) & Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2]))) & chr(34)

 

جعفر

رابط هذا التعليق
شارك

14 دقائق مضت, jjafferr said:

Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2]))

هذه تعمل لكن المشكلة تعطي النتيجة بالسالب

 

15 دقائق مضت, jjafferr said:

Estime: IIf(IsNull([FT1]) Or IsNull([FT2]);"00:00";chr(34) & Hour(Nz([FT1]))-Hour(Nz([FT2])) & ":" & Minute(Nz([FT1]))-Minute(Nz([FT2]))) & chr(34)

أما هذه تظهر نفس الرسالة الاستعلام معقد جدا

رابط هذا التعليق
شارك

خلينا نستخدم دالة Format ونحل الموضوع بدون الثواني (لاحظ نهاية الاقتراح الثاني):smile:

Estime2: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"Medium Time"))

او
Estime3: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"hh:mm AMPM"))

.

آه ، لازم تستبدل ; بدل , (لأني اشتغل على وندوز انجليزي).

 

جعفر

رابط هذا التعليق
شارك

6 ساعات مضت, jjafferr said:

خلينا نستخدم دالة Format ونحل الموضوع بدون الثواني (لاحظ نهاية الاقتراح الثاني):smile:


Estime2: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"Medium Time"))

او
Estime3: IIf(IsNull([ft1]) Or IsNull([ft2]),"00:00",Format(TimeSerial(Hour(Nz([FT1]))-Hour(Nz([Ft2])),Minute(Nz([Ft1]))-Minute(Nz([FT2])),Second(Nz([FT1]))-Second(Nz([FT2]))),"hh:mm AMPM"))

.

آه ، لازم تستبدل ; بدل , (لأني اشتغل على وندوز انجليزي).

 

جعفر

ممتاز استاذي

المشكلة الان عند تحويل الدقائق إلى ساعات في تذييل التقرير

عندما اترك حقل الانصراف في احد السجلات بالجدول  فارغ تظهر نتيجة مجموع الدقائق عند تحويلها الى ساعات  خطأ

مجموع الدقائق 110

و يظهر المجوع بهذا الشكل  1.83في حقل التحويل  والمفروض تكون النتيجة 1.50ساعة وخمسون دقيقة

وكأن دالة nz بالاستعلام لم ترجع القيمة الصفرية للحقل الفارغ بالجدول

انظر المرفق

عند فتح التقرير ادخل الرقم 68  وانظر النتيجة

Qryrepot1.rar

رابط هذا التعليق
شارك

الخطأ في تحويل الدقائق الى ساعات ،

فما ينفع تقسم الدقائق على 60 فقط ، وانما نكون محتاجين نشوف الدقائق المتبقية ، وكذلك اذا اكثر من 60 ، نضيفها للساعة :blink:

 

عملت الوحدة النمطية التالية لهذا التحويل :


Function Convert_HM(H, M)

    a = M / 60
    b = a - Int(a)
    If b >= 0.6 Then
        Convert_HM = H + Int(a) + 1 + (b - 0.6)
    Else
        Convert_HM = H + a
    End If
    
End Function

.

وناديتها من حقل المجموع في التقرير هكذا:

540.1.Clipboard01.jpg

.

 

جعفر

540.1.Qryrepot1.mdb.zip

رابط هذا التعليق
شارك

 

1 ساعه مضت, jjafferr said:

الخطأ في تحويل الدقائق الى ساعات ،

فما ينفع تقسم الدقائق على 60 فقط ، وانما نكون محتاجين نشوف الدقائق المتبقية ، وكذلك اذا اكثر من 60 ، نضيفها للساعة :blink:

 

عملت الوحدة النمطية التالية لهذا التحويل :



Function Convert_HM(H, M)

    a = M / 60
    b = a - Int(a)
    If b >= 0.6 Then
        Convert_HM = H + Int(a) + 1 + (b - 0.6)
    Else
        Convert_HM = H + a
    End If
    
End Function

.

وناديتها من حقل المجموع في التقرير هكذا:

540.1.Clipboard01.jpg

.

 

جعفر

540.1.Qryrepot1.mdb.zip

مازال يوجد خطأ في المجموع استاذي

 

pc1.png

رابط هذا التعليق
شارك

14 دقائق مضت, jjafferr said:

كيف؟

118 / 60 = 1.966 !!

اخي جعفر

118 دقيقة تعادل 1 ساعة و 58 دقيقة

ولدينا مجموع الساعات  24 ساعة

عند جمعهم المفروض يظهر الناتج  25.58 خمسة وعشرين ساعة وثمانية وخمسون دقيقة

لكن يطلع المجموع كما في الصور 26.37 ستة وعشرين ساعة وسبعة وثلاثون دقيقة

هناك زيادة 39 دقيقة

 

رابط هذا التعليق
شارك

13 دقائق مضت, jjafferr said:

انا اعتذر منك

لا أستاذي الكريم لا تعتذر  الخطأ وارد يكفي أني اشغلتك معاي من الصباح

الآن اصبحت النتائج ممتاز ة:wavetowel::clapping::dance1:

الله يجزاك خير ويرحم والديك

رابط هذا التعليق
شارك

والآن نستطيع ان نجعل حقل المجموع Text34 :

540.1.Clipboard01.jpg

=[AccessTotalshour] + Int([AccessTotalsminute] / 60) + ((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) / 100

.

بالنسبة لمجموع الساعات والدقائق:

الساعات
=[AccessTotalshour] + Int([AccessTotalsminute] / 60)

الدقائق
=((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) / 100

 

رابط هذا التعليق
شارك

16 دقائق مضت, jjafferr said:

والآن نستطيع ان نجعل حقل المجموع Text34 :

540.1.Clipboard01.jpg


=[AccessTotalshour] + Int([AccessTotalsminute] / 60) + ((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) / 100

.

بالنسبة لمجموع الساعات والدقائق:


الساعات
=[AccessTotalshour] + Int([AccessTotalsminute] / 60)

الدقائق
=((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) / 100

 

هل يمكن ازالة الصفر مع الفاصلة من حقل الدقائق

pc2.png

رابط هذا التعليق
شارك

7 دقائق مضت, jjafferr said:

نعم ، احذف المائه:


الدقائق
=((([AccessTotalsminute] / 60) - Int([AccessTotalsminute] / 60)) * 60) 

 

جعفر

يعجز اللسان عن تقديم الشكر لك اخوي ابو موسى

لكن لك دعوة حاضرة ودعوة في ظهر الغيب

تحياتي وتقديري وشكري

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information