إذا تكررت البيانات بأداة Combo

Dim RS As New ADODB.Recordset
Dim SQL As String
'

    SQL = "SELECT * FROM TypeStokePrice WHERE BluckType='" & combo & "'"
 Set RS = Cn.Execute(SQL)
'

 If RS.EOF = False Then Label3.Caption = RS.Fields(7)
 If RS.EOF = False Then Text5.Text = RS.Fields(3)
 If RS.EOF = False Then Text6.Text = RS.Fields(4)

'
    RS.Close
Set RS = Nothing

طريقة الاتصال بالادو

وَقُل رَّبِّ زِدْنِي عِلْماً

#78 يناير 2005 في 12:08

أخى arafa

أولا يا ليت تعدل توقيعك لتجعله حسب الآية 114 سورة طه

وَقُل رَّبِّ زِدْنِي عِلْماً {114} بدون ياء

ثانيا على حسب ما فهمت من كلامك أنك تريد كل الأكواد التى ضمن مقاس محدد،

ولكنه يعطيك الأول فقط

أعتقد أنك نسيت أن تتحرك للآخر لتمكنه من قراءة كل البيانات

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

ولابد لك من تحريكه لكى يراها

والله أعلم

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#88 يناير 2005 في 12:52

السلام عليكم

اريد منك بعض التوضيح .

هل محتويات combo هي( 1200R20 G550 TCF 12345) أو (12345) ؟

وما هو الخزن منها في BluckType ؟

#98 يناير 2005 في 21:43

اداة الكمبو تحتوى فقط على المقاس ويكون بهذا الشكل :

1200R20

1200R24

ولكن لكل مقاس مواصفاتة الخاصة

وانا عندما اختار المقاس 1200ٌR20 مثلا فأنة يجلب لى بيانات اول سجل لهذا المقاس مع العلم ان المقاس تكرر مرتين ولكن هناك إختلاف فى البيانات لكل مقاس

ارجو ان اكون اوضحت . والكود الذى اسنخدمة بالاعلى,,

الاخ الفاضل abulyaman انا شاكر لتنبيهك وسوف اعدل توقيعى

وَقُل رَّبِّ زِدْنِي عِلْماً

#108 يناير 2005 في 23:24

المسأله صعبه ؟

وَقُل رَّبِّ زِدْنِي عِلْماً

#119 يناير 2005 في 09:32

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

حقيقة أنا أشعر أن هناك شئ وفقود فى شرحك للمسأله

أولا أطمئنك بأن المسألة بسيطة - بس لو عرفناها.

إذا كنت تحاول الوصول لسجل محدد ، فلابد لك أن تصل إليه من خلال مفتاحه _ أقصد القيمة الفريدة Unique التى تميزه بها، لذلك إذا كان المقاس يتكرر فلن يصلح كقيمة فريده، ولكنه يصلح كمعامل للتصفية - كأن تعرض كل السجلات المشتركة فى هذا المقاس. وفى هذه الحالة لن يصلح أن تعرضها فى أداة Lable لأنها أكثر من سجل. هنا يمكنك ملئ الكمبوبوكس بنتائج هذه التصفيه أو تعرضها فى جريد - حسب تنسيقك.

هل بذلك نحن نقترب من الإجابة أم نبتعد؟

يسّر الله لك وبلغك مطلبك

تم تعديل هذه المشاركة بواسطة abulyaman في 9 يناير 2005 في 09:37

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#129 يناير 2005 في 23:01

سأقوم بإرفاق مثال يوضح ما اطلب

وشاكر جدا لمساعدتك

وَقُل رَّبِّ زِدْنِي عِلْماً

#1310 يناير 2005 في 00:03

الملف المرفق سيبين ما اريدة بالتحديد

وشكرا مرة اخرى للمساعدة

:)

COMBO.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#1410 يناير 2005 في 11:58

أخى العزيز

سأطلع على المثال

وإن شاء الله أساهم فى حل المسأله على قدر استطاعتى

والله من وراء القصد وهو يهدى السبيل

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#1510 يناير 2005 في 13:43

أخى عرفة

هذا ما أعاننى الله عليه خلال هذه الساعة من العمل

