اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

محمد طاهر عرفه

إدارة الموقع
  • Posts

    8,707
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    36

كل منشورات العضو محمد طاهر عرفه

  1. ضع ال 11 و ال 4 فى الخلايا a1,a2 عل التوالي و المعادلة تكون =+ROUNDDOWN(A1/A2;0)
  2. أبسط الطرق لتطبيقه هو عمل تقرير أو استعلام تجميع برصيد كل مادة ( مجموع التوريد - مجموع السحب ) فى القاعدة التي سيتم اقفالها و في القاعدة الجديدة ، يتم عمل سجل لكل مادة لها رصيد و يكون وصفه رصيد افتتاحي للمادة و به توضع قيمة الاقفال للقاعدة السابقة و يتم بعد ذلك توالي السحب و الاضافة
  3. ما هي الدالة Mround ?? هي دالة قمت بكتابتها ، أم مضافة من Add-in ؟؟ عموما بالنسبة لاستخدام الشرط فى هذه الحالة =IF(A2>=0;mround(A2;7);mround(A2;-7))
  4. الافضل هو ان تجعل ما يخزن فى الجدول هو مسار ملف الوورد فقط ، مع السجل المناظر ( حقل المسار ) و من المفترض اذا اردت ادراج كائن وورد بالملف داخل البرنامج ( و ان كنت لا أحبذ ذلك ) ، فسيكون هناك حقل من نوع OLE فى الجدول ليتم تخزين الكائن به مع السجل المناظر و هو يتم حفظه ضمن بيانات الجدول و ليس كملف منفصل و كما قلت لك الافضل هو أن تحفظ المسار فقط و تجعل الملفات كلها فى مجلد محدد و لاختيار مسار الملف من نموذج استعراض مجلد واختياره http://www.officena.net/ib/index.php?showtopic=958
  5. الجزء الاول كان لعمل الوصلة فقط و لا ينتج عنه شيء و تحتاج الي اكمال الاكواد بحسب الحاجة و بما أن الوصلة نجحت لعملية الربط ، فهذا يعني أن الجزء الاول ناجح ( و هو يمثل فقط فتح الاتصال مع القاعدة ) مع تحياتي
  6. هذا الكود للأخ أبو هاجر : Dim wrkJet As Workspace Dim AbA As Database Set wrkJet = DBEngine.Workspaces(0) Set AbA = wrkJet.OpenDatabase("databasename.mdb", _ False, False, _ ";PWD=123") مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb" و بذلك تكون حققت الاتصال مع القاعدة المحمية بكلمة سر 123 و تنفذ بعد ذلك ما تريد من أكواد و من المهم كما ذكر أخونا أبو هاجر ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف بعد انتهاء ما تريد من أكواد نفذ الأمر التالي AbA.Close Set wrkJet = Nothing Set AbA = Nothing ========== و بالمناسبة الكود كاملا كان لعمل ربط للجداول فى قاعدة محمية بكلمة سر و كان كالتالي : Dim wrkJet As Workspace Dim AbA As Database Set wrkJet = DBEngine.Workspaces(0) Set AbA = wrkJet.OpenDatabase("databasename.mdb", _ False, False, _ ";PWD=123") DoCmd.TransferDatabase acLink, "Microsoft Access", "databasename.mdb", acTable, "table1","table2" مع وضع المسار الكامل مع اسم قاعدة البيانات التي تريد الاتباط بها بدلاً من "databasename.mdb" ووضع اسم الجدول الموجود الذي تريد الارتباط به مكان "table1" والاسم الذي تريد تسمية الجدول به بعد الارتباط مكان "table2" من المهم ألا تنسى إغلاق قاعدة البيانات بعد الارتباط بالجداول المطلوبة حتى لا تكون عرضة للتلف بعد الارتباط نفذ الأمر التالي AbA.Close Set wrkJet = Nothing Set AbA = Nothing
  7. مثال لاظهار الأذكار بالتتابع المثال للأخ فهد الدوسري AZKAR_FHD.rar
  8. بخصوص اظهار و اخفاء أشرطة القوائم و الادوات فيمكنك التحكم فيها من Tools Startup و أزل الخيارات المناظرة و منها أيضا تختار النموذج الافتتاحي و ليكن Form1 ثم فى حدث عند عداد الوقت On Timer تضع كود فتح النموذج التالي و اغلاق الحالي DoCmd.Close DoCmd.OpenForm "Form2" و تضع قيمة عداد الوقت TImer Interval 3000 أي 3 ثواني لان القيمة تدخل بالمللي ثانية
  9. المتعارف عليه هو الاكتفاء برصيد افتتاحي لكل فترة يعبر عن الاجمالي التراكبي للفترات السابقة برقم واحد لكل مادة ، لحسابات العملاء و المشترين اذا كانوا مدرجين فى البرنامج و اذا احتجت التفاصيل السابقة فالملفات موجودة و يمكن اعادة التوجيه عليها و يوجد مثال فى الارشيف لتغيير ربط قواعد البيانات من خلال نموذج
  10. السلام عليكم أعتقد أن هذه الحلول تضيف كلمات الي قاموس التعرف علي الكلمات و ليس قاموس الترجمة الذي يريده الأخ عبد الوهاب
  11. مرفق مثال علي السريع ، أرجو أن يوفي بالغرض مع تحياتي Vications.rar
  12. لعمل أكثر من زر للتبديل ، كل منها يظهر نموذج محدد If Me.SubForm.SourceObject <> "Subform2" Then Me.SubForm.SourceObject = "Subform2" End If مع تغيير اسم النموذج الفرعي لكل زر
  13. هذه دالة للتعرف علي هل الحرف تشكيل أم لا و هي من إعداد الأخ أبو هادي Function IsTashkeel(ByVal InChar As Variant) As Boolean IsTashkeel = False If Len(InChar) = 0 Then Exit Function Select Case Asc(Left(InChar, 1)) Case 126, 240 To 243, 245, 246, 248, 250 IsTashkeel = True End Select End Function
  14. أعتقد أن هذه الكتب جيدة http://www.darelfarouk.com.eg/bookdetails.asp?id=161 http://www.darelfarouk.com.eg/bookdetails.asp?id=181 http://www.darelfarouk.com.eg/bookdetails.asp?id=162 http://www.darelfarouk.com.eg/bookdetails.asp?id=178 http://www.darelfarouk.com.eg/bookdetails.asp?id=179 و ما قرأته بالفعل هو الثاني و الأخير
  15. نشكر الأخ طالب علم علي الكود المفيد ، و الشكر موصول للأخ حارث :(
  16. فى الأغلب هناك ترجمات عربية للكثير من الكتب المذكورة و هذا موقع دار الفاروق http://www.darelfarouk.com.eg/whorwe.htm و بالبحث عن أكسيس ستجد عدد من الكتب ( منها بعض ما ذكر فى الأعلي)
  17. عن نفسي لا أحب وضع خلفية لملف الاكسيل لذا لم أجرب الموضوع كثيرا و أعتقد أن الفرق حال وجود الخلفية و تكرارها لن يكون في حجم الملف فالصورة واحدة و لكن يتم عرضها بتكرارأي ليس هناك نسخ من الصورة لذا فالتأثير علي الحجم لن يكون كبيرا ، و لكن ربما التأثير فى سرعة أداء الملف اذا كان به بيانات و معادلات ضخمة أو معقدة و يمكنك التجربة و ملاحظة فرق الحجم فى الملف فى الحالتين و افادتنا بالنتيجة مشكورا
  18. بإذن الله سأحاول اعداد المثال لكن الوقت المتاح هذه الايام قليل ، فاعذرونا و مؤقتا أرجو أن تحاول تطبيق ما ذكرت من شرح
  19. كتب المستوي الاحترافي تكون مختلفة عن كتب التعلم فللتعلم يمكن البدء بأي كتاب من السلاسل الكبيرة Bible Que Mastering Sybex و للمستوي الاعلي هناك Sybex - Access 2000 VBA Que - Access 2000 Black Book Que - Access 2000 Client / server و بالتأكيد هناك اصدارات لاحقة أكثر
  20. شكرا للأخ ابن مسقط علي الاضافة :( الأخ أحمد : If Date > #11/18/2003# Then MsgBox "Time Over" DoCmd.Quit Else Dim MydateDiff As Integer MydateDiff = (#11/18/2003# - Date) If MydateDiff <= 15 Then x = MsgBox("Time remaining" & Str(MydateDiff) & " days , do you want to Continue ??", vbYesNo, "www.officena.net") If x = vbNo Then DoCmd.Quit End If End If End If الأخ علالي قم بتسجيل تاريخ اليوم فى حقل فى جدول و قبل التسجيل ثانية ( عند فتح البرنامج مثلا ) قم بمقارنة التاريخ المسجل مع تاريخ اليوم باستخدام Dlookup فاذا اكتشفت أن التاريهخ اليوم أقل من المسجل فارفض الدخول و عموما فالحل الافضل لل demo هو عمل شرط علي عدد السجلات فى جدول مهم و ليس الزمن فتقوم عند الفتح بعد السجلات و اذا زادت عن حد معين ترفض الدخول أو تجري الاختبار عند الاضافة ، و ترفض التسجيل اذا زاد العدد عن المسموح if Dcount("[FieldName]", "TableName") > 50 then Docmd.quit أو تظهر رسالة إن أردت : If DCount("number", "TableName") > 10 Then MsgBox "انتهت مدة استخدام النسخة التجريبية", vbOKOnly + vbInformation, "Officena" DoCmd.Quit end if
  21. أيضا تم اضافة مثال آخر الي نفس الموضوع فى الارشيف http://www.officena.net/ib/index.php?act=S...&st=0#entry6020 و مثال الأخ فهد مشكورا يعتمد علي ال RecordsetClone و المثال الذي أضفته عن طريق دالة Dcount
×
×
  • اضف...

Important Information