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

Khalf

04 عضو فضي
  • Content Count

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

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

  • Days Won

    3

Khalf last won the day on أكتوبر 27 2018

Khalf had the most liked content!

السمعه بالموقع

200 Excellent

2 متابعين

عن العضو Khalf

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    MVP

اخر الزوار

939 زياره للملف الشخصي
  1. شكراً لكم سأجربها و أعلمكم بالنتيجة إن شاء الله. مع أني قد غيرت تنسيق التاريخ في الجهاز و التاريخ يظهر لدي dd/mm/yyyy.
  2. السلام عليكم قمت بعمل استعلام و أنشأت به عموداً من نوع تاريخ DCount("[ID]";"[Table2 Query]";"[Date2]=#"&[Date2]&"#") إلا أن النتجة كانت صفراً بينما لو كان الحقل من نوع رقم أو نص لأعطى النتيجة المناسبة. DCount("[ID]";"[Table2 Query]";"[TextName]='" & [TextName] & "'") شكراً لكم و جزاكم الله كل خير.
  3. السلام عليكم أشكرك على اهتمامك و جعل الله عملك في ميزان حسناتك و قد أخصله له و أثابك عليه في الدارين. ما أبحث عنه هو إمكانية جعل تقارير أكسس مرنة تتناسب مع الاستعلامات الجدولية بحيث تتمدد و يزداد عدد الأعمدة أو تنقص مع تغيرها في الاستعلام مع إمكانية عرض رؤوس الأعمدة عبر الصفحات مع تمدد الاستعلام عرضاً، كما هو الحال مع الأكسل. الأمر الآخر تغير حجم (أبعاد) العناصر في النماذج مع تغير أبعاد الشاشة فضلاً عن دقتها. وسيكون رائعاً أن تأتي هذه الإضافات قابلة للتنفيذ مع ملف أكسس من صيغة Accde. الأخير إمكانية ربط الأكسس مع الإكسل و السماح بتعديل البيانات من الملفين. آمل ألا تكون هذه الاقتراحات استعجازية...
  4. السلام عليكم بعد إذن الأستاذ @AlwaZeeR لعل المشكلة أنك تبحث في نموذج خالٍ من البيانات و ستزول المشكلة مع إدخال أول سجل مرتبط بالنموذج.
  5. السلام عليكم في البداية مقال جميل إجمالاً و جٓمالاً، لكن على حسب تجربتي المحدودة هناك أمر - أو مجموعة منه -أحب أن أشارككم به. أكسس المستخدم على السيرفر يختلف عن ذاك على الحاسب المحلي لجهة السرعة و لجهة عتبة الانهيار. كفاءة الجهاز لها دور كبير بوصول الأكسس إلى حده الأقصى. أخيراً هذه المعطيات عن الأكسس نظرية فالكثيرون لم يستطيعوا الوصول إلى قاعدة بيانات بحجم ١ جيجا و الأمر مركب للغاية. فعدد السجلات عامل هام في تحديد سقف حجم قاعدة البيانات . فلو فرضنا أن قاعدة بيانات وصلت إلى ما يقارب المليون سجل حتى مع عدم بلوغها ١ جيجا فستبطأ و ربما تكثر حالات الكراش حتى الإغلاق النهائي، و ما أعلمه أن الرقم القياسي كان حوالي ٧٠٠ ألف سجل لا أعلم ما حل بتلك القاعدة بعد ذلك. المعادلات في الاستعلامات تقصر عمر قاعدة البيانات خاصة تلك التي تستعرض السجلات كاملة مثل Dcount-Dmax ... و ستخفض عمر قاعدة البيانات بصورة كبيرة فالمليون سجل ربما تفقد صفراً !! العامل الآخر الذي شاهدت تأثيره السلبي هو النماذج الفرعية فهي فضلاً عن إبطاء عمل قاعدة البيانات و تأخير فتح البرنامج قد تحمل معها أخطاء غير معروفة شأنها بذلك شأن المعادلات الطويلة في الاستعلامات. و آخيراً الأحداث في الحالي التي تعتمد على البحث بيانات القاعدة كاملة كتلك التي نستخدمها لتعطي إشعارات بناء على عدد سجلاتٍ و نحوها فلها أثر مماثل . و كل هذا مرتبط بمسألة -لم أعرف لها تعليلاً - و هي تعديل البرنامج على حواسيب مختلفة المعالجات أو أنظمة التشغيل أو نسخ الأوفيس .
  6. السلام عليكم حاجتك في هذا الفيديو و لو كنتُ متصلاً عبر الحاسب لوضع لك مثالاً . ملاحظة أثناء تطبيق الطريقة و الحصول على اسم الطابعة ربما تختلف النتيجة مع اختلاف الحاسب لذلك ستضطر إلى إعادة عملية الحصول على اسم الطابعة مع كل حاسب الإرسال إلى OneNote هو عملياً إرسال الملف إلى طابعة. جزى الله خيراً السيدة ساجدة
  7. السلام عليكم انظر في هذا الرابط ستجد فيه حاجتك و أعتذر لا أستطيع التعديل على ملفك كوني اتصل من الجوال
  8. أعتذر لإساءة فهمي لسؤالك لكن الطريقة - على ما أعتقد - هي باللجوء إلى كود الأستاذ @أبو إبراهيم الغامدي أتمنى لك التوفيق
  9. سيقوم بتصدير كل الجداول التي اخترتها إلى ملف إكسل عادي إن شاء الله كل ما عليك هو تجريبه و بناءعلى ذلك ستحدد مدى ملائمته لك
  10. السلام عليكم أعتذر على التأخر لكن جهاز تعطل أخي الفاضل الكود الذي قدمته بحاجة إلى ملف إكسل أعددته أولاً لترحل إليه البيانات قمت بالتعديل على الكود Option Compare Database Option Explicit Private Sub Command2_Click() Dim strFile As String Dim varItem As Variant strFile = InputBox("Designate the path and file name to export to...", "Export") If (strFile = vbNullString) Then Exit Sub For Each varItem In Me.List0.ItemsSelected DoCmd.TransferSpreadsheet transferType:=acExport, _ spreadsheetType:=acSpreadsheetTypeExcel9, _ tableName:=Me.List0.ItemData(varItem), _ fileName:=strFile Next MsgBox "Process complete.", vbOKOnly, "Export" End Sub Private Sub Form_Open(Cancel As Integer) Dim strTables As String Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If (Left(tdf.Name, 4) <> "MSys") Then strTables = strTables &";"&tdf.Name End If Next Me.List0.RowSource = strTables End Sub و لكي يعمل الكود عليك أولاً اختيار أسماء الجداول من مربع القائمة ( يجب أن تجعل Row source type= Value list Multi select = extended ) ثم حدد أسماء الجداول التي ترغب بترحيلها ثم ضغط مفتاح الأمر و بعد إلصاق مسار الملف بمربع الحوار مع اسمه و الذي تحصل عليه من Properties>security حيث يتضمن اسم الملف مع المسار و عند فتح ملف الإكسل ستجد البيانات قد ظهرت و كل في تبويب باسم الجدول أعتذر مرة أخرى فلم أتمكن من التعديل على قاعدة البيانات لديك. أرسلت التعليق عن طريق الجوال
  11. السلام عليكم لكل إيجابيات و سلبيات لكن العقبة الكبرى هي أن الأسئلة تطرح بحثاً عن حل لمشكلة أو استفساراً عن طريقة . و في الغالب فإن المسألة ستكون مركبة أو ان طارح السؤال - هذا في أحسن الأحوال- لا يعرف بالضبط أين يجب أن يضع السؤال لعدم علمه بمناط استفساره. فكيف سيكون التقسيم و ما هي الإيجابيات من ذلك بمقابل السلبيات؟
  12. السلام عليكم الكود يعملو لم يظهر الخطأ ربما لم تقم بتهيئة الملف الذي ترغب بنقل الجداول إليه .
×
×
  • اضف...