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

برنامج المحاسبه الماليه برنامج محاسبي يصلح للشركات الصغيره و المتوسطه لا يحتاج البرنامج الي خبير حسابات يسهل التعامل مع البرنام الاصدار الاول البرنامج باللغه العربيه برنامج محاسبي مجاني مصصم بالاكسيس تسجيل قيود اليوميه بكل سهوله واعداد دفتر الاستاذ اعداد ميزان المراجعه اعداد قيود التسويه اعداد قائمه الدخل و الميزانيه العموميه اعداد قائمه التدفقات النقديه اعداد كافه التقارير المحاسبيه يمكن التعديل علي البرنامج و تطويره رابط التحميل http:// http://activeterium.com/BhBv برنامج+المحاسبة+المالية.rar

السلام عليكم ورحمة الله وبركاته فى استعراضى لطرح موضوع ورشة العمل لبرنامج الارشفة الاليكترونية تحدث هن وضع القاعدة الحلفية على جهاز محدد على الشبكة سيكون بمسابة السيرفر لباقى الاجهزة كنت اهتم بجلب الوقت والتاريخ منه منعا للاخطاء الغير مقصودة او حتى التلاعب عن عمد وقت ادهال البيانات بهذا الوضع فكرت اننا سنواجه مشكلتين بقثد الاتصال - عند فقد الاتصال لاى سبب واقصد الشبكة المحليةوليس الانترنت اولا لن نستطيع جلب الوقت وهنا يحدث مشكلة -وقطعا عدم القدرى على معالجة البيانات اعتقد فى وهنا قطعا مع هذه المشاكل يحدث انهيار تام لقاعدة البيانات الحمد للع هدانى الله تعالى الى هذا الحل بهذة الافكار لتفادى كل ذلك رجاء لتجربة المرفق تسجيل رقم ip اولا فى الجدول انتظر تجربتكم ان شاء الله ورارئكم طبعا قد تكون هناك اقكار افضل وطرق اسهل ولكن اشارككم ثمار افكارى واسعد بنقضكم التحقق من الاتصال بالشبكة(001).rar

السلام عليكم ورحمة الله وبركاته اللي يعتقد بأننا نستخدم الاكسس في الحسابات فقط ، فاليلقي نظرة على برنامج القافية هذا برنامج عملته في 2007 ، لإختيار الكلمات من بين حوالي 618 الف كلمة ، لأعمل قافية لأبيات الشعر الواجهة: 1. اكتب الحرف/الحروف التي تريد ان تكون عليها القافية (اي ان تنتهي الكلمة بهذا الحرف/الحروف) ، 2. اكتب الحرف/الحروف التي تبدأ الكلمة بهذا ، 8. كلمات البحث في #1 و #2 تظهر هنا ، 3. عند كتابة الحروف في #1 او #2 ، فالبحث يكون عن طريق هذا الزر ، (وتستطيع الكتابة في #1 او #2 ، و رقم 4) ، 4. اكتب الكلمة التي تريدها ، وستظهر لك الكلمات المرادفه لها ، 5. للبحث للرقم 4 ، 9. كلمات البحث في #4 تظهر هنا ، 6. لحذف جميع كلمات البحث ، بالاضافة الى انه يمكن النقر مرتين على #1 او #2 او #4 لحذف الكلمة/الحرف/الحروف من الحقل ، 7. نريد ان نختار من الكلمات الموجودة في #8 ، فننقر على #7 لحفظها مؤقتا في نموذج جديد . البحث في الكلمات التي تنتهي بالحروف ليل . وعند النقر على الزر A فتنتقل الكلمة الى النموذج هذا . البحث في الكلمات التي تبدأ بالحروف خل . البحث عن الكلمات المرادفة لكلمة شجاع . البحث عن الكلمات المرادفة لكلمة شجاع ، والتي تنتهي بالحرف ت . وعند الانتهاء من اختيار الكلمات ، وعند النقر على زر Copy to Notepad ، سيتم حفظها في ملف باسم Poem.txt في نفس مجلد البرنامج ، . المربع الاحمر: الكلمات في النموذج اعلاه يتم البحث عنها في الحقل #2 ، وإظهار نتائج الحقل #1 ، ومعاني الكلمات موجودة في الحقل #3 ، المربع الازرق: الكلمة في #4 هي عكس الكلمة في الحقل #2 ، والحقل #5 فيه معنى هذه الكلمة . بدأت بأخذ كلمات القرآن الكريم ، ثم بكسر الحماية من ملف الكلمات/القاموس في برنامج Ms Word واخذ كلماته ، فأصبح عندي حوالي 48 الف كلمة ، ولكن لم تكن الكلمات كاملة ، فأنزلت من الانترنت جميع القواميس العربية ومعانيها ، وادخلتها جميعا في البرنامج ، فوصل عدد الكلمات الى حوالي 618 الف كلمة ، عملت عدة كودات (والتي تركتها في البرنامج للذي يريد ان يستفيد منها) لتصفية الكلمات و اكواد اخرى للتعامل مع MS Word ، حيث ارسل الكلمة للوورد ، ثم آخذ المعاني منها ، وكذلك لمعرفة مقلوب الكلمة ، اذا كان لها معنى ، وإلا فلم اكتب الكلمة. ارجوا ان تستفيدوا من البرنامج ، مثل ما انا استفدت منه يوما ما ونظرا لكبر حجم البرنامج ، فهو موجود في الرابط التالي: جعفر

