.Azhar

تفضل اخي ارجو ان يكون هو المطلوب .

وحاول جهد الامكان كتابة حقول الجداول باللغة الانكليزية .

ijazh.rar

سعيد جدا , اتمنى لك النجاح . 

راجع هذا الرابط , الموضوع 6#

http://www.officena.net/ib/index.php?showtopic=57527

راجع هذا الرابط 

http://www.officena.net/ib/index.php?showtopic=56541&hl=

اخي العزيز ملف DBF ارفقه هنا , هذا الذي ارفقته ليس ملف DBF . 

اعتقد وحسب ما فهمت , تحتاج الى ثلاثة جداول وهي :-

جدول الحركات اليومية .

وجدول الحالة اليومية للانجازات . 

ولا افهم ما هو معنى رئيس قسم المبيعات . 

انت لم توضح لنا ماذا تريد بالضبط , لكن اعتقد هي قاعدة بيانات يومية لمؤسسة تتبع لها عدة شركات . 

لكن اشرح موضوعك بالتفصيل حتى يتم مساعدتك من قبل الاخوة المشرفين والاعضاء . 

تحياتي لك واتمنى لك النجاح .

فيما يخص الصورة تابع هذا الموضوع :-

http://www.officena.net/ib/index.php?showtopic=54914&hl=

اما فيما يخص الدالة . تكتب في استعلام . 

يمكن استخدام هذا التعبير وسوف اشرح لك بالتفصيل .

National number: Right([yars];2) & "" & [NoAccepCentral] & "" & [field]

لنفرض ان National number هو حقل الرقم القومي ونفترض نريد ان يظهر لنا هذا الحقل كالاتي : 

134604

حيت ان 13 هو اخر رقمين من سنة 2013 . yars

و الرقم 460 هو الرقم الجامعي للطالب .NoAccepCentral

والرقم 4 هو القسم الذي يدرس فيه الطالب حاليا . field

وهكذا يمكن ان تستمر الحقول ونستطيع استخدام دالة Right او Left وما عدد المحذوف من الرقم . 

هل من الممكن ارفاق ملف DBF هنا . 

هل تم عمل هذا الملف في الفوكس برو , وفي اي نسخه . 

وكذلك لغرض مشاهدة مثال لطباعة السجل الحالي في الفورم انظر هذا المثال .

http://www.officena.net/ib/index.php?showtopic=55827&hl=

اما فيما يخص كود الحذف , يوجد هنالك طريقتين .

الاولى للحذف النهائي وهو هذا :-

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

Private Sub Command410_Click()
On Error GoTo Command410_Click_Err

    On Error Resume Next
    DoCmd.GoToControl Screen.PreviousControl.Name
    Err.Clear
    If (Not Form.NewRecord) Then
        DoCmd.RunCommand acCmdDeleteRecord
    End If
    If (Form.NewRecord And Not Form.Dirty) Then
        Beep
    End If
    If (Form.NewRecord And Form.Dirty) Then
        DoCmd.RunCommand acCmdUndo
    End If
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
            End If


Command410_Click_Exit:
    Exit Sub

Command410_Click_Err:
    MsgBox Error$
    Resume Command410_Click_Exit

End Sub

مرحبا بك اخي في المنتدى 

هذا الكود هو لطباعة السجل الظاهر لك في النموذج . وسوف اشرحه لك بالتفصيل . 

Private Sub Command10_Click()

 Dim strReportName As String
    Dim strCriteria As String

    If NewRecord Then
        MsgBox "لايوجد قيد او سجل لغرض طباعته , الرجاء اختر سجل معين", vbInformation, "طباعة"
        Exit Sub
    Else
        strReportName = "هنا تكتب اسم التقرير"
        strCriteria = "[ID]= " & Me![id]
        DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

    End If
End Sub

