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

السلام عليكم ورحمة الله تعالى وبركاته هذا المرفق نزولا على رغبة اخ كريم Filter Utility.accdb

اعتقد ان هذا الخطأ يكون في حالة عدم وجود بيانات وليس بسبب عدم وجود ما يوافق نتيجة البحث لكون اسلوب عمل الامر FindRecord لايعود برسالة في حالة وجود او عدم وجود قيمة في السجلات تطابق ماتم البحث عنه وتظهر عادة في عدم وجود بيانات في الجدول مصدر النموذج في حالة اننا غيرنا في خصائص النموذج الى ادخال بيانات : نعم في حالة مصدر البيانات استعلام بمعيار غير متوفر في حالة تنفيذ الامر بعد تنفيذ الفلترة في حالة عدم توفر بيانات توافق معيار الفلتر ونفذنا الامر FindRecord قبل ان نلغي الفلترة في حالة فتح النموذج في وضع اضافة بيانات ⬇️ DoCmd.OpenForm "form_name", , , , acFormAdd ربما تكون هذه ابرز حالات ظهور الخطا رقم 2137 مع الامر FindRecord والله اعلم مع تأييدي لرأي الاساتذه جعفر ومحمد تحياتي

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

واقعا ، المحترفين يستخدمون Select case 🙂

تفضل المعيار متغير عام فلترة5.accdb

السلام عليكم ورحمة الله وبركاته منذ مدة وأنا أحاول بشتى الطرق والوسائل لأتعلم والحمد لله تعلمت من هذا المنتدي الكثير هو برنامج بالأساس مخصص للمطابع وتسهيل مهامهم وتيسير أمور حساباتهم في مختلف مجالات الطباعة : الكتب والمجلات والطباعة ديجيتال أو تسيير الفواتير وحتى محلات الحرفيين الذين يستخدمون ماكينات الليزر لقص الخشب وغيرهم ...... الخ سادتي الكرام اخواني الأعزاء أضع بين أيديكم هذا البرنامج رغم أنه في البداية وغير مكتمل إلا أنني وضعت فيه كثير مما تعلمته من هذا المنتدى العملاق وخاصة الأساتذة : شوقي ربيع وضاحي الغريب وخبور وعبد الله باقشير وغيرهم كثير حتى لا انسى أحد هذا البرنامج الذي آمل من أساتذتنا الكرام ان ينقحوه ويعينوننا في انجازه واخراجه بحلة تليق بمقام هذا الصرح مازال جزء الفواتير والكثير الا أنني آثرت ان ارفعه لنتعاون في اتمامه وهو مفتوح المصدر حتى لا اطيل عليكم جربو البرنامج واحكموا بانفسكم ولا تبخلوا علينا بالنصح والتوجيه والمشاركة بالتعديلات اترككم مع البرنامج اسم المستخدم : Tarek كلمة المرور : 23 عذرا الملف كبير نوعا ما لا اعرف السبب لذا رفعة على قوقل درايف ان كان هناك حل آخر نورونا اساتذتي الرابط بالاسفل مطبعتي تم رفع الملف في المنتدي بعد تصغير مساحته من 35 ميجا الي 2.8 ميجا هنا

شوف كدة ............................ طريقة ثانية ::::::::::::::::::::::: 123321.accdb

كلمة وانا بعيد عن الحاسب كفكرة ::: ممكن عمل استعلام توحيد في البداية ثم عمل استعلام تجميع والحاق للجدول الرابع

