omani

أخي الكريم BOF هي Begin Of File أي بمعنى بداية الملف . EOF هي End Of File اي بمعنى نهاية الملف if Data1.Recordset.BOF=False then Data1.Recordset.Movefirst هنا وضعنا شرط إذا لم يكن في بداية الجدول فقم باعادته الى اول سجل في الجدول وهنا Do until Data1.Recordset.…

الكود الصحيح x = Text1.Text + "*" Data1.RecordSource = "select * from جدول1 where اسم_الكتاب like '" + x + "'" Data1.Recordset.MoveFirst Data1.Refresh MSFG1.Refresh ' إعادة الجدول الى البداية بعد الفلترة if Data1.Recordset.BOF=False then Data1.Recordset.Movefi…

اخي الكريم : فقط قم بالضغط بزر الماوس الايمن على التكست المراد تحويله ومن ثم اختر Format Field اختر تبويب Paragraph واختر منها Right to Left سوف تتغير الأرقام الانجليزيه الى العربية ان كان الحقل يحوي أرقام فقط . أما إذا كان يحوي حروف انجليزيه مع ارقام فلن يقوم…

اخي الكريم : فقط قم بالضغط بزر الماوس الايمن على التكست المراد تحويله ومن ثم اختر Format Field اختر تبويب Paragraph واختر منها Right to Left سوف تتغير الأرقام الانجليزيه الى العربية ان كان الحقل يحوي أرقام فقط . أما إذا كان يحوي حروف انجليزيه مع ارقام فلن يقوم…

افضل حل لها هو ان تقومي بنزيل السيرفس باك 6 الخاصة بالفيجوال SP6 وبعد تنصيبها اكتبي هذا الكود في امر اظهار التقرير . DataReport1.Orintion =vblandscape تحياتي

اختي الكريمة ضعي هذا الكود في المكان المناسب أو في كوماند Dim OutlookItem Const olByValue = 1 Set OutlookItem = Application.CreateItem(0) OutlookItem.To = "he_nd@hotmail.com" OutlookItem.Subject = "عنوان الرسالة هنا" OutlookItem.Body = "موضوع الرسالة هنا " '==…

إذا كنت تقصد عدد السجلات في الجدول فذلك من خلال الكود التالي لو فرضنا انك قمت بفتح الجدول في المتغيير RS Rs.Recordcount أما اذا كنت تود معرفة عدد الحقول فبالكود التالي Rs.fields.count تحياتي

هلا ... كلما تحتاجه هو عمل ملف Setup أو تحزيم البرنامج قبل توزيعه الى المستفيدين . راجع المواضيع التي تتحدث عن كيفية تحزيم البرنامج . تحياتي

أخي الكريم : من خلال الريفرنس Referance قم باضافة مكتبة الأكسيس المتوفرة لديك مثلا للاكسيس 2003 Microsoft Acess 11.0 Object library بعد اضافة المكتبة اكتب الكود التالي في المكان المناسب Dim AccApp As New Access.Application 'فتح برنامج الأكسيس AccApp.Visible = …

عفوا لم افهم ردك في البداية جيدا . ولكن لكون ان المسؤول لم يعجبه الحل فلا طريقة لديك سوى استخدام عدد 1 ليست بكس تتأثر بتغيير الكومبو . أي أن الكومبو به الرقم والليست بها الحقل الثاني . وعند تحريك المومبو تتحرك الليست معه . مجرد خدعه واعتقد انها سوف تكون فاعلة …

اخي اجعل طول الحقل الرقمي ثابت أي إذا كنت تتوقعه 7 فاجعله 9 فكن كريما معه وعند القراءة أسبقه بالدالة Val لتلغي الأصفار التي على اليسار . أي أنه لتركيب كالتالي : combo1.additem format(rs.field(0),"000000000") & "-" & rs.fied(1) عند القراءة أقرأ بالاتي : dim n a…

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

اخي الكريم : لا اعتقد ان هناك طريقة معينه لدمج حقلين في الكومبو ولكن لو كان حقل رقمي وحقل نصي يمكنك ذلك باستخدام نسق ثابت للرقم وتفصله باستخدام "-" او اي فاصلة اخرى ليصبح الناتج كالتالي : 0001- محمد 0002- سعيد وهكذا وهنا باستخدام الخاصية Format فمثلا نقول comb…

بالنسبة للبحث برقم الموظف . ضع نفس الكود الموجود في الكومبو مع تغيير حقل البحث ليصبح الرقم بدل الاسم . بالنسبة للمخالفات فدعني أرى طريقة تصميمك لقاعدة البيانات وأرد عليك أستخدم جملة البحث select max(faultNno) as no from yourtable" تحياتي

اخي الكريم اكتب الكود التالي بعد الحفظ أي أنه بعد أمر Update DataCombo1.Refresh تحياتي

ارفع المثال . ولكنني اعتقد انك ستحتاج الى كلمة Refresh قبل اظهار التقرير مثال dataenvironment1 .Refresh

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

السلام عليكم اخواني الكرام عندي مشكلة وللامانه فأنا استنفذت جميع الحلول مع هذه المشكلة . بداية سأعرض المشكلة ومن ثم سأعرض الحلول التي قمت بها وكلها لم تجدي نفعا : مشكلتي يا اخواني الكرام هي كالتالي : لدي برنامج مرتبط مع قاعدة بيانات أكسيس باستخدم ADO لدي جدول …

اختي الكريمة ارفعي مثالك لنرى ما هي المشكلة بالضبط تحياتي

بعد انشاء الجداول انقر على أحد الجدوال بالزر الأيمن ومن ثم اختر New Query في مربع الحوار الذي سيظهر امامك اختر الجداول التي تود ربطها مع بعض ثم ستجد خيارا في الجهة اليمني مكتوب فيه Set Table Joins أنقر عليه واختر حقول الربط ونوع الربط ثم اختر حفظ Save اكتب اسم…