لاحظ ان الكود يوضع في حدث عند النقر على الزر Command10 وان الرساله تظهر لك في حالة النموذج لا توجد به بيانات اي انه فارغ , كما ارجوا منك الانتباه الى اسم التقرير وحقل الــ ID في جدولك , بمعنى المفتاح الاساسي للسجل في الجدول . 

كما يجب ملاحظة السطر من الكود 

DoCmd.OpenReport strReportName, acViewPreview, , strCriteria

والذي فيه عبارة acViewPreview وهي عرض التقرير في المعاينة قبل الطباعة . 

طيب هذا هو البرنامج 

ارجوا ان ينتفع منه الجميع .

Northwind.rar

كما تفضلت استاذ رضوان برامج المخازن والمبيعات هي من اصعب البرامج . وكذلك يجب على صاحب العمل ان يكون ملم في عمله , وايضا انها مكلفة ماديا . 

انا انصح الاخت صاحبة الموضوع ان تراجع قاعدة بيانات الرياح الشماليه (Northwind ) .

واعتقد لدي نسخة 2003 سوف ابحث عنها وارفقها ليستفيد الجميع منها . 

بعد اذن الاستاذ رضوان , هذا مخطط للجداول والعلاقات لقاعدة بيانات تم بنائها من قبلي لاحدى الشركات العراقية . 

يمكن الاستفادة والتغيير فيها .

اسف جدا لعدم ارفاقي البرنامج بالكامل . لان حقوقه الان ليست لي وانما للشركة . 

تم ارفاق هذه الصور لغرض التقريب لك عن كيفية انشاء الواجهات والتقارير .

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

تفضل هذا التعديل

البرنامج.rar

تفضل انظر لهذا المثال . كل ما هنالك تقوم بتحويل المنازل العشرية من Auto الى 3 ومسح الاصفار التي انت وضعتهم 0.0000 وتختار ستندر . 

الفاصلة العائمة.rar

السلام عليكم اخي علي .

ممكن توضح في الصورة المرفقة ماهي الارقام الصحيحة التي يجب ان تظهر . 

الحقل H هو عدد صحيح وليس كسر عشري ولذلك عند جمعه مع الحقل N سوف يكون ليس في الكسر وانما في العدد الصحيح . 

وعند تطبيق المعادلة في الالة الحاسبة يظهر نفس الناتج . 

من الممكن ان تضع لنا ما هي الارقام التي يجب ان تظهر لك فوق الحقول S و N . مع الابقاء على الارقام القديمة الموضحه في مرفقك . 

صباح الخير استاذ ابو عمر . منور بمرورك الطيب .

كما اضيف للاخ علي هذا المقال . ارجوا ان ينتفع منه .

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

http://support2.microsoft.com/kb/111781

شكرا جزيلا استاذ ابو خليل على الاطراء .

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

انا لم افهم ما تريد بالضبط , الاستاذ ابو خليل وضع لك دالة الرندوم لغرض التقريب وتقول ليس هذا هو الحل ممكن ان تشرح لنا اكثر وبشكل مفصل .

اما دالة الــ Left.

فهذه امثله لها .

= Left([NameField],1)

هل تقصد انه عند وضع مؤشر الماوس في الحقل تظهر لك الكسور العشرية وهذه هي المشكله ؟

هذا مثال 2003 

Database5.rar

انا ليس لدي نسخة اكسس 2003 لكن شاهد هذا الرابط 

https://www.youtube.com/watch?v=r1i-hFCn0O4

شاهد هذا المرفق , هل هذا ما تقصد

Database3.rar

الخطأ لديك وليس في حل الاستاذ رضوان . 

تفضل هذا التعديل .

SELECT products.totall, Nz([Expr2])-Nz([Expr1]) AS balance, products.product_code, Nz([SumOfquantity_in],0) AS Expr2, Nz([Expr3]) AS Expr1, products.product_name
FROM (products LEFT JOIN sub_balancein ON products.product_name = sub_balancein.product_name) LEFT JOIN sub_balanceout ON products.product_name = sub_balanceout.product_name;

store122.rar

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