وعليكم السلام أخي أحمد 🙂 أنا اشتغلت حسب فهمي وهذي النتيجة : وعملتلك دالة تبحث عن العمود اللي يطابق الراتب اللي في السجل الأول ، ثم عن السجل اللي يطابق عدد الأبناء : Function FinedSubSalary(Salary As Double, NumOfChiledren As Integer) As Double ' Moosak Dim DB As DAO.Database Dim RS As DAO.Recordset Dim x As Integer Set DB = CurrentDb Set RS = DB.OpenRecordset("tp1") RS.MoveLast RS.MoveFirst If RS.EOF Then FinedSubSalary = 0: Exit Function For x = 1 To 110 If RS(x) = Salary Then FinedSubSalary = DLookup("[" & x & "]", "tp1", "Id=" & NumOfChiledren) 'Debug.Print x, Salary GoTo Finish: Else End If Next Finish: RS.Close Set RS = Nothing Set DB = Nothing Exit Function End Function ثم جعلت الدالة هي مصدر بيانات مربع النص (تعطيها الراتب وعدد الأبناء ) .. =FinedSubSalary([xx];[عدد الاطفال]) ثم جعلت النتيجة تتحدث كلما تم تعديل الراتب أو عدد الأبناء في النموذج . والنتيجة كما رأيت .. 🙂 Salary - Moosak.rar

وعليكم السلام 🙂 اعطينا مثال او اثنين لوسمحت 🙂 جعفر

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

السلام عليكم ورحمة الله المشكلة كانت في كيفية إنشاء بعض النطاقات بالتسمية لأن منها ما هو ثابت مثل NameD و Won (هذه يتم إنشاؤها في شيت A) ومنها ما هو متغير حسب رقم الصف مثل Note_W (التي يتم إنشاؤها حسب رقم صف الخلية المحددة في شيت D)... المهم تم تعديل كل هذا في الملف المرفق... aa3_3.rar

السلام عليكم 🙂 ومال سرعة 🙂 on error goto err_Handler DoCmd.FindRecord Me.booknamex, acEntire, False, , True, acCurrent, True .. Exit_Handler: Exit sub err_Handler: if err.number=2137 then msgbox "يا رجال حست وحست وما لقيت بو تدور عليه" resume next else msgbox err.number & vbcrlf & err.description resume Exit_Handler endif جعفر

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

طبعا سوف يتم تفادى المشكلة باستخدام هذا السطر ولكن لا احبذ استخدامه لانه سوف يتفادى اى خطا أخر غير ذلك وان كانت هناك مشكلة أخرى لن يستطيع المصم معرفة سبب المشكلة بسبب هذا السطر لذلك الافضل استخدام ErrorHandler ولذلك طلبت المرفق وعلى كل حال handler syntax error يكون بالشكل الاتى On Error GoTo ErrorHandler ' Insert code that might generate an error here Exit Sub or Exit Function ErrorHandler: ' Insert code to handle the error here Resume Next

ضع أول سطر (On Error Resume Next)

ممكن مرفق من قاعدتك لو تكرمت ؟

السلام عليكم مشاركة مع استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل هذه فكرتى المتواضعة ولكن لى سؤال يا دكتور @الحلبي ما الداعى لعمل 3 نماذج او حتى نموذجين رئيسى وفرعى بينما يمكن عمل كل شئ من خلال نموذج واحد فقط اعتذر لو اسأت الفهم وتسرعت فى الرد دون الوقوف على الية العمل المناسبة بصراحة مررت مرور الكرام ولكن حاولت تقديم المساعدة على قدر فهمى فلترة6.accdb

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

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

ربنا يبارك في حضرتك

اذهب إلى القاعده الجديده االلي اضفت فيها المحتويات افتح اي نموذج عند بوضع التصميم بعد ذلك اذهب هنا لعرض التعليمات البرمجيه بعديين اختر هنا بعدين ابحث عن المكتبه هذي واضفها

السلام عليكم بعد اذن صاحب الموضوع عملت تنسيق سريع لقاعدتك يمكنك الاستفاده منه العملاء 3.accdb

وعليكم السلام ورحمة الله وبركاته دائما معك وتم عمل المطلوب في الملف المرفق.... aa3_2.rar

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

جربت على اول مرفق لك وادخلت قريب من 15 الف سجل لأتأكد من السرعة ، تفاجأت انها اسرع من رمش العين لذا رددنا بضاعتكم اليكم ومؤكد ان الخلل عندك في برنامجك وليس المثال فلترة3.rar

