ممكن تكملة هذا الشرط فى قاعدة iif

تفضل :)

DARIBA: IIf([comp]='شركة مصر للسياحة' Or [comp]='شركة ترافكوا' And [KIND_TRANSE]='حقول',[PRICE_LIST]*0/100,[PRICE_LIST]*10/100)

جعفر

أخى الكريم

متشكر جداً على مجهودك معى ولكن نفس المشكلة قائمة . فبعد كتابة الكود اللى نصحتنى به تم تنفيذه على شركة ترافكوا فقط عندما أختار حقول فتكون الضريبة صفر .
ولكن لم يطبق الكود على شركة مصر للسياحة

أرجو حل المشكلة فى الملف المرفق

وجزاك الله كل خير

TRAVEL.rar

الله يطول عمرك اخي خالد ، كله شغال تمام :)

هاي المعادلة في الاستعلام:

وهاي النتيجة:

جعفر

أرجو مراجعة الملف بتاعى

حيث لاحظت أن الأوفيس اللى حضرتك بتستحدمه 2007 وأنا بستخدم 2003

عندى عملت تغيير لعلامة , إلى علامة ;  لانه لايقبل ال ,

ارجو الحل لو سمحت على الفايل بتاعى وإرفاقه

طيب غير مثل ما هو مطلوب ، ولكن هل تظهر لك النتائج؟

مرفق لبرنامج

جعفر

249.TRAVEL.mdb.zip

النتائج تظهر لى صحيحة مع شركة ترافكوا فقط

لكن مع شركة مصر للسياحة لا تظهر

مرفق صورة للنتائج

Doc2.doc

النتائج تظهر لى صحيحة مع شركة ترافكوا فقط

لكن مع شركة مصر للسياحة لا تظهر

مرفق صورة للنتائج

Doc2.doc

انا اعتذر منك اخ خالد ، فلم الاحظ اين الخطأ ، وانت لم تخبرني ان البرنامج اخذ "الداخلية" كصفر (يعني قلت في خطأ ولكن لم تحدد اين الخطأ بالضبط) ، وانا كنت انظر للعموم وليس للتفصيل :(

تفضل الكود المعدل:

DARIBA: IIf(([comp]='شركة مصر للسياحة' And [KIND_TRANSE]='حقول') Or ([comp]='شركة ترافكوا' And [KIND_TRANSE]='حقول'),0,[PRICE_LIST]*10/100)

جعفر

للاسف ، الكلمات العربية قلبت الامر ، فما صار مفهوم :(

المفروض يكون بهذا التفصيل:

DARIBA: 
IIf(
([comp]='شركة مصر للسياحة' And [KIND_TRANSE]='حقول')
Or 
([comp]='شركة ترافكوا' And [KIND_TRANSE]='حقول')
,0,[PRICE_LIST]*10/100)

والمرفق

249.TRAVEL.mdb.zip

شكراً جزيلا وجزاك الله كل خير وزادك الله من علمه

:)

شكراً جزيلا وجزاك الله كل خير وزادك الله من علمه

السلام عليكم أخي خالد :)

ايش رأيك اعطيك طريقة ثانية سهله ، مب فقط تسهل عليك هذا الموضوع ، وانما تفتح لك آفاق جديدة :)

نعمل وحدة نمطية فيها الكود ، ثم نستدعي هذه الوحدة النمطية من الاستعلام.

1. الحقول التي لها علاقة بالمعادلة: [comp] ، [KIND_TRANSE] ، [PRICE_LIST]

لذا سنرسل هذه الحقول الى الوحدة النمطية ،

سنسمي الوحدة النمطية Calc_Dariba ،

وسنناديها من الاستعلام هكذا (لاحظ ترتيب الحقول المرسلة ، لذلك يجب ان نستقبلها في الوحدة النمطية بنفس الترتيب) :

DARIBA2: Calc_Dariba([comp],[KIND_TRANSE],[PRICE_LIST])

2. هذه الوحدة النمطية والتي هي نفس امر iif الذي استعملته في الاستعلام  ، ولكنها مفككة ومبسطة ،

وتبسيطا لي ، فقد اعدت تسمية الحقول المرسلة من الاستعلام ، بحروفها الاولى:

