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

احبائي اعضاء المنتدى اوفيسنا السلام عليكم ورحمة الله وبركاته في هذه الاونة الاخيرة اشوف ان كثير من احبائنا بيسئلون عن ضغط و اصلاح و نسخ الاحتياطية لذلك قمت بدمج موضوعين واحد للسيد @أبو إبراهيم الغامدي والسيد @أ / محمد صالح وتم اضافة ملح و و بهارات شوية واهديكم ....... الى الموضوع هناك نموذجين بداخل القاعدة واحد اسمه Frm1 والاخر Form1 وفي نموذج Form1 هناك زرين الاول كتبت عليه ( قم بعمل كومباكت و نسخة احتياطية عند الاغلاق ) اي اذا ضغطت علي و في النهاية قمت باغلاق القاعدة اولا سيعمل نسخة احتياطية و بعدين سيعمل كومباكت اي ضغط و اصلاح القاعدة -------- اما الزر الثاني انا كتبت عليه ( الغي عمل كومباكت و نسخة احتياطية عند الاغلاق ) اي اذا ضغطت على الزر الاول وبعدين غيرت رأيك بعمل نسخة احتياطية او عمل كومباكت اي ضغط واصلاح القاعدة تقدر ان تضغط اليه واذا اغلقت القاعدة ما بيعمل كمباكت و نسخة الاحتياطية واستخدمنا هذه الاكواد في وحدة نمطية Option Compare Database Dim F As New Form_Frm1 Public Function Startup() On Error Resume Next F.OnClose = "=BackUpMyDb()" & "=CopactMyDb()" End Function Public Function CnacelStartup() On Error Resume Next F.OnClose = "" End Function Public Function BackUpMyDb() Dim MyPath As String, math1 As String, math2 As String math1 = CurrentProject.Path math2 = math1 & "\MyProg" MyPath = math2 & "\BackUpSaved" On Error GoTo MyErr Dim OldFile, DBwithEXT, DBwithoutEXT, NewFile, CopyMyDB, TypeApp OldFile = CurrentDb.Name DBwithEXT = Dir(OldFile) If Right(DBwithEXT, 5) = "accdb" Then DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 6) TypeApp = ".Accdb" ElseIf Right(DBwithEXT, 3) = "Mdb" Then DBwithoutEXT = Left(DBwithEXT, Len(DBwithEXT) - 4) TypeApp = ".Mdb" End If If Dir(math2, vbDirectory) = "" Then MkDir math2 If Dir(MyPath, vbDirectory) = "" Then MkDir MyPath NewFile = MyPath & "\" & DBwithoutEXT & "-" & Format(Now, "yyyy-mm-dd-Hh-Nn-Ss") & TypeApp CopyMyDB = "cmd.exe /C copy " & """" & OldFile & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0 MyErr: If Err.Number <> 0 Then MsgBox Err.Number & " - " & Err.Description End If End Function Public Function compactDb(ByVal mydb As String, ByVal mypass As String, Optional openIt As Boolean = False) Dim F As Integer Dim filenoext As String, extension As String, Access As String Access = """" & SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE""" filenoext = Left(mydb, InStrRev(mydb, ".")) extension = Right(mydb, Len(mydb) - InStrRev(mydb, ".")) F = FreeFile Open CurrentProject.Path & "\compact.bat" For Output As F 'wait until the Db closes (ldb file is gone), then compact it Print #F, "CHCP 1256" Print #F, ":checkldb1" Print #F, "if exist """ & filenoext & "l" & extension & """ goto checkldb1" Print #F, Access & " """ & mydb & """" & mypass & " /compact" If openIt Then 'wait until the Db closes, then start it Print #F, ":checkldb2" Print #F, "if exist """ & filenoext & "l" & extension & """ goto checkldb2" Print #F, Access & " """ & mydb & """" Else Print #F, "del ""%~f0""" End If Close F End Function Public Function CopactMyDb() On Error Resume Next Dim MyPath As String MyPath = CurrentProject.Path & "\" & CurrentProject.Name Call compactDb(MyPath, "", True) Shell """" & Left(MyPath, InStrRev(MyPath, "\")) & "\compact.bat""", 0 DoCmd.Quit acQuitSaveAll End Function واليكم القاعدة compactInClose.accdb

دخولك تشريف لنا .. ويوم سعد للموضوع

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

السلام عليكم أستاذنا الظاهر أن الموضوع أعجبني و سوف أدخل معكم في هذا الموضوع الشيق إذا تسمح لي أستاذنا الغالي @ابوخليل

