اذهب الي المحتوي
أوفيسنا

Bluemind

المشرفين السابقين
  • Posts

    1,802
  • تاريخ الانضمام

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

  • Days Won

    1

مشاركات المكتوبه بواسطه Bluemind

  1. انا شاكر جدا لكل من رد على سؤالي

    اخي العزيز ابو ادم

    اتجاه التقرير صح واتجاه النص في التقرير صح

    ولكن احتواء التكست للنص بداخله عاوزه زي قاعدة البيانات المرفقة

    بمعنى الاتساع للنص افقيا وليس رأسيا

    ارجو اكون قد وصلت المطلوب

    شكرا

    اخوي بارك الله فيك

    لا يوجد قاعده بيانات مرفقه ، فكيف تريد المساعده!!!

  2. الاخ محمد

    الان انت تسال عن الجديد ولكن!!

    هل قمت بالعمليات الحسابية ادناه كما ذكرت لك سابقا؟؟ وماهي النتائج؟؟

    بعد ذلك بامكانك حساب رصيد العميل

    اما دائن او مدين

    بحيث تقوم بعمل استعلام(ِA) يعمل على جمع مبالغ العميل(حقل المبلغ) ذو الرقم مثلا 1 من نوع المبيعات و من نوع نقدا( لاحظ وجود شرطين مبيعات و نقد) ثم تقوم بعمل استعلام (B)يقوم بجمع مبالغ العميل من نوع مبيعات والاجله(حقل قيمه الفاتوره) ثم تقوم بخصم Bمن A فايعطيك رصيد اولي مدين او لآ ونسمي هذا الاستعلام مثلا ©

    ثم تقوم بعمل باستعلام (D) يعمل على جمع حقل(المبلغ الفاتوره) للعمليات من نوع مسترجع , و نقد ونقوم بعمل استعلام (E) يجمع حقل (المبلغ الفاتوره) و من نوع مسترجع اجل و من ثما نقوم بخصم D من E و نحصل عللا الاستعلام F الذي يبين اما دائن او لا

    الان حصلنا على قيم المدين© و الدائن (F)

    نقوم بخصم © من (F)

    مثلا قيمه C

    6000 كما في مثالك

    وقيمه F

    50 كما في مثال

    ببعد اجراء العمليه تحصل على 5950 دين على الزبون

    بامكانك وضع حقول تقوم بجمع الدائن و المدين وايضاحها في النموذج

    ارجو ان قد وفقت في الشرح

    و الرجاء من الاخوان المحاسبين تصحيح العمليات اعلاه ان وجد خطاء

    بالتوفيق

  3. سيدي الفاضل /

    تم التعديل كما اوضحت عالية ولكن المشكلة الان ان عملية حساب تاريخ الميلاد والسن من الرقم القومي لا تعمل علي النموذجن الفرعيين ( الأبناء والزوجات ) فارجو منكم تفعيلهم لانة يعمل علي النوزج الرئيسي فقط

    ثم ارجو منكم عمل استعلام او نموزج (أيهما افضل ) وتكون بياناته كالتالي

    مسلسل رقم الأسرة الأسم عدد الأفراد

    المرفق بعد اخر تعديل

    اخوي بارك الله فيك

    سؤالك كان عن تصفيه نموذج من نموذج اخر وتم حله

    الان تضع عده اسئله في نفس الموضوع وهذا مخالف لقواعد المشاركه

    قم بوضع كل سؤال في موضوع جديد وسوف تجد المساعده ان شاء الله من بقيه الاعضاء

  4. أخي العزيز ابا لميس

    تفقدتك فلم اجدك في المنتدى، ، فإرتأيت طرح الحل إختصاراً لوقتك وتحقيقيا لحاجتك

    كان الأصل عندي حل الامر عبر كود برمجي ولكنني رأيت سلوك الطريق الطويل الواضح حتي تصلك الفكرة بهدوء ثم تتولى انت كتابة الكود كما تشاء

    1. الاستعلام tblNameAct Query

    2. الاستعلام Query2

    3. الاستعلام Query3

    4. التقرير RepQ3

    فإن كنت قد أحسنت الفهم عنك ، يكون مرادك قد تحقق .... وكفي

    والله من وراء القصد ... وهو حسبي

    حل جميل و موفق

    تم استخدام اكثر من داله مما يثري العمل

  5. اخوي محمد

    انا ليس الخبره الكثيره في مجال المحاسبه مع اني درستها واستعمل بعض اساسيتها في العمل

    ولكن قبل كل شي سوف اتكلم عن تصميم الجداول وعلاقتها وكذلك تسهيلها للعمليات الحسابيه و الاستعلاميه

    التصميم الموجود في الجدول ليس بالسليم

    اولا:

    لا يوجد مفاتيح اساسيه ولا تعريفيه

    بمعنى لايوجد مايعرف بالزبون سوى اسمه ويكتب كتابه كل مره يتم الاضافه وهذا غلط

    لابد من وضع جدول منفصل للعملاء ويتم وضع رقم تسلسل لكل زبون لغرض التعريف ويكون مفتاح اساسي متفرد

    كذلك لا يوجد مفتاح تعريفي انوع العمليه‘: مبيعات ، او مسترجع... الخ بل تستخد الادخال بكتابته يدويا ، ومن ثما حدوث خطاء في الادخال قد يسبب مشالكل حسابية وكذلك ينطبق الكلام على نوع المدفوعات

    من اساسيات تصميم قواعد البيانات هو سلامه البيانات او Data Integrity

    ثانيا هناك عمليات يجب برمجه التسلسل فيه كما في رقم الفاتوره

    في مثالك انت تقوم بادخالها يدويا وهذا قد يسبب مشاكل اخرى بالتعريفات و الاستعلامات

    من ناحيه التصميم اقترح وضع جدول للعملاء يحتوي على رقم العميل و يكون من نوع رقم تلقائي >> مفتاح اساسي

    اسم العميل

    العنوان

    التليفون

    ....

    جدول لنوع المدفوعات

    يحتوي على

    رقم تعريف من نوع تلقائي

    الوصف >>> نقد او اجل

    كذلك جدول لنوع العمليه

    حتوي على

    رقم تعريف من نوع تلقائي

    الوصف >>> مبيعات او مسترجع

    كذلك جدول للعمليات

    وجدول للعمليات

    يحتوي على

    رقم منفرد من نوع تلقائي

    رقم العميل وهو ياخذ البيانات من جدول العملاء اعلاه ويكون مفتاح ثانوي

    التاريخ

    نوع االعمليه من نوع رقم>> مبيعات او مسترجع ويكون قائمه منسدله تختار منها ويتم تخزين رقم العمليه الموجود في جدول انوع العمليات اعلاه

    نوع المدفوعات من نوع رقم>> نقد او اجل ويكون قائمه منسدله تختار منها ويتم تخزين رقم نوع المفوعات الموجود في جدول نوع المفوعات اعلاه

    المبلغ

    قيمه الفاتوره

    هذا كل ماتحتاجه

    بعد ذلك بامكانك حساب رصيد العميل

    اما دائن او مدين

    بحيث تقوم بعمل استعلام(ِA) يعمل على جمع مبالغ العميل(حقل المبلغ) ذو الرقم مثلا 1 من نوع المبيعات و من نوع نقدا( لاحظ وجود شرطين مبيعات و نقد) ثم تقوم بعمل استعلام (B)يقوم بجمع مبالغ العميل من نوع مبيعات والاجله(حقل قيمه الفاتوره) ثم تقوم بخصم Bمن A فايعطيك رصيد اولي مدين او لآ ونسمي هذا الاستعلام مثلا ©

    ثم تقوم بعمل باستعلام (D) يعمل على جمع حقل(المبلغ الفاتوره) للعمليات من نوع مسترجع , و نقد ونقوم بعمل استعلام (E) يجمع حقل (المبلغ الفاتوره) و من نوع مسترجع اجل و من ثما نقوم بخصم D من E و نحصل عللا الاستعلام F الذي يبين اما دائن او لا

    الان حصلنا على قيم المدين© و الدائن (F)

    نقوم بخصم © من (F)

    مثلا قيمه C

    6000 كما في مثالك

    وقيمه F

    50 كما في مثال

    ببعد اجراء العمليه تحصل على 5950 دين على الزبون

    بامكانك وضع حقول تقوم بجمع الدائن و المدين وايضاحها في النموذج

    ارجو ان قد وفقت في الشرح

    و الرجاء من الاخوان المحاسبين تصحيح العمليات اعلاه ان وجد خطاء

    بالتوفيق

  6. اخي bluemaind

    هل تستطيع شرح الوحدة النمطية اكثر قليلا اقصد هل يجب ان احذ الجداول من قاعدة البيانات ام ماذا ؟؟؟

    اخوي محمد

    كما ذكرت في مشاركتي السابقه

    هذهالوحده وجدتها في احد المواقع الاجنبيه ولم اقم بتصميمها

    ثانيا

    ماعليك فقط الا تعديل مسار القاعده الخلفيه او قاعده الجداول الموجوده على السرفر

    انظر هذا السطر في الوحده النمطيه

    
    strName = "C:\Users\Guest\Documents\Backend1.accdb"
    
    

    ثم

    في النموذج الرئيسي في الواجهه الاماميه(الموجوده على اجهزه المستخدمين) وفي حدث عند التحميل او onload

    قم باستدعى الوحده النمطية كاتالي

    OpenAllDatabases True

    وفي حدث عند الاغلاق للنموذج ضع الكود التالي

    OpenAllDatabases False

    مع العلم انه يجب تشغل هذا النموذج طول الوقت مادم المستخدم يعمل على القاعده الامامية

    بالتوفيق

  7. اخوي بارك الله فيك

    لقد تم التعديل على جدول son و marred

    تم عمل مفتاح اساسي SQ وتم ازاله المفتاح الاساسي من حقل FamilyID لانه لايسمح باضافه اسماء اخرى تحت هذا الحقل بنفس الرقم

    لذلك جعلنا FamilyID هو الحقل الرابط بين الجدولين و بين النموذجين

    قم بالضغط على زر الانجال وشاهد النتيجه

    قمت بعمل الربط عن طريق المعالج

    ضع زر امر على النموذج

    ثم سوف يقوم المعالج بالعمل

    اختر Form Operation ومن الحدث Open Form

    ثم اختر اسم النموذج الذي تريد فتحه

    ثم اختر الخيار الاول open form and find specific data...

    ثم اختر الحقل IDfamily من الجهه اليمنى و IDfamilyمن الجهه اليسرى واغط على الزر الموجود بينهما <->

    ثم اغط على التالي ثم انهاء

    وعليك تطبيق الفكره على زر الزوجات لكي تستوعب الفكره

    بالتوفيق

    NA_Census.rar

  8. هذا حل وجدته باحد المواقع عن طريقه فتح اتصال مع قاعده البيانات الخلفيه لتسريع الاتصال

    قم بانشاء الوحده النمطية التالية

    
    Sub OpenAllDatabases(pfInit As Boolean)
    
      ' Open a handle to all databases and keep it open during the entire time the application runs.
    
      ' Params  : pfInit   TRUE to initialize (call when application starts)
    
      '				    FALSE to close (call when application ends)
    
      ' Source  : Total Visual SourceBook
    
      Dim x As Integer
    
      Dim strName As String
    
      Dim strMsg As String
    
    
      ' Maximum number of back end databases to link
    
      Const cintMaxDatabases As Integer = 2
    
      ' List of databases kept in a static array so we can close them later
    
      Static dbsOpen() As DAO.Database
    
    
      If pfInit Then
    
        ReDim dbsOpen(1 To cintMaxDatabases)
    
        For x = 1 To cintMaxDatabases
    
    	  ' Specify your back end databases
    
    	  Select Case x
    
    	    Case 1:
    
    		  strName = "C:\Users\Guest\Documents\Backend1.accdb"
    
    	  End Select
    
    	  strMsg = ""
    
    	  On Error Resume Next
    
    	  Set dbsOpen(x) = OpenDatabase(strName)
    
    	  If Err.Number > 0 Then
    
    	    strMsg = "Trouble opening database: " & strName & vbCrLf & _
    
    				 "Make sure the drive is available." & vbCrLf & _
    
    				 "Error: " & Err.Description & " (" & Err.Number & ")"
    
    	  End If
    
    	  On Error GoTo 0
    
    	  If strMsg <> "" Then
    
    	    MsgBox strMsg
    
    	    Exit For
    
    	  End If
    
        Next x
    
      Else
    
        On Error Resume Next
    
        For x = 1 To cintMaxDatabases
    
    	  dbsOpen(x).Close
    
        Next x
    
      End If
    
    End Sub
    
    
    مع تعديل مسار القاعده الخلفيه في الكود ثانيافي نموذج الرئيسي في الواجهه الاماميه(الموجوده على اجهزه المستخدمين) وفي حدث عند التحميل او onload قم باستدعى الوحده النمطية كاتالي
    
    OpenAllDatabases True
    
    
    وفي حدث عند الاغلاق للنموذج ضع الكود التالي
    
    OpenAllDatabases False
    
    

    مع العلم انه يجب تشغل هذا النموذج طول الوقت مادم المستخدم يعمل على القاعده الامامية

    • Like 1
  9. ولكن معنى كلامك ان المشكلة في الواجهات ؟

    نعم ممكن وهي اغلب مشاكل بطء قواعد البيانات

    هناك امور اخرى يجب مراعتها

    ماهو طول اسم قاعده البيانات (back end)?? ماهو مستوى موقع القاعده ؟ هل هي بداخل اكثر من مجلد فرعي؟؟

    كذلك ، برنامج مكافحه الفيروسات له علاقه بالموضوع ، قم باستثناء مجلد قاعده البيانات من مسح برنامج مضاد الفيروسات

    كذلك ، ماهو نموذج بداء التشغيل ؟؟ هل هو فورم بدون مصدر بيانات ؟؟ اي فورم يوجد به ازرار لفتح نماذج اخرى بدون اي مصدر للبيانات؟؟ لا بد من وضع نموذج مخفي يعمل بالخفى عند تشغيل الواجهه ويكون يعمل طول الوقت و يوجد لديه مصدر للبيانات.

  10. اخوي بارك الله فيك

    المنتدى يخدم منتجات الاوفيس وليس له علاقه بالهارد وير و الشبكات

    على العموم يوجد اجابات كثيره لو استخدمت قوقل

    فقط اكتب في قوقل

    كيفيه ربط الكمبيوتر بالسوتش

    وسوف تجد عده مواقع تشرح ذلك

    بالتوفيق

×
×
  • اضف...

Important Information