عبد الله قدور

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

ارفع الملف على google drive مثلا وارجوا منك ان يكون شرحك اوضح من ذلك وانا بالانتظارك

http://www.officena.net/ib/topic/61446-برنامج-محاسبة-accurate-من-تصميمي/#comment-396473 السلام عليكم في الفاتورة وتعديلها لا انصحك باستخدام استعلام تحديث لانه قد يكون التعديل هو حذف سطر من الفاتورة او اضافة سطر واستعلام تحديث لا يمكنه اضافة سطر او حذفه وهذا يعني يجب عليك استخدام استعلام حذف ثم استعلام الحاق مرة اخرى اما بشان الاستعلامات فراجع الرابط التالي وحمل البرنامج ففيه استعلامات الحاق وحذف وتحديث بما يكفي وستجد امثلة جيدة لما تريد

السلام عليكم تفضل اخي عمر الجهاز.rar

السلام عليكم اخي الكريم هذا كود التفقيط ضعه في وحدة نمطية واستدعيه ضمن مربع النص Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim MyNo As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then MyNo = Mid$(GetNo, i + 1, 3) Else MyNo = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(MyNo, 1, 3)) > 0 Then RdNo = Mid$(MyNo, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(MyNo, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(MyNo, 2, 1) My10 = MyArry2(RdNo) If Mid$(MyNo, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(MyNo, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(MyNo, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNo, 1, 1)) > 0) And ((Mid$(MyNo, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNo, 3, 1)) > 0) And ((Mid$(MyNo, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(MyNo, 3, 1)) = 1) And ((Mid$(MyNo, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(MyNo, 3, 1)) = 2) And ((Mid$(MyNo, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(MyNo, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(MyNo, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(MyNo, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(MyNo, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function

السلام عليكم قمت بتغير مصدر النموذج الى الاستعلام بدل الجدول عمر الجهاز.rar

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

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

توكل على الله بداية جيدة

حبيب الظاهر من الحوار انك مبتدئ اكسس يا اخي اقول لك استنادا لخبرتي لا يمكن للحقل id ان يكون هو المميز للجدول لان حقل المميز يجب ان يحوي على معلومة واحدة ثابتة لا تتغير ممكن ان تكون اسم النموذج او اسم الجدول ولا يمكن ان تكون متغيرة هذا رأيي وطلبك صعب التحقق الى درجة الاستحالة وامامك عدة حلول اخرى لكن انت لا تريد ان تراها اقترحها عليك كثير من الاعضاء وسأعيد عليك بعضها 1- اضافة العمود 2- دمج الجداول الثلاثة بجدول واحد وتمييز البيانات بينهم بعمود جديد يضاف ايضا ان اردت طيب ممكن تشرح لنا لماذا تريد استخدام ثلاثة جداول متشابهة لا فرق بينهم بدل من جدول وترفض اضافة العمود يعني ما الفكرة التي تريد الوصول اليها وتمنع الاضافات او دمج الجداول

هذا التمييز لا يفي بالغرض بدليل اذا صارت بيانات الجدول الثاني اكثر من عشرة كيف سيصبح رقم id سيصبح 21 - 22 - 23 وهنا اصبح مشابها الى الجدول الثالث

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

لم افهم ماذا تقصد هل تريد مني ان اطبق ما قلت انا على مرفقك ام ماذا

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

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

تمام لا يوجد مشكلة بامكانك فعل ذلك استنادا على العمر الذي سينتتج من الوحدة النمطية أما بشأن الاسم فأنا عبد الله ولست مصطفى وجزاك الله كل خير

لحساب عمر الجهاز هي حساب الفرق بين تاريخين ضع هذا الكود في وحدة نمطية ثم استخدمه في مربع نص ضمن النموذج المطلوب وسيعطيك عمر الجهاز بالسنة والشهر واليوم طبعا الحساب سيكون من تاريخ بدء العمل الى تاريخ اليوم Function dat(bir As Date) If IsNull(bir) = True Then dat = Format("00", "00") & "-" & Format("00", "00") & "-" & Format("00", "00") Else Dim nday As Integer, nmon As Integer, nyea As Integer Dim bday As Integer, bmon As Integer, byea As Integer bday = Day(bir) bmon = Month(bir) byea = Year(bir) nday = Day(Date) nmon = Month(Date) nyea = Year(Date) If bday > nday Then nday = nday + 30 nmon = nmon - 1 End If If bmon > nmon Then nmon = nmon + 12 nyea = nyea - 1 End If Dim dd, mm, yy dd = nday - bday mm = nmon - bmon yy = nyea - byea dat = Format(yy, "00") & "-" & Format(mm, "00") & "-" & Format(dd, "00") End If End Function

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

السلام عليكم ارفق مثال للتعديل عليه

السلام عليكم اخي الكريم تأكد من حجم عناصر النموذج بحيث يجب ان لا يكون اي عنصر على طرف النموذج ثم انتبه لخاصية اتجاه النموذج يمين أو يسار

ابحث عن هذا الموضوع في المنتدى ففيه كثير من المشاركات بهذا الموضوع لا تأكل هم أنا شايف تمام وبما أني شايفك فالكل شايفك

يقصد بكلمة تكويد على ما اظن هو بناء الجداول و تسجيل الاجهزة داخلها أما اذا كنت تقصدني بالشكر - ولا داعي له - فانا عبد الله ولست مصطفى

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

تفضل اخي ان شاء الله مشي الحال جميع الاجهزة.rar

لو ترفق مثال للتعديل عليه