السلام عليكم اخواني بدأت بأرشفة مواضيع أرشيف الأكسس , و هذا ماتم انجازه حتى الآن , حيث المواضيع كثيره , و سأتم العمل ان شاء الله تباعا و ليكن كل يوم عدة مواضيع مثلا , و يتم اضافتها على هذا الموضوع لحين الانتهاء , ثم نبدأ بتنقيح مواضيع المنتدى العام , و اضافة الجديد منه الى هذا الموضوع . و في حال الانتهاء كاملا من العمل يتم نشره في صفحه جديدة للأعضاء . و من يرغب من الأخوه المساعده , فليتفضل مشكورا : أولا : أرشيف الجداول دوره متكامله في تصميم جداول الأكسس مثال عملي لتحليل و تصميم النظم الوصايا السبع للمبتدئين بالأكسس أنواع العلاقات بين الجداول مع مثال عملي قناع الادخال في الأكسس تنسيقات الأرقام و أمثله عليها البحث ضمن الجدول عن القيمه المقابله في جدول آخر كيفية تحويل حقل الى مربع تحرير و سرد لعرض أكثر من قيمة فيه تعلم الأكسس من خلال 4 ملفات وورد تعلم الأكسس بالصوت و الصورة قوالب تصميم قواعد بيانات جاهزة NorthWind شرح و تحليل قاعدة البيانات الشهيرة

هل خطر على بالك ان تنشأ قائمة منسدلة متناقصة و مطاطة في نفس الوقت متناقصة: بمعنى انه اذا اخترت منها اي اسم يخرج هذا الاسم من محتوياتها وتتم كتابته في العامود المجاور في أول صف فارغ مطاطة: بمعنى انها تستجيب لاي تعديل في البيانات مع تجاهل الفراغات والتكرار الملف مرفق special_drop_down.xlsm

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

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

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

بارك الله فیك

جزاك الله

بارك الله فیك

@النهر العطشان أظن أنه لازم تروي عطشك مليح المرفق يقوم بالحفظ بشكل جيد عندي سوف أوضح لك الأمر: جهاز الباركود يقوم بإدخال الرقم ثم يقوم بإرسال نقرة على زر entre لذلك لا أظنك جربت جهاز الباركود مع البرنامج

بارك الله فيك

دائماً سباق للخير سلمت يداك

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

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

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

اجعل كود الحذف كالتالي: Dim req As String If not isnull(me.n2) or n2<> "" then req = "Delete From a_tlbia where Rjmfatwra like " & """*" & Me.n2 & "*""" DoCmd.SetWarnings False DoCmd.RunSQL req DoCmd.SetWarnings True Me.واجه_الطلبيات_مساعد.Requery End If مع العلم يحذف نتيجة البحث حتى لو كانت أكثر من سجل

تحياتي الك استاذ سليم الغالي شكرا جزيلاا