على عجالة - والبركة فى النسخ واللصق.

ولكنى أضفت لك العديد من الأشياء التى قد تفيدك

منها

1- التصدير للإكسل

2- الطباعة من الجريد مباشرة

3- إمكانية نقل الأعمدة

4- إظهار عدد ومجموع الخلايا المظلله

5- إمكانية استخدام عجلة الماوس مع الجريد

هذا بالإضافة لأن العرض يظهر حسب أيا من الشروط التى تختارها للمنشأ والنقشه والمقاس

الأكواد هنا يتحكم فيها المقاس فقط

وعندما تختار كود يظهر سعرة ويمكنك إضافة عناصر أخرى إذا أردت

هذا وأسأل الله أن يكون ما كنت تبحث عنه

أخبرنى إذا صادفتك مشاكل

وأعذرنى على تغيير كودك

وبلغنى رأيك

وأخيرا لا تنسانا من الدعاء إن أعجبك

(أو لم يعجبك)

COMBO_Arafa.zip

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#1610 يناير 2005 في 13:44

أخى عرفة

هذا ما أعاننى الله عليه خلال هذه الساعة من العمل

على عجالة - والبركة فى النسخ واللصق.

ولكنى أضفت لك العديد من الأشياء التى قد تفيدك

منها

1- التصدير للإكسل

2- الطباعة من الجريد مباشرة

3- إمكانية نقل الأعمدة

4- إظهار عدد ومجموع الخلايا المظلله

5- إمكانية استخدام عجلة الماوس مع الجريد

هذا بالإضافة لأن العرض يظهر حسب أيا من الشروط التى تختارها للمنشأ والنقشه والمقاس

الأكواد هنا يتحكم فيها المقاس فقط

وعندما تختار كود يظهر سعرة ويمكنك إضافة عناصر أخرى إذا أردت

هذا وأسأل الله أن يكون ما كنت تبحث عنه

أخبرنى إذا صادفتك مشاكل

وأعذرنى على تغيير كودك

وبلغنى رأيك

وأخيرا لا تنسانا من الدعاء إن أعجبك

(أو لم يعجبك)

COMBO_Arafa.zip

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#1710 يناير 2005 في 20:29

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

اخى الفاضل abulyaman

انا شاكر لك جدا لمجهودك وإصرارك على مساعدتى

وأسأل الله العلى القدير ان يوفقك فيما تحبه وترضاه , بارك الله فيك

جارى التحميل وسأوافيك بالنتيجة

:)

وَقُل رَّبِّ زِدْنِي عِلْماً

#1811 يناير 2005 في 22:58

اخى الفاضل abulyaman

اكثر من راااااااائع

هذا ما كنت ابحث عنه تقريبا كل ما حتاجة من سؤالى وجدتة فى مثالك الجميل

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

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

:)

وَقُل رَّبِّ زِدْنِي عِلْماً

#1912 يناير 2005 في 08:54

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

الحمد لله أن المثال أعجبك ورد على سؤالك وصدّق قولى حين أخبرتك أنها بسيطة

لا تنسانا من الدعاء

ولو عندك أى شئ فى الفليكس جريد أو خلافه يا ليت نتشارك فى حله سوا

وأسأل الله أن ييسر لك الصعب ويوسع عليك فى العلم والرزق الحلال

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#2014 يناير 2005 في 03:04

السلام عليكم

اخى الفاضل abulyaman اهلا بك

اشكرك من كل قلبى وبارك الله فيك وادخلك فسيح جناته

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

معين حين تضغط على الكمبو الخاصة بالمنشأ والنقشه !!!

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

المقاس فى االمربعات

شاهد المرفق بنفسك وحاول ان تعدل الخطأ الحاصل

شكرا جزيلا

السلام عليكم

COMBO_Arafa.zip

وَقُل رَّبِّ زِدْنِي عِلْماً

#2115 يناير 2005 في 11:38

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

أشكرك من كل قلبى على دعائك لى ولك مثله وزيادة

أما بعد

فلابد أن نتفق على المبادئ قبل العمل

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

لو رجعت لما قلت وقالته الأخوة من قبل ستثبت عندك القاعدة التى تقول أنك لن تعرض أكثر من سجل فى مربع النص الواحد، صح؟