Function Calc_Dariba(C, K, P)

    'C = [comp]
    'K = [KIND_TRANSE]
    'P = [PRICE_LIST]
    
    If C = "شركة مصر للسياحة" And K = "حقول" Then
        Calc_Dariba = 0
    
    ElseIf C = "شركة ترافكوا" And K = "حقول" Then
        Calc_Dariba = 0
        
    Else
        Calc_Dariba = P * 10 / 100
    
    End If

End Function

3. والان نرى نتيجة هذه العملية في الاستعلام ، ونقارن النتائج هذا الحقل مع المعادلة السابقة (جنبا الى جنب):

طريقة العمل اسهل بكثير من الشرح ، صدقني :)

جعفر

249.TRAVEL.mdb.zip

فكرة رائعة استاذ جعفر 

اعجبتني وحاولت تطبيقها ولكن لم أوفق

هل ممكن تنطبق على هذه الشروط 

إذا كان (يوم Datetrav يساوي 'الخميس' فإن Datefin +3)

إذا كان (يوم Datetrav يساوي 'الجمعة' فإن Datefin +2)

إذا كان( يوم Datetrav يساوي 'السبت' فإن Datefin +1)

وإذا كان غير هم تكون تساوي Datefin +1

وعليكم السلام اخي كريمو :)

ضع قاعدة بياناتك ، وان شاء الله خير :)

جعفر

jjafferr كتب:

وعليكم السلام اخي كريمو :)

 

ضع قاعدة بياناتك ، وان شاء الله خير :)

 

جعفر

اليك المرفق أخي جعفر

والحل يكون كمايلي :

إذا كانت نهاية الإجازة يوم الخميس يعني بدء العمل يوم الأحد اي نهاية الإجازة + 3

إذا كانت نهاية الإجازة يوم الجمعة يعني بدء العمل يوم الأحد اي نهاية الإجازة + 2

إذا كانت نهاية الإجازة يوم السبت يعني بدء العمل يوم الأحد اينهاية الإجازة + 1

النهاية عند سائر الأيام الأخرى أي "الأحد أو الإثنين أو الثلاثاء او الإربعاء" تكون نهاية الإجازة+1

اجازة.rar

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

تم تحويل:

Expr1: IIf([youm2]='الخميس',[findate]+3,IIf([youm2]='الجمعة',[findate]+2,IIf([youm2]='السبت',[findate]+1)))

الى

Function Date_Return(F)

    W = Weekday(F)
    
    If W = vbThursday Then      '"الخميس"
        Date_Return = DateAdd("d", 3, F)
        'Date_Return = F + 3
    
    ElseIf W = vbFriday Then    '"الجمعة"
        Date_Return = DateAdd("d", 2, F)
        'Date_Return = F + 2
        
    ElseIf W = vbSaturday Then  '"السبت"
        Date_Return = DateAdd("d", 1, F)
        'Date_Return = F + 1
        
    Else
        Date_Return = DateAdd("d", 1, F)
        'Date_Return = F + 1
    
    End If
    
End Function

بحيث تناديه من الاستعلام هكذا:

D: Date_Return([findate])

جعفر

321.اجازة.mdb.zip

بورك فيك استاذ جعفر

وهو كذالك 

الله مايحرمنا من تواجدك اليومي معانا ومساعدتنا

حياك الله :)

اخي كريمو

انا لاحظت ان معظم افراد المنتدى يستخدمون خاصية الانبثاق ، وPopUp في النماذج!!

بينما انا نادرا ما افعل هذا في برامجي!!

فهل لديكم سبب في ذلك؟

جعفر

jjafferr كتب:

اخي كريمو

 

انا لاحظت ان معظم افراد المنتدى يستخدمون خاصية الانبثاق ، وPopUp في النماذج!!

 

بينما انا نادرا ما افعل هذا في برامجي!!

 

فهل لديكم سبب في ذلك؟

 

 

جعفر

من ناحيتي اعمل هذا من اجل الرؤية المميزة للنموذج ليس الا  لأنها عندها مظهر جميل للرؤية

شكرا جزيلا :)

العفو اخي واستاذي جعفر    :)