لا يمكن التوسيط ، وانما يمكن محاذاته جهة اليمين : . جعفر

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

تفضل اعمل استعلام الحاقي بهذه القيم : . والنتيجة . والآن في الجدول Marj3 يمكنك ادخال - . جعفر

اعتذر منك اخ محمد كنت وضعت رقم الايبي خطأ بعد التصحيح اصبح يعمل بلا مشاكل ::بالتوفيق::

بعد النظر في الملف ، عندك مجلد خارجي فيه ملفات PDF وتريد تعرض الملف حسب رقمه ، بعد النقر على List1 🙂 النتيجة ، وبدون الاكروبات ومكتباتها 🙂 . نستخدم IE WebBrowser ، والموجود على كل كمبيوتر ، وبدون اضافة ملفات 🙂 وهذا كود العرض: Option Compare Database Dim web As Object Private Sub Form_Load() 'On Error GoTo err_Form_Load DoCmd.Maximize 'specify that the browser is an object in the Form Set web = Me.WebBrowser_PDF.Object 'give the initial web page name web.Navigate "about:blank" 'don't show web page errors web.Silent = True Exit Sub Err_Form_Load: If Err.Number = 2447 Then MsgBox "Please Enter a Site Name for starting this Page" Exit Sub End If Resume Next End Sub Private Sub List1_Click() 'تحديد مسار الملف StrFileParh = CurrentProject.Path & "\booksindex\" web.Navigate StrFileParh & Me.List1 & ".pdf" web.Visible = True End Sub جعفر 1032.db2.zip

الارقام مخزنة كنص وليس كرقم لذلك يحدث الخطأ اختر الخلية ثم من مربع الاخطاء اختر تغير كرقم Book2.xlsx

الملف تمام ويعمل معى بدون اية أخطاء

وعليكم السلام اخوي علي 🙂 @علي هندسة على حدث بعد التحديث ، اكتب احد هذه الاسطر لعرض قيمة العمود الاول me.text6 = me.list1.column(0) لعرض قيمة العمود الثاني me.text6 = me.list1.column(1) لعرض قيمة العمود الثالث me.text6 = me.list1.column(2) جعفر

وعليكم السلام - اهلا بك في المنتدى كيف تتم المساعدة من صورة لابد من رفع الملف نفسه لكى تكتمل مشاركتك وتتم المساعدة ان شاء الله

جزانا واياكم ان شاء الله لكم اسمح لي حضرتك جربت المرفق ؟

انا مازلت باحاول شوفي ده ممكن تستفيدي منه VBA_lessons.rar