ولذلك عليك عرضهم فى الجريد، وهذا ما بعثته لك فى الرد على مثالك

أما تحميل كمبو المقاسات بكل المقاسات التى تتبع نقشة معينة فهو كالتالى

Private Sub cmbModel_Click()
    ''''''''''************* Load The BluckType Due to Selected Model ************
    SqlStr = "Select Distinct BluckType From TypeStokePrice "
    Set Rs = New ADODB.Recordset
    If cmbModel.Text <> "All" And cmbModel.Text <> "" Then
       SqlStr = SqlStr & " Where Model='" & cmbModel.Text & "' "
    End If
    
       SqlStr = SqlStr & " Order By BluckType Asc;"
      
    If Not Rs.State = adStateOpen Then
           Rs.Open SqlStr, Cn, adOpenStatic, adLockOptimistic
    End If
           cmbBluckType.Clear:  txtPrice.Text = ""
     If Rs.RecordCount > 0 Then
        Rs.MoveLast: Rs.MoveFirst
        For C = 0 To Rs.RecordCount - 1
           cmbBluckType.AddItem "" & Rs!BluckType
           Rs.MoveNext
        Next C
     End If
    If Not Rs.State = adStateClosed Then Rs.Close
End Sub

وسبب الأخطاء - فى الغالب هو أنك تجبر الكمبوبوكس على تغيير محتواه بعد أن تنقره بالماوس مثل

     Rs.Find "origin=" & cmbOrigin.Text, , adSearchForward
     If Not Rs.EOF Then
        cmbOrigin.Text = "" & Rs!origin
        Text1.Text = "" & Rs!Stoke
        txtPrice.Text = "" & Rs!thuPrice
        cmbModel.Text = "" & Rs!model
     End If

هنا مثلا أنت بعد أن بحثت عن محتوى الكمبوبوكس للمنشأ غيرته بمجرد العثور عليه، فاهم قصدى؟

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

وأيضا أسألك، لم كل هذا والمستخدم لديه كل الاختيارات فى العثور على الكود من خلال الكمبو الخاص به أو من خلال الجريد؟

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

وأنصحك أن تقلل فى عمليات الفلترة فى البرنامج قدر الإمكان لأنها تبطئ عمل البرنامج مع زيادة البيانات وتأثر على أدائه

وأسأل الله لك التوفيق والسداد

تم تعديل هذه المشاركة بواسطة abulyaman في 15 يناير 2005 في 11:42

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#2216 يناير 2005 في 22:10

شكرا لك اخى الكريم وانا فاهم قصدك جيدا

انا كل ما كنت ارجو الاتى:

عندما اختار الكود من الكمبو بوكس الخاص بالكود يتم تحميل كل بياناته بمربعات

النص والكمبو بوكس .. صح

ما اريدة ان ان يتم إحضار كل بيانات المقاس المختار بما فى ذلك الكود من خلال

الكمبو بوكس الخاصة بالمقاس . ولكن عندما احاول ذلك يحدث الخطأ اللى قلتلك علية إذا حلت هذة اكون بذلك قد انجزت خطوة كبيرة جدا ببرنامجى

هناك شيء أخر بخصوص تصدير البيانات لملف اكسيل :

حينما لا يوجد برنامج اكسيل على الجهاز لا يتم التصدير وبذلك يحدث خطأ

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

إذا وجد اكسيل على الجهاز يتم تصدير البيانات وإذ لم يجد يتم إظهار رسالة للمستخدم تقول له لا يوجد برنامج اكسيل على الجهاز

اتمنى ان اجد إجابة للسؤالين

وانا شاكر جدا لك واتمنى لك التوفيق من كل قلبى

اخوك عرفه

وَقُل رَّبِّ زِدْنِي عِلْماً

#2317 يناير 2005 في 10:24

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

السؤال الخاص بالإكسل:

عندما تعمل تحزيم Packaging لبرنامجك سيسألك هل تريد إضافة الإكسيل أم لا، إذا أضفته سينزل للمستخدم بعد موافقته على نزوله.

أما التعرف على وجود الإكسل أم لا فهو موضوع متشعب بعض الشيء

ولكن إليك الطريق القصير

هل تظهر لك رسالة خطأ إن لم يكن هناك إكسل؟

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

أما السؤال الأول فهو من شقين:

الأول من خلال الكود تصل للبيانات، هذا سهل وموجود فى المثال الذى رديت عليك به ولكنى عرضت السعر فقط، يمكنك إضافة أسطر لتعرض ما تريد - كـ Unit مثلا .

الثانى من خلال المقاس:

تكلمنا فيه كثيرا، كيف يعرض لك عنصر واحد من عدة عناصر مشتركة فى المقاس؟

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

ولو فى شيئ فى ردى مش واضح ممكن أعيده لك بصورة أخرى

ربنا ييسر لك كل أمر عسير ويهديك إلى سواء السبيل

وكل عام وأنتم بخير بمناسبة عيد الأضحى المبارك

رزقكم الله حج بيته الكريم وزيارة حبيبه صلى الله عليه وسلم

عن عبدالله بن عمر رضي الله عنهما أن رسول الله صلى الله عليه وسلم قال :

( أحب الناس إلى الله أنفعهم ، وأحب الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربة ، أو تقضي عنه دينا ، أو تطرد عنه جوعا ، ولأن أمشي مع أخي المسلم في حاجة أحب إليّ من أن اعتكف في المسجد شهرا ، ومن كف غضبه ستر الله عورته ، ومن كظم غيظا ، ولو شاء أن يمضيه أمضاه ، ملأ الله قلبه رضا يوم القيامة ، ومن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزل الأقدام ، وإن سوء الخلق ليفسد العمل كما يفسد الخل العسل )

رواه الطبراني في الكبير

#2417 يناير 2005 في 21:16

abulyaman كتب:
ربنا ييسر لك كل أمر عسير ويهديك إلى سواء السبيل
وكل عام وأنتم بخير بمناسبة عيد الأضحى المبارك
رزقكم الله حج بيته الكريم وزيارة حبيبه صلى الله عليه وسلم

لقد فهمت قصدك جيدا واستوعبتة :)

كل عام وانت بخير ايضا وكتب الله لك حج البيت الحرام ورزقك الذرية الصالحة

وَقُل رَّبِّ زِدْنِي عِلْماً

#251 فبراير 2005 في 15:04

اخي الكريم abulyaman

اود ان اشكرك وادعوا الله ان يوفقك والى الامام

والشكر قائم لكل اعضاء هذا المنتدي المميز

امابعـــــــــــــــــــــد

فا بالنسبة للملف الذي قمت برفقة للاخ arafa

فيه مشكلة بسيطة آلا وهي ان التصدير الى ملف اكسل لايعمل بسبب خطا في المودل تبعت لاكسل

لم افهمه؟؟؟؟؟

Option Explicit
Sub ToExcel(Frm As Form, Flex As MSHFlexGrid)
 On Error GoTo ErrFound
Dim xlApp As Excel.Application
Dim XLWorkBook As Excel.Workbook
Dim I As Long, H As Long
 Frm.MousePointer = vbHourglass
    Set xlApp = CreateObject("Excel.application")
    Set XLWorkBook = xlApp.Workbooks.Add
    With Flex
      For I = 0 To .Rows - 1
        DoEvents
        For H = 0 To .Cols - 1
           xlApp.Cells(I + 1, H + 1).Value = .TextMatrix(I, H)
        Next H
      Next I
    End With
    Beep
    For I = 0 To Flex.FixedRows - 1
      xlApp.Rows(I + 1).Font.Bold = True
    Next I
    xlApp.Cells.Select
    xlApp.Columns.AutoFit
    xlApp.Cells(1, 1).Select
    xlApp.Application.Visible = True
ErrFound:
 Set xlApp = Nothing
 Set XLWorkBook = Nothing
 Frm.MousePointer = vbDefault
End Sub

تظهر رسالة تقول

Compile error:

Can't find project or library

فارجوا منك اخي الكريم ان تحل لنا هذة المشكلة

فانا منذ اكثر من سنة وانا ابحث عن هذة الطريقة

فاساعدنا جزاك الله عنا كل الخير

إذا تكررت البيانات بأداة Combo

مواضيع مشابهة