المتميز

طيب احذف كلمة set

السلام عليكم جرب http://YourNameComputer/WebSite/Default.aspx

عليكم السلام اخي علاء حقل الـAccountNumber أنت وضعته في الداتا بيس ترقيم تلقائي ، ثم طلبت بالنموذج أن يدخل المستخدم رقم الاكاونت ! فالترقيم التلقائي لا تستطيع إدخاله يدويا . وإلا ضع نوع الحقل رقم . والله الموفق

عليكم السلام هل ما زالت المشكلة مستمرة ؟ إذا كانت مستمرة ارفق البرنامج هنا

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

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

ابحث عن هذا الموضوع ( تجده في توقيع الأخ omani ) ..

السلام عليكم ارفق المثال هنا

بالنسبة للتحديث عندما تنتهي من تحديث السجل اغلق الاتصال بقاعدة البيانات ، وعند طلب إظهار التقرير اعمل اتصال جديد ..

set datareport1.datasource=rs باعتبار الـrs هو مصدر السجلات

عليكم السلام طبعا ممكن datareport1.section("section2").control("txtname").text=Text1.text جرب كتبته وانا مستعجل

ما فهمت عليك !

شكرا لك لكن لا ينفع معه حتى أني أضع اكواد خاطئة ( متعمد ) ويضع تحتها خط أزرق ومع ذلك يشتغل البرنامج !! وبالأول كان يظهر لي رسالة بالخطأ ويتوقف عن التنفيذ ، أما الآن أصبح ينفذ :(

جرب المرفق ____________SQL.zip

عليكم السلام ورحمة الله وبركاته هل تريد باستخدام أداة الـAdodc أم باستخدام الكود ؟ سأضع لك مثال باستخدام الاداة غير فيه ما يلزم ( مثل اسم السيرفر واسم الجدول والحقول ) .

عليكم السلام ضع المثال هنا نجرب فيه .

Private Sub Form_Load() For i = 0 To 3 Text1(i).BackColor = vbBlue Next End Sub

السلام عليكم اقتراح : ليه ما تجعل التقرير يتأكد من طول الحقل ، وإذا كان أكثر من طول معين ( مثلا 100 ) تقوم بجعل طول الخط النازل من الأعلى اسفل يزيد بمقدار معين ، ولكن اعتقد انه راح يزود الخطوط لجميع السجلات :(

السلام عليكم عملت برنامج وكان يشتغل بشكل سليم ، وفجأة أصبح لا يعترف بالتغيير ، مثلا لو كنت واضع كود لحدث ما ، ثم غيرت الكود أجد أنه ما زال يحتفظ بالكود الأول عند التنفيذ !!؟ :^)

enjyshahin شكرا لك ذكر waleedhm الكود التالي Function eg(ByVal gDate As Date, Optional ByVal format As String = Nothing) As String Return gDate.ToString(format, New Globalization.CultureInfo("ar-eg")) End Function التشغيل MessageBox.Show(eg(Now, "d dddd, MMMM …