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

ابو عبد الرحمن اشرف

03 عضو مميز
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    385

  • تاريخ الانضمام

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

 نوع المحتوي 

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

  1. ابو عبد الرحمن اشرف
    اخي الحبيب الغالي تقبل الله منك الصيام والقيام وجعلني الله واياك من عتقائه من النار في هذا الشهر الكريم الان الجدول الاساسي كان به عمل 22 سنه فعند اختيار سنتين قبل تاريخ السنة التي نحن بها يتم الترحيل بشكل سليم وممتاز السؤال هو في العام القادم اريد ترحيل سنه واحده فقط في نفس جدول المرحل به البيانات السابقة وهكذا كل عام يتم ترحيل عام وذلك لاحتياج المستخدم للدخول علي بيانات سابقة والاستعلام عن بعض البيانات ، لذلك اريد الترحيل كله يكون في جدول واحد ولا ينشأ لي جدول جديد لكل عملية ترحيل ارجو ان اكون اوضحت فكرتي وبارك الله فيك اخي خليفة ودمت لنا عونا ومعينا
  2. ابو عبد الرحمن اشرف
    بارك الله فيك أخي الحبيب يعني انا اللي قديم فلو قمت بتحديث الاوفيس ستظهر تلك المشاكل قبل توجيهات حضرتك طبعا
  3. ابو عبد الرحمن اشرف
    اخي الحبيب تم تنفيذ توجيهاتك والحمد لله تم تشغيل البرنامج بدون اي رسائل خطأ بارك الله فيك اخي ولكن هناك ملاحظة وهي ان جهازي الديسك توب عليه اوفيس 32 بت ولم تظهر تلك رسائل الخطأ فيه فلماذا ؟
  4. ابو عبد الرحمن اشرف
    جاري العمل علي ذلك اخي الحبيب وسأوافيك بالنتيجة بارك الله فيك اخي
  5. ابو عبد الرحمن اشرف
    كل عام وكل احبائي اعضاء وخبراء وتقنيين بخير وصحة وعافية اعاد الله عليكم الشهر الكريم بالخير واليمن والبركات المشكلة تتمثل في برنامج العقارات المتواضع يعمل علي جهاز ديسك توب وعليه ويندوز 10 64 بت ولا يوجد اي مشكلة فيه تم تسخ البرنامج علي جهاز اخر تقريبا لاب توب ولكن عليه ويندوز 10 وايضا 64 بت ولكن عند تشغيل البرنامج تظهر رسائل خطأ كثيرة ارجوا منكم التكرم بمساعدتي في حل هذه المشكلة وتقبل الله منكم الصيام والقيام وصالح الاعمال
  6. ابو عبد الرحمن اشرف
    كلماتك اخي الحبيب الفاضل تنير طريقنا وتجعلنا نشعر بالتفائل والأمل نحن الأعضاء المبتدئين المحبي للاكسس
  7. ابو عبد الرحمن اشرف
    اخواني الاحباء بارك الله فيكم جميعا اريد تشغيل قاعدة علي جهاز كمبيوتر واحد فقط ومن كنوز هذا المنتدي علمت كيف احصل علي رقم uuid فالمطلوب حدث لا ادري يوضع في اي مكان يكتب فيه الاتي اذا كان رقم uuid يساوي C098B88C-4E15-DE11-A23F-9977360FA0C4 مثلا افتح نموذج كذا واذا لم يكن كذلك يعطي رسالة تنبيه عفوا يرجي الاتصال ب مصمم البرنامج Database3.accdb
  8. ابو عبد الرحمن اشرف
    حبيبي الغالي اسف لك الاكسس عندي عربي فلم استطع تنفيذ توجيهات حضرتك وبعد اثراء اخي Barna بالصور التوضحيحة تبين لي ان حل كلاكما واحد فبارك الله فيكما
  9. ابو عبد الرحمن اشرف
    بارك الله فيك اخي kkhalifa1960 وبارك الله في خبيرنا Barna تم الحل كما ذكرتم وجزيتم عني كل خير
  10. ابو عبد الرحمن اشرف
    ممكن شرح بالصور لاني مش عارف اوصل لما ذكرته اخي الحبيب الغالي
  11. ابو عبد الرحمن اشرف
    ظهرت اسماء جداول بلون باهت فكيف يتم اخفاءها بارك الله فيكم
  12. ابو عبد الرحمن اشرف
    اخذت الجدول والنموذج في قاعدة بيانات العقارات الخاص بي واشتغلت مية بالمية بارك الله فيك اخي الحبيب الغالي
  13. ابو عبد الرحمن اشرف
    شغال عندي تمام جزاك الله كل خير اخي الحبيب الغالي علي هذه الكنوز
  14. ابو عبد الرحمن اشرف
    1 - حبيبي الغالي انت مش يرضيك ان حاجة تعدي كدة بدون فهم خاصة ونحن في اطار دروس نتعلم منها من غزير علمكم اخي فممكن مثال اخي علي مربع السرد المتعدد 2 - هل من الممكن بنفس طريقة اخفاء الجدول يتم اخفاء كافة الاستعلامات والنماذج والتقارير والماكرو والوحدات النمطية (الاوامر البرمجية ) او المديول بحيث لا تظهر عند اظهار الملفات المخفية
  15. ابو عبد الرحمن اشرف
    بوركت اخي الحبيب زادك الله علما ونفعنا الله بك
  16. ابو عبد الرحمن اشرف
    اخي الحبيب كيف يتم كتابة الأمر البرمجي بعد الحصول على رقم uuid مع إظهار رسالة خطأ تفيد بالرجوع للمصمم لعمل القاعدة على جهاز اخر
  17. ابو عبد الرحمن اشرف
    يسر الله لي ولك الخير اخي الحبيب سأنتظر انا بتعلم منك اخي الفاضل الكريم اذن الاخفاء بكود حضرتك هو الاصح والاكثر آمنا لقاعدة البيانات بارك الله فيك أخي الحبيب
  18. ابو عبد الرحمن اشرف
    Option Compare Database Option Explicit Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String Flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (OFN As OPENFILENAME) As Boolean Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (OFN As OPENFILENAME) As Boolean Private Const ALLFILES = "All files" Function MakeFilterString(ParamArray varFilt() As Variant) As String Dim strFilter As String Dim intRes As Integer Dim intNum As Integer intNum = UBound(varFilt) If (intNum <> -1) Then For intRes = 0 To intNum strFilter = strFilter & varFilt(intRes) & vbNullChar Next If intNum Mod 2 = 0 Then strFilter = strFilter & "*.*" & vbNullChar End If strFilter = strFilter & vbNullChar End If MakeFilterString = strFilter End Function Private Sub InitOFN(OFN As OPENFILENAME) With OFN .hwndOwner = hWndAccessApp .hInstance = 0 .lpstrCustomFilter = vbNullString .nMaxCustFilter = 0 .lpfnHook = 0 .lpTemplateName = 0 .lCustData = 0 .nMaxFile = 511 .lpstrFileTitle = String(512, vbNullChar) .nMaxFileTitle = 511 .lStructSize = Len(OFN) If .lpstrFilter = "" Then .lpstrFilter = MakeFilterString(ALLFILES) End If .lpstrFile = .lpstrFile & String(512 - Len(.lpstrFile), vbNullChar) End With End Sub Function OpenDialog(OFN As OPENFILENAME) As Boolean Dim intRes As Integer InitOFN OFN intRes = GetOpenFileName(OFN) If intRes Then With OFN .lpstrFile = Left$(.lpstrFile, InStr(.lpstrFile, vbNullChar) - 1) End With End If OpenDialog = intRes End Function ما وظيفية هذا المديول بارك الله فيكم Private Sub HBypassKey_Click() ChangeProperty "AllowBypassKey", DB_Boolean, False End Sub
  19. ابو عبد الرحمن اشرف
    اخي الحبيب الغالي السلام عليكم ورحمة الله وبركاته تم تنفيذ الخطوة 3 وهي انشاء الجدول والخطوة 4 وهي انشاء قاعدة بيانات امامية محمية بكلمة مرور فما هي الخطوة التالية بارك الله فيك اخي وما راي حضرتك في هذا الحدث الذي يخفي الجدول ويظهره دون الحاجه لغلق القاعدة وفتحها مرة اخري اليك المرفق اخي 04- craet table with hard code.rar
  20. ابو عبد الرحمن اشرف
    الله يرضي عنك اخي الحبيب الغالي ابو جودي بعد تشغيل ذلك النموذج والحصول علي uuid يتم نسخة ووضعه في حدث عند التحميل او الفتح يكتب فيه اذا كان uuid= كذا open ..كذا ورسالة الخطأ " يرجي الاتصال على مصمم البرنامج وشكرا" فكيف يتم كتابة هذا الحدث واين يوضع في نموذج بدء التشغيل
  21. ابو عبد الرحمن اشرف
    على قدر فهمي معنى كده ان البرنامج لا يعمل الا على هذا الجهاز فقط لانه أصبح محمي بريجستري الجهاز ام انني مش فاهم خالص بالله فهموني و بهدوء بارك الله فيك أخي الحبيب ابو جودي
  22. ابو عبد الرحمن اشرف
    هو ده الكلام اللي كنت عاوز اقوله بالضبط صح لسانك اخي اغيد أعطينا السنارة والسمكة مع بعض الله يرضى عنك
  23. ابو عبد الرحمن اشرف
    حالا بإذن الله تعالى هفتح الملف المرفق وابلغ حضرتك باي مشكلة أو معضلة حدثت معي اخي الحبيب
  24. ابو عبد الرحمن اشرف
    في وجهي كده بارك الله فيك أخي الحبيب
  25. ابو عبد الرحمن اشرف
×
×
  • اضف...

Important Information

  I accept