مشكلة في استدعاء دالة فرعية

بسبب أنك حاطط أقواس.

أستعمل :

rcpro 0, 1

فقط و يرجى تعريف الـ Parameters بتاعتك و متسبهاش Variant

تشكر يا مان

عملتها والحمد لله اشتغلت

بس انا مش فاهم تقصد ايه بجملة تعريف parameters

أعتقد أن بتقصد بـ XX جملة ما و بالتالى تكون :

XX As String

و هكذا.

أمثلة أخرى :

Private Sub MySub ( FirstParam As String , SecondParam As Long , ThirdParam As Integer)

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

هو في شوية ملاحظات كنت عاوز الفت نظرك ليها في تصميم الاجراء .

- البراميتارز الوسيطه الافضل تحديد نوعها عند تعريفها سواء كانت Integer او او .... الخ .

- إستخدام On Error Resume Next انا ارى ليس له داعي من كتابتها فا الخطأ الوحيد الذي تجاهلته والذي ممكن ان يحدث هو ان تكون الـ Recordset مفتوحه سابقا فلابد من غلقها قبل استخدامها,

- ايضا استخدامك إستخدام On Error Resume Next ممكن ان يهمل خطأ في جملة الـ SQL ويأتي لك بنتائج غير متوقعه اي ممكن يبوظلك الدنيا . واشياء اخرى من هذا القبيل .

فا يصبح الكود كا الاتي :

Public Sub rcpro(rc As Integer, xx As Integer)

If RS.State = adOpenStatic Then RS.Close

Dim sql As String

sql = "select * from t1 where raqm =" & xx

RS.Open sql, db, adOpenDynamic, adLockOptimistic

RS.Fields(rc) = "1"

Label1 = (Val(RS.Fields(0)) + Val(RS.Fields(1)) + Val(RS.Fields(2)) + Val(RS.Fields(3)) + Val(RS.Fields(4)) + Val(RS.Fields(5)) + Val(RS.Fields(6))) * 10 + (Val(RS.Fields(7))) * 5

End Sub

ويتم إستدعاءه هكذا بدون أقواس :

rcpro 0, 1

بالتوفيق ,,,,

A7med_prof

بالنسبة لـ

msayed2004

جزاكم الله خيرا بس انا كنت معرفها في global عشان باستخدمها في دوال كتير

بالنسبة لـ

A7med_prof

جزاكم الله خيرا على التعب معايا

أنا بصراحه مكنتش أعرف حكاية state فريحت نفسي وعملت الاررور

أنا خفت للإررور يكون هوا كمان متعرف public عشان كده طريقتك هتريحني جامد

للمزيد عن الـ Error Handling راجع : ماهو أفضل كود لتجنب الأخطاء؟ المشاركات 2 و 3 و 5

اقتباس

أنا خفت للإررور يكون هوا كمان متعرف public عشان كده طريقتك هتريحني جامد

هههههه ماشي يا باشا ,,, تمام , واي حاجه مش واضحه او مش متأكد منها او خايف منها ,,, ابحث ولو ملقتش , اعضاء المنتدى موجودين هيروحو فين ...

بالتوفيق ,,,,

A7med_prof

تعديل :

If RS.State = adOpenStatic Then RS.Close

بدلها :

If RS.State = adStateOpen Then RS.Close

فا الاختبار على اساس انها مفتوحه عاماً

أسف على الغفله