السلام عليكم اجعل كود البحث كالتالي: If Me.n2 <> "" Or Not IsNull(Me.n2) Then Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra like " & """*" & Me.n2 & "*""" Me.واجه_الطلبيات_مساعد.Form.FilterOn = True Else Me.واجه_الطلبيات_مساعد.Form.FilterOn = False End If Me.واجه_الطلبيات_مساعد.Requery Me.n2.SetFocus

وعليكم السلام بارك الله فيك وجزاك الله خير يالغالي ما قصرت ياعملاق الاكسس ممتاز جدا اسال الله العظيم ان يزيدك علما ويعطيك الصحه والعافيه الف الف شكر والشكر موصول للاستاذ ابو ياسين ما قصر الله يعيكم العافيه الحمدلله هذا هو المطلوب

السلام عليكم استخدم الدالة Dmin سوف تجد شرح مفصل لهذه الدالة هنا:

الحمدلله رب العالمين

الحمد لله الذي تتم بنعمته الصالحات موفق أخي إن شاء الله

السلام عليكم بالنسبة لكود البحث سوف يكون كالتالي: If Me.n2 <> "" Or Not IsNull(Me.n2) Then Me.واجه_الطلبيات_مساعد.Form.Filter = "Rjmfatwra='" & Me.n2 & "'" Me.واجه_الطلبيات_مساعد.Form.FilterOn = True Else Me.واجه_الطلبيات_مساعد.Form.FilterOn = False End If Me.واجه_الطلبيات_مساعد.Requery Me.n2.SetFocus و كود حذف السجل كالتالي: Dim req As String req = "Delete From a_tlbia where Rjmfatwra='" & Me.n2 & "';" DoCmd.SetWarnings False DoCmd.RunSQL req DoCmd.SetWarnings True Me.واجه_الطلبيات_مساعد.Requery و هذا المرفق بعد التعديل: حذف الطلبيه .rar

السلام عليكم آسف على التأخير أخي أبو زاهر لقد قمت بالتعديل على كود المرفق و جعلت إمكانية التحكم بسرعة تقدم الشريط في متغير وحيد اسمه vitesse_progress ادخل على المرفق و غير في كل مرة قيمة هذا المتغير و لاحظ النتيجة مثال (2).rar

بالنسبة للطلب الثاني فهو موجود في الكود الأول. و أما الطلب الأول يمكن تحقيقه بإضافة التعديل التالي على الكود: If DCount("*", "[list]", "[رقم الباركود]=" & Me.Text9) <> 0 Then MsgBox "هذه السلعة موجودة مسبقا" Exit Sub End If If DCount("*", "[Data]", "[رقم الباركود]=" & Me.Text9) > 0 Then DoCmd.GoToRecord , , acNewRec Me.رقم_الباركود = Me.Text9 Me.المادة = DLookup("[المادة]", "[Data]", "[رقم الباركود]=" & Me.Text9) Me.السعر = DLookup("[السعر]", "[Data]", "[رقم الباركود]=" & Me.Text9) Else MsgBox "هذه السلعة غير موجودة" End If Me.Requery Me.Text9 = Null Me.Text9.SetFocus test 5.rar

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

برنامج بسيط مقبوضات ومدفوعات ورصيد فكرة المهندس الرائع هاني مجدي / من الشقيقة مصر اضعه بين ايديكم للاستفادة من الافكار الواردة فيه وتستطيعون التعديل والتطوير على البرنامج حسب احتياجاكم الخزينة مقبوضات ومصروفات 2018.accdb

جزاك الله كل خير وجعله فى ميزان حسناتك

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

ابو عبدالله ... شفت المرفق الاخير ... مرفق stu.rar

بعد إذن أخي وأستاذي / مصطفى محمود مصطفى قمت بتجربت الملف ورأيته يعمل جيدًا ورأيت أن أضيف قائمة للنشاط حتى يتم اختيار النشاط منها أو كتابته كما هو مسجل الملف فلابد من اختيار الفصل واختيار النشاط ثم الضغط على زر استدعاء في كل مرة أي أنه لابد من استدعاء الفصل الواحد أكثر من مرة طالما يوجد به أكثر من نشاط ( الاختياري 1 ) تصفية حسب الفصل والنشاط.xls

كيف تختار مجموعة من الارقام العشوائية مشروطة بعدد معين و اصغر من رقم محدد مثلاً نريد 15 رقم عشوائي أصغر من( أو يساوي) 50 فقط بالمعادلات كل هذا في هذا الملف Conditional_Rand.xlsm

وانا كذلك اتفق مع اخي الاستاذ شفان اذا كان كُلٌ ولابد ، اعمل قاعدة بيانات جديدة ، استورد اليها كائنات البرنامج القديم ، ثم اعمل جعفر

اذا ماتريد ان يكون نموذجك منبثقة استخدم هذا الكود لكن اعرف هذا ليس لاخفاء خلفية اكسس بل هو للاخفاء الشريط القوائم اكسس جربه لعل يفيدك DoCmd.ShowToolbar "Ribbon", acToolbarNo

الاكسس 2010 لا يدعم اخفاء شاشة الاكسس لكن يدعم اليه جديدة اسمها ريبون Ribbon وهي خاصية اجمل واكثر كفائة من اخفاء اطار الاكسس حيث من خلال هذه الميزة تستطيع صنع ايقونات وشريط مهام خاص بك . واعتقد يوجد لدي موضوع عن ذلك . ارفق لك مثال عن هذه الخاصية . EN.rar

أخي الكريم معتز ما دام الموضوع دخل في شبكة واسعة النطاق والإنترنت يخرج الأكسس من المنافسة ويدخلها الثنائي المعروف php & mysql أو الثنائي البديل asp & sql server ولكن في هذه الحالة يستلزم الأمر معرفة ببرمجة صفحات php ولو كان التعامل مع قاعدة البيانات مجرد إضافة وعرض للسجلات فيوجد برنامج اسمه phpmaker يمكنه مساعدتك في إنشاء كود php http://www.demonoid.me/files/download/2810719/0012909387186/ ............... ولو مصرّ على الأكسس يوجد برنامج اسمه hamatchi يستخدم في عمل شبكة من خلال الإنترنت وكأنك في شبكة لان عادية http://www.filehippo.com/download_hamachi/ أتمنى أن أكون قد وضحت الأمر قليلاً