السلام عليكم 🙂 1. هذه الرسائل ذو اهمية لعمل البرنامج ، واذا ظهرت مثل هذه الرسالة ، فهذا معناه ان المبرمج اخطأ في شيء ما في الكود ، ويجب علاجة وعدم تجاهله !! رسالتك تقول بأن البرنامج يحتاج الى الحقل cmd_edara_N في عمله ، يعني ان الكود فيه هذا الحقل ، ولكن البرنامج لم يستطع الحصول عليه في النموذج !! فالطريقة الصحيحة في عمل زر البحث او زر فتح تقرير يعتمد على هذه الحقول التي في النموذج هي ، ان لا نعتمد على ان مستخدم البرنامج سوف يُدخل البيانات في هذه الحقول لذلك ، يجب علينا ان نتحقق من ادخال البيانات ، هكذا: Private Sub cmd_Print_Preview_Click() On Error GoTo err_cmd_Print_Preview_Click if len(me.cmd_edara_N & "")=0 then msgbox "رجاء اختيار الإدارة من القائمة" me.cmd_edara_N.setfocus exit sub elseif len(me.Date_From & "")=0 then msgbox "رجاء ادخال قيمة في حقل: تاريخ_من" me.Date_From.setfocus exit sub elseif len(me.Date_To & "")=0 then msgbox "رجاء ادخال قيمة في حقل: تاريخ_الى" me.Date_To.setfocus exit sub endif Dim stDocName As String stDocName = "rpt_Monthly" DoCmd.OpenReport stDocName, acViewPreview Exit_cmd_Print_Preview_Click: Exit Sub err_cmd_Print_Preview_Click: if err.number=2465 then msgbox "هناك احد الحقول فارغة، والتي يحتاج الى قيمته الكود، رجاء تعبئتها ثم النقر على الزر مرة اخرى" Resume Exit_cmd_Print_Preview_Click elseIf Err.Number = 3070 Then MsgBox "احد الحقول مصدر بياناته غير صحيح" Resume Exit_cmd_Print_Preview_Click Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . وهنا مثال آخر . 2. عند وضع رقم الخطأ في نهاية الكود ، فاننا نتحكم في الرسالة التي نريد ان نجعل المستخدم يراها (لاحظ السطر if err.number = 2465 والاسطر التي تليه) ويمكنك ايضا اصطياد الخطأ بهذه الطريقة: . وفي حالات قليلة ، وجدا ضيقة (مثل زر للإنتقال الى السجل السابق او التالي) نستعمل on error resume next ، والتي معناها لا تجعلني ارى اي رسالة خطأ ، ولكن في حالتنا ، واذا لم نرى رسالة الخطأ ، فلن نعرف لماذا برنامجنا لا يعطي النتائج الصحيحة ، او حتى لماذا لا يفتح التقرير !! جعفر

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

بسبب صعوبة حصول الاعضاء على البرنامج من رابط الرفع ، تم اضافة المرفق الى الموضوع الاصل 🙂 جعفر

جزاك الله خير الجزاء والعفو منك يالغالي

همممم الكل انشغل بالرابط ، ونسيتوا المجهود في عمل البرنامج !! اخي @aaaamido ، اصالة عن نفسي ، ونيابة عن جميع الشباب اللي شاركوا في الموضوع ، احب ان اشكرك على هذا المجهود وهذه الهدية 🙂 ومن جانبي ، فقد اعطيتك Like 🙂 جعفر

اتفضل PasswordTest.accdb

السلام عليكم 🙂 وبعد ملاحقة الرابط الى آخر الى آخر الى آخر الى آخر الى آخر الى آخر الى ... ، ومحاربة مضاد الفيروسات على كمبيوتري مع هذه الصفحات والتي تحاول زرع برامج خبيثة عليه ، اليكم الرابط الاخير لتحميل البرنامج: https://www.file-up.org/azot1x4brsec جعفر ملاحظة: بسبب صعوبة حصول الاعضاء على البرنامج من رابط الرفع ، تم اضافة المرفق الى الموضوع الاصل 🙂

