فيجولي

قد ينفعك هذا البرنامج: http://www.catenary.com/download/compar.zip موفق

إذا كانت مشكلتك أخي في أن TreeView لا تقوم بالتحديث وإجراء البحث بصورة جيدة ، فقد قمت بتحديث الكود وأصبح يعمل الآن لا أعلم إذا كانت هناك مشاكل أخرى ، وإذا وجدت أرجو توضيحها . أرفقت لك الملف بعد التعديل موفق أخي إن شاء الله Accounting_Chart_ADO.rar

أهلا أخي msayed2004 أسعدني مرورك بالنسبة لحدث التحميل في الفورم فلا يوجد سوى أمر اتصال بقاعدة البيانات . وللمعلومية قمت بإزالة أي أمر في الفورم لود ثم قمت بعمل باكيدج للبرنامج وتثبيته ونفس المشكلة موجودة . للمعلومية ، اكتشفت شئ غريب ، وهو أني قمت بفتح إدارة ال…

أخي المشروع لا يمكن فتحه كاملاً ولا تجربته بسبب استخدامك لأدوات إضافية على VB مثل SCML3D أتمنى أن ترفق لنا هذه الأدوات حتى نستطيع فتح المشروع كاملا .. شكرا لك

أهلا أخي المثال المرفق انت ما استخدمت فيه مكتبة DAO نهائياً ، بل ADO من الأساس لا أعلم أين المشكلة ؟

السلام عليكم ورحمة الله وبركاته تحية طيبة لكم مشكلتي أني قمت بتصميم برنامج وقمت بعمل تحزيم له ببرنامج Setup Factory 7 وتأكد من جميع ملفات DLL و OCX التي يحتاجها البرنامج ووضعتها في الباكيج من مسارها . وقمت بتجربة البرنامج على النحو التالي : 1- من المشروع مباشر…

السلام عليكم المعذرة أخي على التأخير المثال مرفق ينقل البيانات من جدول db2 إلى جدول db1 بدون تكرار للبيانات الموجودة مع التحية ex.rar

السلام عليكم إضافة على ماكتبه أخي الفيدرالي : ضع هذا الكود في الفورم : On Error Resume Next Open "C:\MyTxt.txt" For Append As #1 ' إنشاء ملف جديد Close #1 Open "C:\MyTxt.txt" For Input As #1 Line Input #1, sWord$ Close #1 Text1.Text = sWord$ Exit Sub ثم ضع هذا…

وعليكم السلام ورحمة الله وبركاته تفضل أخي الكريم التعديل بالمرفق وأنصحك باستخدام أداة Ado فهي أقوى من Dao F214.rar

أخي الكريم بالنسبة للداتا ريبورت كما قال الأخوان إمكانياته محدوده أما بالنسبة للخطأ فتأكد أن Label25 موجود في Section3 ثم جرب الكود التالي : DataReport1.Sections("section3").Controls.Item("Label25").Caption = xx وحاول دائما مخاطبة القسم باسمه وليس رقمه Section…

وعليكم السلام قد يفيدك هذا الرابط في ما تبحث http://www.bitwisemag.com/copy/vb/vb1.html

يا أخي رب دعوة بظهر الغيب خير من الدنيا وما فيها .. سبحان الله العظيم .. إبحث عن الأجر لا المديح والثناء بارك الله فيك واحتسب الأجر في عملك أخي الكريم

وعليكم السلام ورحمة الله وبركاته لنفرض أن اكود التالي هو المسئول عن الاتصال بقاعدة البيانات وفتح جدول : db.Open "Provider=Microsoft.Jet.OLEDB.4.0; jet OLEDB:Database Password=;Data Source=" & App.Path & "\yourAccessDataBase.mdb;Persist Security Info=true" If r…

شكرا لك أخي صالح فاضل على الرد أرجو منك لو تكرمت إرفاق هذه الأداة إن أمكن أما بالنسبة لداتا جريد فأنا مضطر أن أستخدمه بالوقت الحالي وأنا شخصيا أفضل mshflexgrid للمعلومية : تعقيبا على السؤال : أريد معرفة إذا كانت أي خلية في الداتا جريد فارغة أم لا ؟ فلا أريد مخ…

السلام عليكم ورحمة الله وبركاته سؤال حيرني كثيرا أريد معرفة إذا كانت الخلية في datagrid فارغة أم لا ؟ فإذا كانت فارغة تظهر للمستخدم أنه يمكن ترك قيمة فارغة عند التعديل بصراحة بحثت كثيرا ، فلا توجد خاصية بالداتا جريد تشير إلى currentcell كما هو الحال بأداة data…

شكرا جزيلا لكم وجدتها ، وجدتها كلما قمت بطرح سؤال ، بعد ساعة من المحاولات أجد الحل :) شكرا لكم مرة أخرى

السلام عليكم ورحمة الله وبركاته أخواني الأعزاء لدي قاعدين بينات أكسيس تحتوي الأولى على جدول ببيانات الموظفين ID,Name1,Name2,Name3,Name4 والثانية قاعدة أيضا تحتوي على جدول ببيانات الموظفين ID,Name1,Name2,Name3,Name4 أريد نقل بيانات الموظفين من الجدول في القاعدة…

السلام عليكم من الطبيعي أنه سيظل يمر على الكيس لان اللوب لا يزال يعمل ..... أخي بعد كل رسالة msgbox بامكانك استخدام تفرع غير مشوط باستخدام جملة goto إلى ما بعد Next Private Sub Form_Load() Dim x As Integer For x = 4 To 8 Select Case (x) Case Is < 5 MsgBox " X …

أرجو منك أخي الكريم إرفاق محتوى رسالة الخطأ

وجدتها وجدتها :lol: شكرا لكم وجدتها بعد جهد جهيد وإليكم الطريقة للفائدة : نقوم بإنشاء Parameter Fields في الكريستال ريبورت وليكن اسمه Test1 ثم نقوم بكتابة الكود التالي في حدث التحميل لللفورم Report.ParameterFields.GetItemByName("Test1").AddCurrentValue (module…