نجوم المشاركات

كل عام وانت ب 1000 خير عيد مبارك كل عام وانت ب 1000 خير عيد مبارك كل عام وانت ب 1000 خير عيد مبارك كل عام وانت ب 1000 خير عيد مبارك كل عام وانت ب 1000 خير عيد مبارك

السلام عليكم وكل عام وانتم بخير اخي الكريم ان كنت تقصد القيود اليومية التي نثبت فيها الحركات المالية فاسشرح لك جزءا بسيطا منها 1- القيود المحاسبية هي علاقة قائمة على وجود طرفين على الاقل ولا يمكن ان يكون هناك قيد بطرف واحد 2- القيد المحاسبي يجب ان يكون متوازن بحيث قيمة الطرف الايمن مساوية لقيمة الطرف الايسر 3-يمكن ان يكون القيد المحاسبي مركب بحيث يكون في الطرف اليمين اكثر من طرف وفي اليسار اكثر من طرف 4- الحساب الذي يمثل المبلغ الموجود عندك اسمه الصندوق 5- الحسابات المستخدمة في القيود يجب ان تكون موجودة في شجرة الحسابات للطلاع على شجرة الحسابات راجع الرابط التالي من هنا مثال عما سبق أ - اشترى التاجر احمد بضاعة من التاجر خالد نقدا بقيمة 50000 يكون القيد على الشكل التالي 50000 من ح/ المشتريات 50000 إلى ح/ الصندوق الشرح : شراء بضاعة نقدا ب - اشترى التاجر احمد بضاعة من خالد بقيمة 20000 على ان يسدد قيمتها بعد اسبوع يكون القيد على الشكل التالي 20000 من ح/ مشتريات 20000 الى ح/ خالد الشرح : شراء بضاعة من خالد بالاجل وعند تسديد القيمة البضاعة يكون القيد على الشكل التالي 20000 من ح/ خالد 20000 الى ح/ الصندوق ج - باع التاجر احمد بضاعة نقدا بقيمة 25000 القيد 25000 من ح/ الصندوق 25000 الى ح/ المبيعات د- دفع التاجر احمد مصاريف نقل بضاعة 2000 و مصاريف تحميل 1000 (مثال عند القيد المركب) 2000 من ح/ مصاريف نقل بضاعة 1000 من ح/ مصاريف تحميل 3000 إلى ح/ الصندوق

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

اولا احب ان اشكر كل اعضاء و مشرفى هذا المنتدى العظيم الذى تعلمت و لازلت اتعلم منه الكثير و الكثير و اليوم اقدم الى الجميع برنامج المخزون الشامل حيث قد طلب منى احد الاصدقاء برنامج لضبط حركه مخزون شركته وهى شركه مستحضرات تجميل فقد قمت بعمل هذا البرنامج الذى يصلح لكل انواع المخزون مع بعض التعديلات البسيطه نبذه صغيره عن البرنامج 1-برنامج يحتوى على صفحه فواتير المبيعات و المشتريات و المرتجعات 2-و يحتوى على صفحه كشف حسب العملاء التى توضح المدفوع و المستحق خلال فترات معينه 3- صفحه التقارير وتضم حركه الاصناف حركه الفواتير وتقرير شامل بالمبيعات و المشتريات خلال اى فتره انت تحددها 4- كما يمكنك ادخال اى سند سواء كان صرف او قبض من خلال فورم ادخال السندات 5- حركه المخزون و التى توضح الربح و الخساره لكل صنف على حده و المزيد و المزيد من المزايا الاخرى التى سوف تكتشفها بنفسك ملاحظات تم عمل البرنامج على اكسيل2010 وتم تجربته بنجاح على اكسيل 2010 الرقم السرى للدخول الى البرنامج هو 123 وانصح جميع الاخوه الذين يجربون البرنامج ان يتم تجريبه على نفس الاصدار تجنبا لحدوث اى مشاكل تم رفع البرنامج على موقع الميديا فير حيث ان حجم البرنامج 2 ميجا بايت كما ارحب براى الاخوه و الخبراء فى البرنامج سواء كان نصيحه او نقد او معلومه جديده كما انوه باننى جاهز لاى استفسار او تعديل لهذا البرنامج لمن يريد على حسب طبيعه عمله و على حسب وفت فراغى و اخيرا اشكر كل اعضاء ومشرفى هذا الصرح العظيم الذى تعلمت منه التحميل من الرابط التالى http://www.mediafire.com/file/u34hp2c38h6slc7/برنامج المخزون الشامل.rar برنامج المخزون الشامل.rar

تفضل جرب المرفق بالصور xlsxطلب مساعدة1.rar

اليك المرفق xlsxطلب مساعدة (1).rar

تحديث جديد للتطبيق SQL1-2.rar

وانت بالف الف خير و اعاده الله على الجميع بالخير و البركة جاري النظر بالموضوع اخي الكريم ارجو منك مراسلتي على الخاص لاني حاولت ولم تكن رسائلي تصلك

ولا اروع