السلام عليكم 🙂 في الماضي كان عندنا معيار واحد فقط (التاريخ) ، بينما الآن اصبح عندنا معيارين (التاريخ و الادارة) ، وهذا اخذ مني اكثر من يومين للوصول اليه !! على العموم ، نظّفت الكود بطريقة اخرى ، والعرض اصبح الآن يأخذ الصفحة كاملة ، وعلى اساسه يعمل عرض الحقول 🙂 وهذا الكود كاملا: Private Sub Report_Open(Cancel As Integer) Dim ctrl As Control Dim A As Integer Dim Empty_Cells As Integer Dim Full_Cells As Integer Dim W As Integer Dim myWhere As String Dim rpt_width As Integer Dim Full_Date As Date Dim D As Integer Dim Y As Integer Dim M As Integer 'W = 2200 / 4 'field width Empty_Cells = 0 Full_Cells = 0 'the name rpt_width = 0 Y = Forms!Report!iYear 'year M = Forms!Report!iMonth 'month 'lets fit/expand the controld based on the avaible width 'how many Full_Cells For D = 1 To 31 Full_Date = DateSerial(Y, M, D) myWhere = "[edara]='" & Forms!Report!cmd_edara_N & "'" myWhere = myWhere & " And " myWhere = myWhere & "[zeiara_date]=" & DateFormat(Full_Date) A = DCount("*", "zeara", myWhere) If A <> 0 Then Full_Cells = Full_Cells + 1 End If Next D W = Me.Width - (Me.Printer.LeftMargin + Me.Printer.RightMargin + Me("mogh_name").Width) W = W / (Full_Cells - 1) For D = 1 To 31 Full_Date = DateSerial(Y, M, D) 'the field Names from the Crosstab query 'check if this field exists int the table myWhere = "[edara]='" & Forms!Report!cmd_edara_N & "'" myWhere = myWhere & " And " myWhere = myWhere & "[zeiara_date]=" & DateFormat(Full_Date) A = DCount("*", "zeara", myWhere) If A = 0 Then 'field dose not exist Me("txt_" & D).Width = 0 'trim field size to Zero Me("txt_" & D).Visible = False 'make the field invisible Me("txt_" & D).ControlSource = "" 'remove the Control Source Me("lbl_" & D).Width = 0 'trim label size to Zero Me("lbl_" & D).Visible = False 'make the label invisible Empty_Cells = Empty_Cells + 1 'Debug.Print "Off " & Me("txt_" & D).Name & vbTab & "D:" & D & vbTab & "Full:" & Full_Date & vbTab & "A:" & A Else 'field exists Me("txt_" & D).Width = 1 * W 'set the field width Me("txt_" & D).Visible = True 'make the field visible Me("txt_" & D).ControlSource = Full_Date Me("lbl_" & D).Width = 1 * W 'set the label width Me("lbl_" & D).Visible = True 'make the label visible Me("lbl_" & D).Caption = D & "/" & M 'give the label, a caption Full_Cells = Full_Cells + 1 rpt_width = rpt_width + Me("txt_" & D).Width 'add the width 'Debug.Print "ON " & Me("txt_" & D).Name & vbTab & "D:" & D & vbTab & "Full:" & Full_Date & vbTab & "A:" & A End If Next D Me.Width = rpt_width + Me("mogh_name").Width 'the final Report width End Sub جعفر 1030.rpt_Monthly_Crosstaby.mdb

قبل ان تتقدم في مشروعك وتصل الى نقطة اللاعودة اقدم لك بعض الملاحظات اولا حاول اعادة تصميم الجداول وعمل علاقات بينها ثانيا اكتب اسماء الحقول باللغة الانجليزية فهي اسهل في كتابة الاكواد تفضل هدا ما جال في خاطري عساه يحقق تطلعاتك =[الصنف].[column](1) & " " & [المنشأ].[column](1) & " " & [الجرام] & " ج" & [المقاس] & " " & " سم" sum (3).rar

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

ثانيا تطبيق الفكرة داخل الاستعلام نحتاج الى صنع وحدة نمطية عامة تقوم بالعمليات المشروطة السابقة ومن ثم نقوم بتوظيفها داخل الاستعلام وما يهمنا هنا هو الحقل الرابع والذي هو حقل اسم العائلة اما الحقل الاول فقد تمكنا منه من خلال اول مشاركة وستكون الوحدة النمطية على هذا الترتيب Public Function qsplit4(FullName As String) On Error Resume Next Dim x As Integer x = Len(FullName) - Len(Replace(FullName, " ", "")) qsplit4 = Split(FullName, " ")(x) End Function تجزئة النص في الاستعلام حسب التحديد.rar

مع التحية للأخ السائل قليلا من البحث فقد تجد فوائد اكثر http://www.officena.net/ib/index.php?showtopic=53409#entry335679

