A7med_prof

ايه هو الخطأ اتأكدي ان انت مستخدمه نفس اسم الكمبو Combo1.Clear

السلام عليكم ورحمة الله وبركاته * للتحويل من هجري إلى ميلادي : Dim TheDate As Date Calendar = vbCalHijri TheDate = "15/06/1411" Calendar = vbCalGreg MsgBox TheDate * للتحويل من ميلادي إلى هجري : Dim TheDate As Date Calendar = vbCalGreg TheDate = "1/1/1991" Cal…

اوك انتظرك انا ارى هذا افضل

وما المشكله الان ما المثال بتاع الاخ اسامه يلبي غرضك

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

السلام عليكم ورحمة الله وبركاته انا عملت Load على القاعده وكترت عدد السجلات ل حوالي 5000 Record وشغال !!!

الداتا جريد ما فهاش مشكله انها تعرض لغاية 30000 Record ,,, على العموم ارفق مشكلتك لنراها

ايوه ما انت ممكن تديلو Datasource ناتج الـ SQL على العموم لو بتشتغل بطريقة الـ Wizard عند الانتهاء من هتلاقي اختيار Order By اجعله لـ حقل رقم الاله !!!!

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

طيب اوك جرب واخبرني .... اخي يمكنك استحدام >>> Order by من خلال كود الـ SQL الذي تستخدمه في احضار البينات من Database ومن ثم عرض هذه البيانات في الداتا جريد . واذا اردت تصاعدى استخدم Order by : SELECT * From TableName Order by FildeName فاذا اردت تنازلياً استخ…

العفو اخ .... يكفيني زوقك الرفيع ولكن الذي اقوله لك مناسب لك على العموم ارفق مثالك واوضح لك المقصود بالتوفيق ,,,, A7med_prof

طيب ايه المشكله : rs.DELETE

الـ call form_load موجود فيه كود تعبأة الداتا جريد !! لو كان صح !! ارفق مشكللتك لأن حاولت من كل الجوانب بس من المتوقع اشياء كثيره ,,,,,

رتب حقل رقم الاله cr1.sortfields(0)= "+name" او اعطي الريبورت البيانات مرتبه برقم الاله

عاوز تمسحه نهائيا ؟ ام مسح مؤقت ؟

طيب عند اجراء العمليات ( حذف - تعديل ...... الخ ) تستحدم الـ Ado ام تستخدم جمل SQL ؟ مثلا عند الاضافة : بتستخدم الـ ADO هكذا : rs.AddNew ام جملة SQL هكذا : Insert into .......

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

بالتوفيق اخ ... متشكر لزوقك ,,,, اضافة اخرى من الممكن وضع اي شرط الى الخاصية Filter ك شروط جمل الـ SQL طبعا بدون Where . بالتوفيق ,,,, A7med_prof

السلام عليكم ورحمة الله وبركاته جرب الكود ده : rsmine.Filter = "fn='" & Trim(Text1.Text) & "'" ولو عاوز تظهر الداتا كلها : rsmine.Filter = "" بالتوفيق ,,,,, A7med_prof

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