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

وهذا تعديل مع الكود تبعك .... اختر ما شئت ... ومع العايدين Dim db As DAO.Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Clients") If Me.txtnomclien <> "" Then If rrr(Me.txtnomclien) = False Then rs.AddNew rs!nomComplet = Me.txtnomclien rs!Societé = Me.txtsociete rs!Adresse = Me.txtadresse rs("Tel") = Me.txttel rs!Email = Me.txtemail rs!Ville = Me.txtville rs.Update rs.Close Set rs = Nothing DoCmd.Close acForm, Me.Name 'DoCmd.Requery Else MsgBox "ce client existe deja", vbInformation Me.txtnomclien.SetFocus End If Else MsgBox "remplir le champ nom de client", vbCritical End If

جرب هذا الكود مع تعديل مسار وجود قاعدة الجداول Dim dbCurrent As DAO.Database Dim recCategories As Recordset Set dbCurrent = OpenDatabase("C:\Users\ACER\Desktop" & "\Nouveau Microsoft Access Base de données.accdb", False) Set recCategories = dbCurrent.OpenRecordset("select * from Clients") With recCategories .AddNew !nomComplet = Me.txtnomclien '!Time = Time .Update End With recCategories.Close dbCurrent.Close Set dbCurrent = Nothing

السلام عليكم 🙂 وهذه عيدية العيد لنا 🙂 شكرا للاخوة الاخوة @اشرف و @Gamal.Saad لكل ما تبذلوه ، مبروك لكم الترقية 🙂 جعفر

بعد اذنك أخي واستاذي ابو فريد .... هذه طريقة أخرى 11 (1).mdb

الف الف مبروك اخوانى واساتذتى @Gamal.Saad و @اشرف 💐 بارك اله فيكم وجزاكم الله كل خير واعانكم الله وتقبل منكم صالح الاعمال

عيدية جميلة ..... مبارك @Gamal.Saad و @اشرف دوام التوفيق ...

ما شاء الله تبارك الله اللهم ادم علينا الفرح والسرور مبارك استاذي @Gamal.Saad واستاذي @اشرف ... تستاهلون هذا اللقب ومزيد من التألق🌷

قمت بحذف برنامج Avast من جهاز و ضبط ماعدى عند بدء في تحديث ويندوز و جاري حل المشكلة انظر التعديل 11.mdb

وعليكم السلام اخوي سلمان 🙂 ولو اننا نحاول نحل المشكلة ونحن مغمضين بدون الكود للتجربة عليه ، ولكن ان شاء الله انت اللي تجرب لنا 🙂 1. محتاجين معلومات اكثر بالنسبة لهذه الرسالة ، 2. استعمل هذا : #If VBA7 Then Private Declare PtrSafe Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As LongPtr, _ ByVal hmod As LongPtr, _ ByVal dwThreadId As Long _ ) As LongPtr Declare PtrSafe Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA" (ByVal hdc As LongPtr, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As LongPtr, ByVal lParam As LongPtr) As Long Declare PtrSafe Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" (ByVal hdc As LongPtr, lpLogFont As LOGFONT, ByVal lpEnumFontProc As LongPtr, ByVal lParam As LongPtr, ByVal dw As Long) As Long Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As LongPtr) As Long #Else Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long _ ) As Long Declare PtrSafe Function EnumFontFamilies Lib "gdi32" Alias "EnumFontFamiliesA" (ByVal hdc As LongPtr, ByVal lpszFamily As String, ByVal lpEnumFontFamProc As LongPtr, ByVal lParam As LongPtr) As Long Declare PtrSafe Function EnumFontFamiliesEx Lib "gdi32" Alias "EnumFontFamiliesExA" (ByVal hdc As LongPtr, lpLogFont As LOGFONT, ByVal lpEnumFontProc As LongPtr, ByVal lParam As LongPtr, ByVal dw As Long) As Long Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As Long, _ ByVal nIDEvent As Long, _ ByVal uElapse As Long, _ ByVal lpTimerFunc As LongPtr) As Long #End If وبالنسبة للخطوط ، اذا ما نفع الكود اعلاه : في الكود ، بدل هذا السطر EnumFontFamilies hdc, vbNullStrin, AddressOf EnumFontFamilies, Combo جرب هذا السطر EnumFontFamilies hdc, vbNullStrin, AddressOf EnumFontFamilies, Combo او EnumFontFamiliesEx hdc, vbNullStrin, AddressOf EnumFontFamilies, Combo او EnumFontFamiliesEx hdc, vbNullStrin, AddressOf EnumFontFamiliesEx, Combo جعفر

