عاطف قشيشة

أخي إياس هذا الكود مطول جداً لأنه يبحث في الجهاز كله، والمطلوب هو جزء بسيط جداً منه، وضعته في المرفقات. Copy_Word_Files.zip أرجو الفائدة. مع تحياتي.

هذا مثال بسيط يبين طريقة استيراد ملف نصي له فواصل (علامة جدولة أو فاصلة منقوطة) إلى جدول جديد في قاعدة البيانات باستخدام مكتبة Dao3.6، وهذا هو الكود المستخدم في المثال: Dim dbsTemp As Database Dim tdfLoop As TableDef Dim tdfLinked As TableDef Set dbsTemp = Ope…

عزيزي السائل إليك المثال في المرفقات: For_ex.rar مع التحية.

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

أخى ناصر.. يمكنك عمل ذلك بالطريقة الآتية: Dim MyArray() As String Dim lArrayCount As Long Private Sub command1_click() ReDim Preserve MyArray(lArrayCount) Text1 = "Text" & lArrayCount MyArray(lArrayCount) = Text1 lArrayCount = UBound(MyArray) + 1 End Sub Priva…

أخي خالد.. أخي Rober.. الإخوة الذين شاركوا في الموضوع.. هذا هو تعديل الكود، وأرجو أن تشاركوني في مراجعة الناتج. تعديل الكود: Dim Table As New ADODB.Recordset Dim i, j, sum As Integer Private Sub Form_Activate() MSFlexGrid1.Cols = 4 MSFlexGrid1.TextMatrix(0, 0)…

شكراً لك على المشاركة. وأحب أن أوضح للإخوة الأعضاء أن المشروع يحتاج إلى مكتبة وورد 12 msword12.olb، بعد إذنك يعني. مع تحياتي.

هذا هو المثال لعيونك: Payment.rar وهذه هي صورته:

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

شكراً لك أخي عبد العزيز على النصائح، وشكر آخر للأخ عماني على المرور. لكما منى أرق تحية.

أخي الفاضل أتمنى لك التوفيق والتقدم والرقي. أرجو أن تتقبل كلامي بصدر رحب، فأنا أرجو منك زيادة الاطلاع. لقد قمت بتعبئة البيانات في مربع القائمة المنسدلة ComboBox يدوياً في وضع التصميم، وهذا لا يتماشى مع التعامل مع قواعد البيانات، ولو وضعت لك إجابة على سؤالك، فل…

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

أختي الفاضلة أم بشرى لقد نسيت أن ترفقي النموذج في ملف المشروع، لذلك فقد أعددت لك مثالً من مخيلتي اكتساباً للوقت، أرجو أن يفي بالغرض. وإذا كان فيه أي غموض فأنا مستعد لأي استفسار منك أو من أي عضو من الأعضاء الكرام. وهذا هو المثال: Custom_Report.zip مع تحياتى. من…

أولا: لا تنس إضافة مكتبة كائن مايكروسوفت وورد Microsoft Word Object Library إلى مراجع المشروع Project References. ثانياً: الإعلان في قسم التصريحات العامة General عن متغيرات لكل من: 1- كائن برنامج وورد 2- كائن مستند وورد 3- كائن جدول وورد 4- متغير نصي لمسار ملف…

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

انظر المشاركة التالية: كود ضبط شاشة التوقف وخلفية سطح المكتب, باستخدام دوال API

يمكن تغيير كل من خلفية سطح المكتب وشاشة التوقف عن طريق دوال API كما يلي: أولاً: بالنسبة لخلفية سطح المكتب: - قم بوضع التعريفات التالية في قسم التصريحات العام للنموذج: Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByV…

يمكنك متابعة الموضوع التالي: الحصول على خصائص الحقول في قاعدة بيانات أكسس, باستخدام مكتبة ADODB مع تحياتي

يمكن الحصول على مواصفات حقول جدول ضمن قاعدة بيانات أكسس من خلال مكتبة AdoDb وذلك بالطريقة التالية: - قم بإضافة مكتبة Microsoft ActiveX Data Objects 2.8 Library عن طريق اختيار الأمر References من قائمة Project - قم بوضع الكود التالي في قسم التصريحات العامة Gene…

الأخ السائل، لو وضحت سؤالك بمثال ليسهل الإجابة عليه نكون شاكرين لك.