تفضل واسف على التاخير تم عمل دالة خاصة باسم ramhan وباستخدام دالة split لتحويل النص لمصفوفة ثم استخدام فهرس موقع النص بالمصفوفة بالتوفيق db2.rar

وإياك اخي الحبيب في وحدة نمطية عامة نلصق الجملة البرمجية التالية : Public Function qsplit(FullName As String, i As Integer) On Error Resume Next qsplit = Split(FullName, " ")(i) End Function لاحظ اننا انشأنا دالة جديدة بناء على الدالة الاصلية وجعلنا لها اسما قريبا من الدالة الاصلية حتى يتم التعرف عليها وعلى عملها من اول نظرة ولاحظ ايضا ما حدث لوسائط الدالة الاصلية وترتيبها حيث سيتم توظيف الدالة الجديدة داخل الاستعلام على النحو التالي : name1 : qsplit(FullName; 0) name2 : qsplit(FullName; 1) name3 : qsplit(FullName; 2) name4 : qsplit(FullName; 3) وفي المثال تطبيق للشرح والمقال : تجزئة النص.rar

أخي العزيز ابا لميس تفقدتك فلم اجدك في المنتدى، ، فإرتأيت طرح الحل إختصاراً لوقتك وتحقيقيا لحاجتك كان الأصل عندي حل الامر عبر كود برمجي ولكنني رأيت سلوك الطريق الطويل الواضح حتي تصلك الفكرة بهدوء ثم تتولى انت كتابة الكود كما تشاء الاستعلام tblNameAct Query الاستعلام Query2 الاستعلام Query3 التقرير RepQ3 فإن كنت قد أحسنت الفهم عنك ، يكون مرادك قد تحقق .... وكفي والله من وراء القصد ... وهو حسبي NA_Horizontal_Split&Rep.rar

تكرم عينك اخي ابوخليل ولكن في البداية لابد من التوضيح بان هذه الدالة استقيتها من مثال اجنبي ولا اريد ان اسند لنفسي فضل ليس لي ولكن من بساطتها يمكن فهمها بسهولة... والان الى الشرح Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1) هذا سطر تعريف الدالة ومتغيراتها والتي تتمثل في اسم الجدول او الاستعلام , اسم الحقل المراد التجميع بحسبه , اسم الحقل الذي سيتم تجميعه , اسم الحقل الذي سيرتبط به حقل التجميع (وأعتقدانه يمكن فهمها اكثر من واقع المثال) Dim DB As Database, rs As Recordset Set DB = CurrentDb هنا يتم تعريف متغيرين الأول من نوع Database أي قاعدة بيانات (وجعلناها قاعدة البيانات الحالية التي نعمل بها) والثاني rs من نوع Recordset وهذا النوع من المتغيرات وبشكل مبسط يمكن تعريفه كأنه جدول أو إستعلام Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _ & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2) هنا اسندنا للمتغير rs جملة SQL التي تمثل مصدر بياناته Do If rs.AbsolutePosition = rs.BOF Then هذه بداية الحلقة التكرارية التي ستتنقل بين سجلات الـ Recordset ثم تقوم جملة IF هنا بإختبار ما إذا كان موقع السجل الحالي (AbsolutePosition) في بداية (BOF) الـ Recordset Horizontal = rs(Feld2) عندها يجعل النتيجة تمثل قيمة الحقل المجمع Else Horizontal = Horizontal & ", " & rs(Feld2) End If وإلا تكون النتيجة هي قيم الحقل المجمع في السجلات السابقة مضافاً اليها الفاصلة (ويمكن تعديلها بما تشاء) ثم قيمة الحقل المجمع للسجل الحالي rs.MoveNext الإنتقال للسجل التالي Loop Until rs.EOF إختبار ما إذا وصلت الحلقة التكرارية إلى آخر سجل (EOF) في الـ Recordset rs.Close DB.Close Set rs = Nothing Set DB = Nothing End Function عندها يتم إغلاق الـ Recordset و الـ DB وتصفية الذاكرة من أي قيم محفوظة فيها وإنهاء الدالة هذا شرح مبسط فأرجو أن يكون واضح تحياتي,,,

بعد اذن الاخ nart lebzo تفضل اخي مثالك بعد التعديل تحياتي,,, base.rar