sahob

لو كان لديك فولدر في الـ C بغسم temp و تريد نسخه بكل محتوباته إلى فولدر جديد بإسم temp1 في الـ C : هذا الكود يقوم بإنشاء فولدر بإسم temp1 في حالة انه لم يكن موجودا : Dim fs Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists("C:\temp1") = Fa…

عليكم السلام استخدم MDir لإنشاء الفولدر و *.* لنقل كل الفايللات في الـ CopyFile :happy:

اسهل طريقة هي الإستعانة بمزود خدمة و غالبا تكون مقابل اسعار زهيدة. و من افضل المزودين هو موبايلي : http://www.mobily.ws/ كما ان هناك امثلة جاهزة لكل لغات البرمجة المشهورة و من ضمنها الاكسس :happy: http://www.mobily.ws/Solutions/Developers/index.htm و الأسعار ل…

:cool: Sample.rar

:cool: إجمالي خلال تاريخ معين.rar

هل هذا هو المطلوب :happy: إجمالي خلال تاريخ معين.rar

عليكم السلام يمكنك إستخدتم الدالة DateDiff لإظهار الفرق بين وقتين كالتالي : DateDiff("m",[LDG],[TO]) و ضعه في الحدث After Update للفورم كالتالي : me.TTL_FLAT = DateDiff("m",me.LDG,me.To) :happy:

و عليكم السلام للبحث يمكنك استخدام الجملة : Like '%' & me.Text1.Text & '%' فإذا كانت لديك كل الجداول متشابهة الحقول يمكنك عمل استعلام للبحث في جدول واحد ثم نسخه و عمل استعلام UNION لكل الجداول او في حال إختلاف الحقول ستحتاج لكتابة الإستعلام لكل جدول ثم عمل الـ…

مشكور على المعلومات :happy: اعمل على فكرة بسيطة و هي تخزين الصور في قاعدة البيانات مع تشفيرها بدوال الأستاذة زهرة و هي كالتالي : قراءة ملف الصورة اياً كان نوعه ثم تشفيره و حفظه في حقل من نوع Memo ثم لعرض الصورة يتم فك التشفير و بناء ملف مؤقت للصورة و عرضها في …

السلام عليكم هل هناك طريقة لتشفير النصوص الطويلة و جعلها قصيرة مثلا نص من 1000 حرف هل يمكن تشفيره ليصبح 100 حرف ثم فك تشفيره ليعود 1000 حرف ؟ بشرط ان تكون طريقة سريعة لا تستهلك المعالج كما ان هناك احرف في النص ليست ضمن جدول الـ asci و هذا يمثل مشكلة عند قرائته…

استخدم الكود التالي : DoCmd.TransferText acExportDelim, "", "ww", CurrentProject.Path & "\1.txt" و هناك الكثير من المواضيع عن التصدير إلى txt يمكنك مراجعتها . :happy:

بالفعل الـ SQL server سيمنحك الكثير من المزايا لكن ما المشكلة في عمل مجلد مشاركة و توزيع الصلاحيات حسبما تريد و جعلها تقتصر على مستخدمي البرنامج فقط ؟؟؟ كما ان هناك بعض العيوب عند استخدام الـ ODBC لربط قاعدة بيانات SQL ربما لا تظهر في الحالات العادية لكن من خل…

الخطوات : 1. جعل كل الحقول قابلة للتوسع بتغيير الخاصية Can Grow إلى Yes 2. وضع خطين افقيين بنفس عرض الجدول اعلى واسفل الـ Detail 3. استخدام الكود التالي لرسم خطوط عمودية على طول الـ Detail في الحدث On Format Me.Line (x1, y1)-(x2, y2) مع وضع القيم المناسية مكان…

تم تعديل التقرير الثاني :cool: my_up.rar

لماذا لا تختصر العملية في جدول واحد يحتوي على نوع العملية : ايراد او مصروف التاريخ الحساب : من جدول الحسابات. المبلغ التفاصيل كما في المثال المرفق :cool: db1.rar

قمت بحذف الكثير من الأشياء و النماذج التي لم ارى لها حاجة :wacko: ان شاء الله يكون هذا هو المطلوب :cool: db1.rar

راجع الرسائل الخاصة :unsure:

إستخدم الإجراء التالي : Sub Error1(DataErr As Integer, Response As Integer) Select Case DataErr Case 2113, 2279 MsgBox "Wrong Format" Case 3399, 3022 MsgBox "Duplicates Value" Case 3201, 3314 MsgBox "Complete Data" End Select Response = -1 End Sub ثم قم بإستدع…

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

عليكم السلام إذا كنت تريد ضغط قاعدة البيانات الحالية يمكنك عمل ذلك من : Tools >Option>Compact on close و اذا كانت قاعدة أخرى إستخدم هذا الكود : Application.CompactRepair "Source File", "Destination File" 'Example Application.CompactRepair "c:\db1.mdb", "db2.md…