ملفين لإنهاء مهمة مايكروسفت أكسس Kill_msAccess.mdb Kill_msAccess.xlsm

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

جزاكم الله خيرا وبارك الله فى عمركم

هذه مجموعة منها ..... تفضل >>>>>>>>>>>>>>>>>>>>>>>>>>

ما اعطيتني رقم الباسوورد مال الجماعة مالك علشان أشبك معاك على طول 😁 جالس أطور مشروع تحديث ال FE التلقائي ونجحت العملية ولله الحمد .. بحاول أنزله قريبا إن شاء الله .. 😊

هذا خط كوفي .. وهذا أقرب مثال وجدته للخط المكتوب عندك 🙂 https://arbfonts.com/mcs-shafa-e-u-normal-font-download.html?preview=صورة+قيد+مقفل واطلع على هذه أيضا : https://arbfonts.com/mcs-shafa-s-u-normal-font-download.html https://arbfonts.com/alawi-shafa-font-download.html https://arbfonts.com/mcs-shafa-e-i-normal-font-download.html التحميل من نفس الصفحات 🙂

ما الذي كتبته في الحقل النصي ؟ الرابط كاملا أم أسم الملف فقط ؟ إن كنت ستكتب الرابط كاملا فالتعديل سكون هكذا ؟

وعليكم السلام 🙂 يمكنك عمل التالي: 1. تصدير التقرير الاول كملف A.pdf ، 2. تصدير التقرير الثاني كملف B.pdf ، 3. استعمال هذه الاداة لدمج الملفين : . جعفر

في المشاركة السابقة تكتبه بالطريقة التي ذكرتها لك لو كنت ستضع الملف بجانب قاعدة البيانات وتكتب اسم الملف فقط في حقل النص .. أما إذا كنت ستكتب الرابط كاملا في حقل النص فتكتب الكود هكذا : adad = Me.TextBoxName

أستاذ حمدي .. غيرت لك كود الإرسال بشكل كاااااااااااامل 🙂 (الكود الآن يتجاهل المرفقات إن كان حقل المرفقات فارغا ) وهذه نتيجة الإرسال : ملاحظة مهمة جدا جدا جدا : قمت بتعديلات أخرى على الملف غير كود الإرسال ، يجب عليك تعديلها ونقلها كلها في برنامجك وليس كود الإرسال فقط وذلك لكي تعمل لديك بشكل طبيعي . ومن هذه التعديلات ما يلي : أكواد ال API في الموديول FileOpen : #If VBA7 Then Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (ofn As OPENFILENAME) As Boolean Public Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (ofn As OPENFILENAME) As Boolean #Else Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (ofn As OPENFILENAME) As Boolean Public Declare Function GetSaveFileName Lib "comdlg32.dll" Alias _ "GetSaveFileNameA" (ofn As OPENFILENAME) As Boolean #End If #If VBA7 Then Public Declare PtrSafe Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As LongPtr) As LongPtr #Else Public Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long #End If وفي الموديول 3 أيضا Module3 : #If VBA7 Then Private Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #Else Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #End If بالتوفيق 🙂 whatsapp-Moosak.rar

وجزاكم مثله اخى الكريم الحمد لله الذي بنعمته تتم الصالحات

وهذا كود لإنهاء مهمة أكسس، من جلبي وتصرفي: Sub Kill_msAccess() Dim oServ As Object Dim cProc As Variant Dim oProc As Object Set oServ = GetObject("winmgmts:") Set cProc = oServ.ExecQuery("Select * from Win32_Process") For Each oProc In cProc 'Rename MSACCESS.EXE in the line below with the process that you need to Terminate. 'NOTE: It is 'case sensitive If oProc.Name = "MSACCESS.EXE" Then MsgBox "KILL" 'used to display a message for testing pur oProc.Terminate 'kill exe End If Next End Sub