omani

اخي الكريم : المثال غير مكتمل انت قمت برفع الفورم فقط بدون ملف المشروع VBP تحياتي

دام انك يا اخ 'mrx_ta7ady' موجود فلن اطلع على المثال لانني اعرف بأنك اجبت ... اعتذر عن التأخر في الرد فانا لم ارى المشاركة الا اليوم تحياتي

text1.text = round(val( text2.text )+ val (text3.tex ),0) الدالة Round تقرب العدد الى اقرب 10 تحياتي

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

اخي ضع مثال ليتم التعديل تحياتي

اخي فقط قم باضافة هذا الكود قبل لووب تحميل البيانات combo1.clear وسوف يقوم بالمسح تحياتي

تفضل اخي مثالك بعد التعديل تحياتي ____.rar

اخي هذا كود الفورمولا حسب المطلوب Dim d1 As Date Dim d2 As Date d1 = Date - Day(Date) + 1 d2 = d1 + 30 txtFormula = "{chart1.Hotel_Name} ='" & Hotel_Name.Text & "' and ({chart1.date_1}>= #" & CDate(Format(d1, "mm/dd/yy")) & "# ) And ({chart1.date_1}<= #" & CDa…

لطرح تاريخين من بعض استخدم دالة datediff ويمكنك تعديل السطر الموجود في حدث data1_change ليصبح On Error Resume Next Text1.Text = DateDiff("y", data2.Text, data1.Text) تحياتي

اخي قم بتعديل السطر الموجود في الفورم لوود ليصبح هكذا data2.SelText = Format(Date, "yyyy/mm/dd") بس هذه الطريقة سوف يقوم البرنامج بحساب فارق السنوات فقط . تحياتي

اخي انت لم تقم بالتحقق هنا من الحقل snd وانما قمت بالتحقق من الصورة إذا كانت مشابهه للصورة المعروضة لديك والصورة المخزنة في قاعدة البيانات في الحقل pict . في الحقيقة لم اجرب هذه الطريقة من قبل أي ان اقوم بالتحقق من الصورة .. لان البيانات تتخزن ثنائية binnery و…

اختي / اعتقد ان السويتش فيه خاصية تسمى action منها يمكن ان تقومي بهذا الامر ولكن اعتقد انه يجب ان يكون مسار ملف exe الذي تم تصميمه بالفيجوال معروفاً مسبقاً . اي المسار ثابت . اما اذا كان تشغيل السويتش داخل الفيجوال فالامر مختلف ... يمكنك البحث داخل المنتدى عن …

تفضل اخي Adodc1.RecordSource = "select * from recept where cust_name like'%" & xxx & "%' AND Cust_Sal >=100;" على افتراض ان Cust_Sal هو اسم حقل الراتب تحياتي

اخي كل ماعليك فعله هو الاتي / اولا ارسم الفريمات على الفورم ومن ثم ارسم داخل كل فريم عدد 2 Option وبذلك تكون صنعت ماتود العمل به تحياتي

اخي الكريم : بالنسبة للرسالة التي تظهر . نعم يمكن التخلص منها وذلك بالدخلول الى خصائص adodc وحذف اسم الريكورد ست من هناك .. اما بالنسبة تانيا ان كان هذا الكود يفي بالغرض If db.State = adStateOpen Then db.Close db.Provider = "Microsoft.JET.OLEDB.4.0;Jet OLEDB:D…

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

تفضل مثالك بعد التعديل تحياتي shadidatapass.rar

اخي الكريم الخطأ منك طبعاً لانك وضعت مسافة بعد كلمة المرور بدون ان تغلق الجملة بالفاصلة المنقوطه; وهنا يعتبر البرنامج ان تلك المسافة من ضمن كلمة المرور . لذلك يفيدك بان كلمة المرور خاطئة لانه حسبها على اساس 123 ثم مسافة . انظر هنا لترى الفرق بين الجملتين Db.Pr…

ضع قاعدة البيانات في نفس مسار البرنامج . وفي خصائص الاداة عندما تحدد المسار فقط اكتبها بهذه الطريقة ./m.mdb لا تنسى النقصة قبل الخط المائل وهنا ستعتبرها الكومبايلر بأنها بنفس الفولدر الذي به ملف البرنامج تحياتي

استخدم هذي Adodc1.RecordSource = "select * from recept where cheq_amount >0" تحياتي