mordant_eagle21

أخي شكور على تجاوبك الكود حقك شغاااال ......... لكن في حدث load للفورم لا يشتغل

أخي انا عندما احمل محتويات حقول في Flex Grid هل يجب احدد تلك الاشياء: 1 - عدد صفوف الاداة تساوي عدد السجلات. 2 - عدد الاعمدة. 3- أضع بيانات السجلات في خلايا الاداة . اذا كان هذا الكلام صح......ممكن شرح مبسط !!!!

اخواني اريد ان يظهر عدد السجلات في صندوق نص.... انا كتبت هذا الكود لكن يظهر رسالة خطأ text1.text=data1.recordset.recordcount وكتبت هذا الكود في الحث load للفورم وربط الاداة مع الداتا كونترول فما الخطأ؟

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

بسم الله الرحمن الرحيم اخواني لي بعض الاستفسارات اجو من الله ان تكون الاجابه عندكم: 1- ما معنى كائن ؟؟ 2- ما معنى مكتبة ADO ؟ او بالاصح ما معنى مكتبه ؟ 3 - هل يوجد فروق بين إصدارات تلك المكتبات ؟ أرجو ان تكون الاجابه مبسطه :pwease:

بسم الله الرحمن الرحيم اخواني لي بعض الاستفسارات اجو من الله ان تكون الاجابه عندكم: 1- ما معنى كائن ؟؟ 2- ما معنى مكتبة ADO ؟ او بالاصح ما معنى مكتبه ؟ 3 - هل يوجد فروق بين إصدارات تلك المكتبات ؟ أرجو ان تكون الاجابه مبسطه :pwease:

أخواني انا كتبت هذا الكود ولكن لايظهر أي شىء </P> db.Provider = "microsoft.jet.oledb.4.0" db.Open App.Path & "\database.mdb" sql = "select * from doctors " rs.Open sql, db, adOpenDynamic, adLockOptimistic</P> With Me</P> .MSFlexGrid1.Cols = rs.Fields.Count</P>…

اوكي ........ارفق الاداة

اخواني كيف اربط الاداة فليكس جريد بالداتا كونترول ؟؟؟ كما اريد ان أعرف كيف أقدر عندما أربط لاتظهر الي أسماء الحقول ولكن تظهر فقط محتوياتها ؟ ولكم جزيل الشكر :rolleyes:

جزاك الله ألف الف خير ........................^-^ عندي سؤال اخر : كيف أتحكم في عرض الColفي الفليكس جريد بحسب محتويات الحقل ...انا كتبت هذا الكود لكن بيظهر رسالة خطأ MSFlexGrid1.ColWidth(7) = rs![notes_supplier]

اخي يعني أعمل كده sql = "select * from products where ID_product = 'trim(y)' "

بسم الله الرحمن الرحيم اخواني انا عندما أبحث بيانات في قاعدة بيانات تظهر هذه الرسالة : untitled.bmp مع العلم اني وضعت حقل ID نوع ترقيم تلقائي وهذا هو الكود : Y = InputBox("Enter Code" & Chr(10) & " search") sql = "select * from products where ID_product = '" &…

مشكورين اخواني على تعاونكم ..... بس :blink: انا الان محتار .....هل البرنامج المحاسبي يتكون من مخازن ومبيعات ولا يتكون من دفتر الاستاذ والقيود ؟؟؟!! اعذروني انا مش محاسب

اخواني ماهي مكونات برنامج محاسبي عام ؟؟

بسم الله الرحمن الرحيم اخواني اريد ان أعرف هل هذا الكود خطأأأأأأأأأ ؟ Form2.Data1.Recordset.Edit If list1.Selected(0) = True Then Form2.Data1.Recordset![ID_worker] = Form3.TXT11.Text = Trim(TXT11.Text) Form2.Data1.Recordset.Update MsgBox " Êã ÇáÊÚÏíá ÇáßæÏ ÈäÌ…

لا انا اريدها هكذا 1 2 3 4 5 6 7 8 9 10 4 6 8 10 12 14 9 12 15 18 وهكذا الناتج اللي بيطلع لي هكذا : 1 2 3 ارجو ان اوضحت الفكرة

مشكورين اخواني -waf

اخي جزاك الله الف خير بس كان لدي استفسار , ممكن تشرحلي هذا الكود If Val(Text1.Text) Mod 2 >= 1

اخي انا لاأعرف الحل ولكن انا بحثت لك وان شاء الله تكون صح

اخواني انا عملت هذا الكود لكن مشكلتة ان الارقام بتظهر تحت بعد انا اريد على شكل مستطيل ( الناتج وليس العمليه) يعني: 1 2 3 4 5 6 7 8 9 10 4 6 8 10 12 14 وهكذا الكود : For i = 1 To 10 For y = i To 10 Print y * i Next y Next i