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

وهذا تعديل مع الكود تبعك .... اختر ما شئت ... ومع العايدين 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 وكل عام وانت بخير

السلام عليكم اخواني الاعزاء كل عام وانتم بخير اشكر ادارة الموقع علي هذه الثقة الكبيرة وادعو الله ان اكون عند حسن ظنهم اشكر من شرفني بالتهنئة jjafferr kanory ابوخليل ابو تراب kha9009lid أحمد الفلاحجى فايز warvin raviny انا عضو في هذا الموقع منذ زمن طويل لجأت اليه كثيرا في مشكلات واجهتني في اعمالي وكان وما زال ملجأ وملاذ لحل المشكلات المتعلقة بالاكسيس وكنت دائما انظر لفريق الموقع والخبراء باحترام شديد لعلمهم الوافر وسعة صدرهم مع المبتدئين امثالي وتمنيت ان اصبح فردا من ضمن هؤلاء الافذاذ كل التقدير والاحترام لفريق الموقع ولكل الخبراء والاعضاء وزوار الموقع

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

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

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

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

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

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

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

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

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

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

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

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

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

كل المعادلات عادية (بدون CTRL+SHIFT+ENTER) اذا اردت ان يكون تاريخ البداية والنهاية ضمن المجموع =SUMPRODUCT(($D$4:$D$13<=$I$4)*($D$4:$D$13>=$G$4)) اذا اردت ان لا يكونا ضمن المجموع =SUMPRODUCT(($D$4:$D$13<$I$4)*($D$4:$D$13>$G$4)) اذا اردت ان يكون احدهما ضمن الموحوع ( الأصغر فقط أو الأكبر فقط) =SUMPRODUCT(($D$4:$D$13<=$I$4)*($D$4:$D$13>$G$4))

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

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

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

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

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

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

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

اجعل الأرقام فى المعادلة داخل علامة التنصيص "" =IF(I1="1","القاهرة",IF(I1="2","الإسكندرية",IF(I1="3","بورسعيد",IF(I1="4","السويس",IF(I1="11","دمياط",IF(I1="12","الدقهلية",IF(I1="13","الشرقية",IF(I1="14","القليوبية",IF(I1="15","كفر الشيخ",IF(I1="16","الغربية",IF(I1="17","المنوفية",IF(I1="18","البحيرة",IF(I1="19","الاسماعيلية",IF(I1="21","الجيزة",IF(I1="22","بنى سويف",IF(I1="23","الفيوم",IF(I1="24","المنيا",IF(I1="25","اسيوط",IF(I1="26","سوهاج",IF(I1="27","قنا",IF(I1="28","أسوان",IF(I1="29","الأقصر",IF(I1="31","البحر الاحمر",IF(I1="32","الوادى الجديد",IF(I1="33","مطروح",IF(I1="34","شمال سيناء",IF(I1="35","جنوب سيناء",IF(I1="88","خارج الجمهورية","0")))))))))))))))))))))))))))) الرقم القومى.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

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

وعليكم السلام-تفضل ............ وهذه الصورة توضح كيفية عمل قائمة منسدلة TEST-STORE1.xlsx

منا ومنكم سائر الأعمال ان شاء الله يمكنك هذا بمعادلة المصفوفة =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/63893-تمكين-وحدات-الماكرو-تلقائياً/?tab=comments#comment-415011 https://www.officena.net/ib/topic/82750-ممكن-مساعدة-في-تمكين-وحدات-الماكرو/?tab=comments#comment-526618 كما يمكنك ايضا زيادة على هذا وضع هذا الكود فى حدث This Workbook Private Sub Workbook_Open() MsgBox "Welcome to Officena" End Sub وهذا ايضا موقع خارجى https://www.extendoffice.com/documents/excel/2675-excel-enable-disable-macros.html جزاك الله كل خير

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

تفضل اخى الكريم لابد من استخدام خاصية البحث فى المنتدى فهناك العديد من الموضوعات تناولت هذه الجزئية ومنها : 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