يمكنك استخدام هذه المعادلة للغيابات الصباحية أما بالنسبة للمسائية فقط عليك استبدال حرف ص وتغييره الى مـ ملحوظة : يمكنك تغيير ايضاً التواريخ التى تريد حساب الغيابات من خلالها وذلك من الخليتين F1 & G1 بصفحة Info =SUMPRODUCT((maroc[[#Headers],[01/06/2020]:[10/06/2020]]>=$F$1)*(maroc[[#Headers],[01/06/2020]:[10/06/2020]]<=$G$1)*(maroc[nom]=$A2)*(maroc[[01/06/2020]:[10/06/2020]]="ص")) anas2021.xlsx

بعد اذن استاذ سليم ولإثراء الموضوع Tawati2.xlsm

وعليكم السلام-يمكنك فقط استخدام هذه المعادلة =IFERROR(VLOOKUP(G3,$A$3:$C$200,3),"") قائمة تسديد 1TEST.xlsx

ما شاء الله اخي Kanory وكل عام وانت بخير

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

بعد اذن الاساتذة لا داعي للكود كل ماعليك هو الضغط على هذين الزرين alt+enter

ماشاء الله تبارك الله مبرووووووك الترقية اخي @Gamal.Saad و اخي@اشرف بالتوفيق و من نجاح الى نجاح 🌹

عيد سعيد اخي العزيز @أحمد الفلاحجى وكل عام وانت وجميع اخوانتنا بخير و عافية🌹

السلام عليكم ورحمة الله لعلك تعمل على نسخة إكسيل 2007... لا يمكنني أن أعرف أين الخلل في الملف ولكن بالتخمين بعد فتح الملف بنسخة إكسيل 2007 ظهر لي خلل في أحد الأكواد وتم تصحيح وتصويب هذا الكود، وإن شاء الله يكون هذا هو الخلل الذي ظهر عندك... راجع الملف المرفق الجديد... CHQ (1).xlsm

هذا الكود البسيط (استبدل الرقم 3 بالرقم الي تريده) Sub Wrap_col() Columns(3).AutoFit End Sub

تفضل تواتي 20.xlsm

الف مبروك @Gamal.Saad @اشرف تستاهلون وبجدارة

مبروك العيدية احبتنا @Gamal.Saad و @اشرف بارك الله لكم وفيكم ونفع بكم .. وكل عام وانتم بخير

مبارك لكما @اشرف و @Gamal.Saad نفع الله بكما

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

الاستاذالمبدع @أحمد الفلاحجى والاستاذ @حلبي شكرا جزيلا لكما

محاولة منى اخى / @ازهر عبد العزيز ومشاركة مع معلمى الفاضل / @أحمد الفلاحجى azhr test.accdb

الحمدلله رب العالمين والصلاه والسلام على اشرف المرسلين سيدنا محمد المبعوث رحمه للعالمين وعلى آله ومن والاه الى يوم الدين جرب الان اخى @ازهر عبد العزيز لما تفتح على السجل EE رقم 5 وعند الانتقال سيتم فتح النموذج ووضع رقم السجل فالنموذج سجل بياناتك فى نموذج batt وفى حقل idlad تم وضع الكود التالى للقيمه الافتراضيه =[Forms]![lad]![idlad] بالتوفيق اخى ازهر New Microsoft Access Database (5) - Copy(2).accdb

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

واضافه لاخى العزيز @ازهر عبد العزيز 🌷 زر انتقال GoTo آخر زر وهو حفظ السجل الجديد والانتقال اليه بدل الكود بالمحرر لما اعلمه سابقا من ارادته بتحويل الكودات للماكرو تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق New Microsoft Access Database (5) - Copy.accdb

ما الذي صنعت يا صاحبي @أحمد الفلاحجى ؟؟

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

جزاك الله خيرا وبارك الله فيك على شعورك الطيب 🌷 وجزا الله خيرا جميع اخواننا واساتذتنا 🌷

استاذنا الجميل / @أحمد الفلاحجى والله الذى ننتفغ به هو وجودك معنا دائما وتقديم كل الامكانيات لمساعدة الاخرين جزاك الله خير يا اطيب قلب عرفته فى المنتدى وبارك الله فيك

احسنت اخى حسام @husamwahab وجزاك الله خيرا 🌷 اخى محمد @حلبي اهديك هذه الهديه البسيطه عندى منذ زمن وتقريبا حملتها من موضوع لام عهود جزاها الله خيرا وستجد العديد من الامثله مثله فجزاهم الله خيرا الهديه عباره عن جدول بالاخطاء رقمها وتفاصيل عنها ان شاء الله تنتفع بها وجميع اخوانى بالتوفيق اخوانى تغيير رسائل الخطا المبنية في الاكسس برسائل خاصة.rar

اشكرك استاذنا الفاضل / @husamwahab على التوضيح فانت انسان رائع وذو خبرة عالية جدا وشديد الاحترام بارك الله فيك وجعله فى ميزان حسناتك ان شاء الله

عيدكم مبارك اخوانى واساتذتى @kha9009lid @حلبي @ابوخليل @أبو عبدالله الحلوانى @ابو تراب وجميع اخوانى واساتذتى 💐 ومايكون خاطركم الا طيب 💐 اخوكم الصغير احمد

وعليكم السلام -اجعل المعادلة هكذا =IFERROR(E12-E13,"") معادلة1.xlsx

تفضل هذا بحث اخر بالإسم ولا يمكن ان يكون هناك اكثر من بند للبحث فى وقت واحد Search by Name.xlsx

بعد اذن استاذ سليم -تفضل تم عمل قائمة منسدلة لعمود ID حتى لا يكون هناك امكانية للخطأ عند كتابة الرقم وبالتالى يتم جلب البيانات بصورة صحيحة , ويمكنك استخدام هذه المعادلة =IFERROR(VLOOKUP($A5,Sheet1!$A$2:$K$1700,MATCH(B$4,Sheet1!$A$1:$K$1,0),0),"") Vlookup.xlsx

تفضل تم عمل المطلوب اضافة الى عمل كود لتكست بوكس1 ليتم كتابة السريال تلقائى دون تدخل منك rr1.xlsm

وعليكم السلام-جرب الملف هكذا Amr2.xlsx

وعليكم السلام-يمكنك استخدام المعادلة بهذه الطريقة =SUMIFS('1'!$C:$C,'1'!$A:$A,$A3,'1'!$B:$B,$B3) دالة sumifs 1مع الفلترة.xlsx

اخى الكريم ما هو سبب غضبك ؟!!! اليس هذا ما تريد .... فقط اجعل التنسيق هكذا [$-2000000]#,##0

منا ومنكم سائر الأعمال ان شاء الله يمكنك هذا بمعادلة المصفوفة =IFERROR(INDEX(Data!$A:$A,SMALL(IF(Data!$C:$C=$C$1,ROW(A$2:A$5000)-ROW(A$2)+1),ROWS($A$3:A3))),"") Data_HR2.xls

ولإثراء الموضوع فهذا كود من اعمال الأستاذ الكبير سليم حاصبيا له منا كل المحبة والإحترام Option Explicit Sub creat_shett() Dim i%, t, m% Dim x%: x = Application.CountA(Sheets("اسماء الصفحات").Range("A:A")) + 1 For i = 3 To x t = Sheets("اسماء الصفحات").Range("a" & i) On Error Resume Next m = Len(Sheets(t).Name) On Error GoTo 0 If m = 0 Then '===========================================================' Sheets("Home").Copy After:=Sheets(Sheets.Count) With ActiveSheet .Name = Sheets("اسماء الصفحات").Range("a" & i) .Range("a1") = .Name End With '===========================================================' End If m = 0 Next Sheets("اسماء الصفحات").Select End Sub Sheets List.xlsm

شوفت ان الملف مهم ازاى هذه الخلايا كان تنسيقها نص وليس عام او رقم فتم تعديل تنسيق الخلايا الى عام-تفضل 55 (2).xlsx

فقط عليك استخدام هذه المعادلة =IFERROR(INDEX($A:$A,MATCH($E4,$B:$B,0)),"") aa.xls

بالضغط على حرف الكاف بالعربى من الكيبورد ولكن عندما تقوم بتحويل الكتابة على الكيبورد للغة الإنجليزية

تفضل اخى الكريم لابد من استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات تناولت هذه الجزئية ومنها : https://www.officena.net/ib/topic/86483-تجميع-مجموع-بيانات-في-ملفات-اكسل-في-ملف-واحد/?tab=comments#comment-548015 https://www.officena.net/ib/topic/84955-تجميع-البيانات-اكثر-من-شيت-الى-شيت-واحد/?tab=comments#comment-538880 https://www.officena.net/ib/topic/84474-طلب-مهم-في-إكسل-بخصوص-تجميع-البيانات-من-عدة-مصنفات-وكل-مصنف-يحتوى-على-مجموعة-ورقات/?tab=comments#comment-536456 وهناك اكثر من هذا لو بحثت بارك الله فيك

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