من فضلكم أريد عمل برنامج يعتمد على الشرط لمسلك معين

[merzoukrafi75]

من فضلكم أريد ادخال مكان الانطلاق من مدينة A الى مدينة B يعطيني المسار المدخل مسبقا 

نقطة الانطلاق               نقطة الوصول                 المسلك 

      A                        B                            A..................................................... 

Database1.rar

[أبو عبدالله الحلوانى]

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

هل نقطة الانطلاق ونقطة الوصول ثابتة دائما أم أن نقطة الوصول ربما اختلفت

بمعنى أن النقطة a دائما وصولها الى b  أم ربما تتغير نقطة الوصول الى c مثلا

 

[merzoukrafi75]

شكرا لك 

نفترض ان نقطة الانطلاق تكون 

A

B

C

D

ونقطة الانطلاق و الوصول هي 

A مع b          ( في هذه الحالة مثلا المسار يكون مسجلا وثابتا على المدن /أ ب ج د الى غاية b)

A مع c                                   //

A مع d                                   //

ثم نعود الى النقطة b ******************************

b مع a

b مع c

b مع d

............. الى اخره وشكرا جزيلا .........................................

 

 

 

 

[أبو عبدالله الحلوانى]

تفضل لعله قريب مما تريد

Database1.rar

[merzoukrafi75]

شكرا جزيل الشكر على الرد 

هل ممكن اضيف لها التاريخ الانطلاق وتكون على شكل تقرير لعدة مهام 

ر ت          التاريخ          الانطلاق        الوصول       المسلك 

1             1/5/2016        أ                  ب           أ ...........ب

2             2/5/2016        ب                 ج           ب ...........ج

3             3/5/2016        أ                  د            أ ...........د

 

وشكرا .......................

[أبو عبدالله الحلوانى]

3 ساعات مضت, merzoukrafi75 said:

هل ممكن اضيف لها التاريخ الانطلاق وتكون على شكل تقرير لعدة مهام 

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

[merzoukrafi75]

المسلك.rar

لقد أضفت هذا المثال للتوضيح أكثر 

هذا العمل مهم بالنسبة لي من فضلكم اساتذتنا الكرام مساعدتي 

للعلم 

01) المدن متغير 

02) المسلك ثابت 

03) القائمة تنجز على شكل استعلام أو تقرير شهري ويمكن ان تتجاوز أكثر من 40 عملية 

04) المدن تتغير بواسطة قائمة اختيار مثلما وضحتها في المرفق المسلك.rar

[merzoukrafi75]

لقد أضفت هذا المثال للتوضيح أكثر 

هذا العمل مهم بالنسبة لي من فضلكم اساتذتنا الكرام مساعدتي 

للعلم 

01) المدن متغير 

02) المسلك ثابت 

03) القائمة تنجز على شكل استعلام أو تقرير شهري ويمكن ان تتجاوز أكثر من 40 عملية 

04) المدن تتغير بواسطة قائمة اختيار مثلما وضحتها في المرفق المسلك.rar

 

•  

المسلك.rar

[أبو عبدالله الحلوانى]

اعذرنى فقد اختلط على الأمر ممكن حضرتك توضح الفكرة التي تريد تنفيذها

يعنى مثلا عندما ادخل كذا أريد أن يحدث كذا وشكرا

 

[merzoukrafi75]

شكرا استاذ على الرد 

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

حيث يمكن الانطلاق من النقطة أ لتصل الى النقاط ب أو ج ، د وكذلك النقطة ..... ب يمكن ان تتجه الى كل النقاط الثلاث ما عدا النقطة .... ب 

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

التقرير يحتوي على العديد من المهام اذا كان  ممكن  

هذا العمل سبق وأن أنجزته على الاكسال لكني أريده على الأكسز بواسطة الدالة الشرطية si

نقاط الانطلاق و الوصول تكون على شكل أزرار اختيار 

Classeur1.rar

[أبو عبدالله الحلوانى]

جرب هذا الحل هل هذا ما تريد

 

المسلك.rar

[merzoukrafi75]

من فضلك المسلك يتغير اوتوماتيكيا بواسطة الدالة الشرطية بتوفر شرطين نقطتي الانطلاق و الوصول 

[أبو عبدالله الحلوانى]

54 دقائق مضت, merzoukrafi75 said:

من فضلك المسلك يتغير اوتوماتيكيا بواسطة الدالة الشرطية بتوفر شرطين نقطتي الانطلاق و الوصول 

هل هذا سؤال أم اقرار 

وهذا ما يحث بالبرنامج 

[merzoukrafi75]

مرحبا اساتذتنا الكرام 

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

وشكرا

[merzoukrafi75]

هل ممكن مثلا أن استعمل الدالة switch 

المسلك: switch([مكان الانطلاق او المدينة]="الجزائر";[منطقة الوصول]="البليدة";"blida alger")

 

[أبو عبدالله الحلوانى]

جرب هذا ووافنا بالنتائج

تمنياتى بالتوفيق

 

المسلك.rar

[merzoukrafi75]

شكرا جزيلا لقد جربته وهو جيد 

فهل من الممكن أن تعلمني الطريقة التي قمت بها من فضلك والله يزيدك من فضله ومن علمه 

[أبو عبدالله الحلوانى]

هذا الكود موجود خلف مربع منطقة الوصول 

If Len(t1 & "") = 0 Or _
Len(t2 & "") = 0 Then
MsgBox "Please insert Start/End Point "
Else
t0 = t1 & " " & t2
End If

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

اعذرنى فأنا لا أجيد الشرح النظرى ولكن يمكنك عرض الكود ومحاولة التعديل عليه لتنظر ما هى التغيرات المناسبة لك 

[merzoukrafi75]

شكرا وصلت الفكرة اذن فهو يعتمد على t1 و t2 

لكن استاذي الكريم فهل من الممكن ان يكن المسلك يعتمد على مرجع واحد في الجدول لنفس المسار وهذا تفاديا للاخطاء في حال تعدد المهام في الشهر وشكرا

[أبو عبدالله الحلوانى]

23 ساعات مضت, merzoukrafi75 said:

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

المرفق الأول به تنفيذ لهذه الفكرة بالمشاركة رقم 4  تقريبا

ولكن سيكون لزاما انشاء جدول خاص ببيانات المسارات لجلب البيان المطوب منه 

[merzoukrafi75]

لقد قمت بوضع كل نقطة في جدول على حدى فهل هذا هو المطلوب

المسلك - Copie.rar

[أبو عبدالله الحلوانى]

منذ ساعه, merzoukrafi75 said:

لقد قمت بوضع كل نقطة في جدول على حدى

لا بل هو جدول واحد وليكن مثلا اسمه المسالك به أربع أو خمسة حقول 

ID  - Point1  - Point2  - DriverName - Msar 

مسلسل - نقطة الانطلاق - نقطة الوصول - اسم السائق - المسلك

بحيث يمكن الرجوع اليه وجلب بيانات المسالك منه والتى ستكون ثابته بهذا الاعتبار 

[merzoukrafi75]

شكرا ساحاول 

ولو ان الامر يبدو صعب للغاية ....

ساكون ممونا لك لو تفضلت علينا وارفقت بالمثال 

[أبو عبدالله الحلوانى]

18 ساعات مضت, merzoukrafi75 said:

ساكون ممونا لك لو تفضلت علينا وارفقت بالمثال 

المثال بالمشاركة رقم 4 بهذا الموضوع 

[merzoukrafi75]

للأسف لم تفلح مع ياحبذا مثال من فضلكم وشكرا