إذا فكرنا في ورقة البيات على أنها استعلام جدولي فنحن بحاجة إلى أخراج البيانات الوسطية وتسميتها في عامود بيانات مستقل وليكن (سعر الخدمة)، وحل رؤوس الأعمدة وتسميتها في عامود بيانات وليكن (رقم العربة) وعلى هذا تصبح بيانات الجدول الجديد (رقم العربة، تاريخ الخدمة، سعر الخدمة)... نقوم بإنشاء الجدول ثم نقوم بتشغيل الشفرة التالية لإلحاق البيانات بالجدول Sub UpendDataToTable() Dim RS As Recordset CurrentDb.Execute "Delete * From [Vehicle Services]" Set RS = CurrentDb.OpenRecordset("Sheet1") For i = 1 To RS.Fields.Count - 1 CurrentDb.Execute "Insert into [Vehicle Services]([Service Date],[Service Price], [Vehicle Number])" _ & "Select [Service Date],format([" & RS(i).Name & "],'Standard') As [Sevice Price],'" & RS(i).Name & "' AS [Vehicle Number] From Sheet1" Next End Sub وهذه الشفرة لجلب البيانات من أكسل مباشرة إلى الجدول الجديد Sub FetchExcelDataSheet(BookName, SheetName) Dim RS As Recordset Dim dbType dbType = "[EXCEL 12.0;HDR=YES;]" BookName = CurrentProject.Path & "\" & BookName SheetName = "[" & SheetName & "$]" CurrentDb.Execute "Delete * From [Vehicle Services]" Set RS = CurrentDb.OpenRecordset("Sheet1") For i = 1 To RS.Fields.Count - 1 CurrentDb.Execute "Insert into [Vehicle Services]([Service Date],[Service Price], [Vehicle Number])" _ & "Select [Service Date],format([" & RS(i).Name & "],'Standard') As [Sevice Price],'" _ & RS(i).Name & "' AS [Vehicle Number] From " & SheetName & " in'" & BookName & "'" Next End Sub وهذا التطبيق على المثال Database19.zip

احذف هذا السطر من الكود في تقرير Private Sub PageHeaderSection_Format(Cancel As Integer, FormatCount As Integer) Rem ===كتابة عنوان في التقرير بناء على ما كتب في أمر فتح التقرير === ' Me.txt_Title = Me.OpenArgs End Sub واضف هذا الكود Private Sub Report_Load() If Forms!formteachers!OPTIONS_REPORTS = 2 Then Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááÔåÑ ( " & Forms!formteachers!COMBOX_MONTH & " ) " ElseIf Forms!formteachers!OPTIONS_REPORTS = 3 Then Me.txt_Title = "ÊÞÑíÑ Úä ãÑÊÈÇÊ ÇáãæÙÝíä ááãæÙÝ ( " & Forms!formteachers!COMBOX_TEACHER_NAME.Column(1) & " ) " End If End Sub اليك المرفق بعد تعديل معلمين.rar

تقبل الله منا و منكم صالح الأعمال إنشاء الله

تقبل الله طاعتكم ، كل عام وانتم بخير

كل عام ان شاء الله لأمة المسلمة ب 1000 خير

السلام عليكم كل عام و أنتم و الأمة الإسلامية بألف خير استعمل هذا الكود: Dim sql_search As String Dim fild_sear As String Select Case Me.fild_search Case "الموضوع" fild_sear = "Object" Case "عنوان الفائدة" fild_sear = "FaedaTitle" Case "المرجع" fild_sear = "Mraj3Name" Case "القائل" fild_sear = "KaeelName" Case "فائدة طويلة" fild_sear = "FaedaNass" Case "فائدة قصيرة" fild_sear = "FaedaNass1" Case "الكل" fild_sear = "tout" Case Else fild_sear = "Object" End Select If fild_sear = "tout" Then sql_search = "SELECT * FROM Foaid where " & "(((Object) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaTitle) LIKE ""*" & Me.iSearch & "*""))" & "Or (((KaeelName) LIKE ""*" & Me.iSearch & "*""))" & "Or (((Mraj3Name) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaNass) LIKE ""*" & Me.iSearch & "*""))" & "Or (((FaedaNass1) LIKE ""*" & Me.iSearch & "*""));" Me.RecordSource = sql_search ElseIf IsNull(Me.iSearch) Then sql_search = "SELECT * FROM Foaid" Me.RecordSource = sql_search Else sql_search = "SELECT * FROM Foaid WHERE " & fild_sear & " LIKE ""*" & Me.iSearch & "*""" Me.RecordSource = sql_search End If و هذا هو التعديل على مرفقك: البحث بالحقل.rar

كل عام وانتم احبتي واصدقائي الغالي بالف الف خير بمناسبة عيد الاضحى المبارك اعاده الله جل وعلا علينا وعليكم بالصحة والعافية يارب

تفضل Access2.rar

جميلة الفكرة وجديدة واعجبتني ويكتمل جمالها بتنفيذها تفضل هذا مثال جديد واستوردت الجدول الرئيسي مع انشاء نموذج جديد حبيت انفذ الفكرة بشكل بسيط وواضح خطوات او فكرة الحل : - انشاء مربعات نص بنفس مقاس مربعات السرد - انشاء تعبير بداخل كل مربع لجلب القيم المطلوبة من مربعات السرد - وضع خاصية التاق للمربعات المراد اظهارها واخفاؤها وباسم "aa" اذهب الى خصائص المربع ثم غير ذلك ثم خاصية العلامة - وضع كود يلف على اي عنصر تتوفر فيه الخاصية علامة= aa فيقوم باخفائها في حالة الاضافة او التعديل واظهارها في البحث سؤال : هل هذا شبيه بالذي رايته في احد البرامج كما ذكرت ؟ بالتوفيق New Microsoft Access Database (6).rar