MMA_EG_Cairo

أخي الكريم ( رمضان ) ، شكراً علي المثال ، لكن أخي السؤال واضح ، كيف يتم تحميل صورة بالمسار علي أساس تحديد الصورة من داخل الكريستال ذاتة وليس الفيجوال 6 !!!!! حيث أن الكود التالي : Set Picture1.FormattedPicture = LoadPicture(CStr(Field2.Value)) يعمل من داخل الف…

أستخدم الدالة vbCrLf لإنشاء سطر جديد ، مثلا : Dim arr() As String arr = Split(Text1, vbCrLf) Printer.RightToLeft = True Dim CurY As Single CurY = 3300 Dim i As Long For i = 0 To UBound(arr) Printer.CurrentX = 4500 CurY = CurY + 250 Printer.CurrentY = CurY Prin…

أخي الكريم ، إذا كنت ترغب في ملء آداة الـ ComboBox أو ListBox بكافة الملفات الموجودة بغلاف معين يمكنك بالكود التالي : Dim strDir As String strDir = Dir("C:\MyFolder\*.*") Do While strDir <> "" List1.AddItem strDir strDir = Dir Loop وليست هذه الطريقة الوحيدة ، …

هوا أنا ليا رأي بس لا أعلم هل هذا الرأي سليم أم لا !!!! ألا وهو فتح قاعدة البيانات كملف عادي Data File وأخذ قيمة حرفية منه وتغييرها الي قيمة أخري !!!! بمعني أن يتم فتح قاعدة البيانات في صورة Binary كما يلي : Open App.Path & "\DB.mdb" For Binary As #1 وبعد ذلك …

أنا هتجنن !!! لقد فعلتها من قبل ، ولكنني الآن لا أتزكر !!!! علي ما أعتقد أن هناك Formula معين مسئول عن عملية جلب الصور ، أو أن هناك دالة معينة مثل LoadPicture المدعومة داخل فيجوال بيزيك 6.0 !!! فكنت أدرج بها الكود التالي : Mid(FileName,1,InStrRev(FileName,"\")…

أولاً أنا أتعامل مع كريستال 10 ، حاول تعمل مثال بكريستال 9 ، بصراحة أنتي شغلتني جداً بهذه المشكلة لدرجة أنني الآن أبحث عن كيفية تحميل صورة علي أساس مسار معين من داخل الكريستال زاتة !!!! أنا أعلم أن هناك دالة داخل الكريستال 7 و 8 و 10 تدعي FileName ، وهذا يؤدي …

أولاً ، إذا كنت تتعامل مع برنامج Access علي شبكة متعدةة المستخدمين ( أكبر من 4 مستخدمين ) وتحتاج الي بيانات كبيرة الحجم فأنصحك الإنتقال الي نوع آخر من قواعد البيانات مثل SQL-Sesrver . ثانياً ، إذا كانت المشكلة في كيفية الإتصال مع قاعدة البيانات عن طريق الشبكة …

أخي الكريم ، يمكن كل شيء !!! أنا أعطيت لك الفكرة ، يمكنك صناعة ما تشاء ولكن أولاً يجب عليك فهم الفكرة الأساسية وفهم ( SQL ) جيداً ومن ثم قم بتطبيق ما تشاء . SELECT fld1, fld2 FROM tbl WHERE CDate(format(fld1+fld2)) Between CDate('18/1/2008 10:00:00 AM') And CD…

أخي الكريم ، أنظر المثال المرفق ، فيمكنك بناء تقارير تقريباً مثلة ، شكراً Project.rar

أخي ، هل مشكلتك مع عنصر التحكم نفسة أم مع كود الإستعلام !!! إذا كان المشكلة مع الآداة فكما ذكرت لك ... أما إن كان المشكلة مع جملة الإستعلام فإليك مثال : لدينا جدول يدعي Tab ، يحتوي علي حقلين الأول fld1 والثاني fld2 ، وكلاهما يأخذان نو بيان تاريخ/وقت . المطلوب …

أخي الكريم ، صدقني فيما قلتة ، فسأضع لك مثال بسيط يوضح الفرق بين أكسيس وSQL-Server : طريقة إنشاء جدول الهاتف بأكسيس : Dim Cn As New ADODB.Connection Dim Sql As String Cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DB.MDB" Sql = "Create …

أخي الكريم ، آداة الـ DTPicker مهمتها التاريخ فقط ، لكن إذا أحببت تخزين تاريخ/وقت فيمكنك التعامل مع أدوات أخري أو التعامل مع هذه الآداة + آداة أخري شكراً

أخي الكريم ، يمكنك التحكم بعرض أي نموذج أثناء إقلاع البرنامج بإستخدام الإجراء Main !!!! مثال : 1- إفتح مشروع جديد . 2- قم بإضافة نموذجين ، الأول Form1 والثاني Form2 . 3- من قائمة Project إختر Propertys ، وفي التبويب General إختر Sub Main . 4- قم بإضافة وحدة نم…

أخي الكريم ، لا داعي لكل هذا ، فالجميع فخدمة أنفسهم ، -------------------------------------------------------------------------------------------------------- أخي الكريم ، المفتاح الرئيسي ليس له علاقة بهذا الكلام ، صحيح أن الـ Primary Key يحتوي علي فهرس غير مت…

هوا المشكلة ليس في الطريقة !!!! فالطريقة المرفقة تحتاج الي تقرير داخلي أي يتم تصميمة داخل الفيجوال بيزيك !!! أما ما تطلبة هو كيفية إدراج صورة داخل التقرير الخارجي !!! فلماذا لم تتعامل مع نوع البيان BLOB ، فهذا النوع يساعدك في بناء تقرير يحتوي علي صور ممتاذة أن…

فعلاً أخي ، أنا لم أنتبه الي هذه النقطة ، بس أحب أوضح لك شيء آخر ، تسبب في هذه المشكلة ، وهي أنني لم أمتلك مشغل سواقة ( قرص مرن ) لأنني منذ تعاملي مع الـ ( Flash ) نسيت شيء يدعي ( FDD ) !!! لكن فعلاً أنا جربت من قبل الكود حينما كنت أمتلك FDD وخرجت بهذه النتائج…

sql = "SELECT * FROM aa WHERE bdate like '%" & Combo1.Text & "%' And City Like '%" & Combo2.Text & "%'" rs22.Open sql, db, adOpenDynamic, adLockPessimistic

أخي الكريم ، إذا كنت تقصد كيفية الربط والتعامل مع قاعدة البيانات بواسطة الفيجوال بيزيك 6 فصدقني هناك العديد من الأمثلة التي تشرح الربط مع Access وكل ما يطبق علي Access يطبق علي SQL-Server كأوامر Recordset . أما بالنسبة للإختلاف فهي إختلاف الربط وأوامر قاعدة ال…

أخي الكريم ، ما الخبر !!! المثال الذي تفضلت بإضافتة نظرت إلية من قبل وصدقني والله عجبني وإستفدت منه كثيراً ، بس أخي أنا أحببت أن أضع مثال بسيط جداً كي تطضح الصورة !!! دائماً المبرمجين خاصتاً الجدد يحاولون فهم البسيط ومن ثم فهم الأصعب فالأصعب .... ؟؟؟ علي العمو…

Text1.Text = IIF(IsNull(drs![Pc_Id]) = True,"لا يوجد بيانات",drs![Pc_Id])