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

استاذي @essam rabea وضع الحل عن طريق نموذج فرعي مخفي يتم اضهارة وتحديثة عند التغيير وهنا حل اخر بدون الحاجة الى نموذج فرعي test2.accdb

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

تفضل أخى rey360 عسى أن يكون المطلوب بالتوفيق test2.accdb

عجبنى الموضوع ده قلت أشاركه معكم بإختصار هو سكريبت لعمل مكان موثوق لملفات الأكسيس من مكان تشغيله .. بمعنى لو شغلته من Desk Top تقدر تفتح أى ملف أكسيس على Desk Top بدون ظهور Enable Content. ولو عندك فولدر لمشاريعك فى أى مكان سواء سى أو دى أو .... ضع هذا السكريبت داخله وشغل وخلاص بقى كل ما بداخل الفولدر منطقة أمان. إنشئ ملف نص بأى إسم وضع فيه ما يلى على أن تغير إمتداده الى vbs. Const HKEY_CURRENT_USER = &H80000001 Dim oRegistry Dim sPath Dim sDescription Dim bAllowSubFolders Dim bAllowNetworkLocations Dim bAlreadyExists Dim sParentKey Dim iLocCounter Dim arrChildKeys Dim sChildKey Dim sValue Dim sNewKey Set WshShell = CreateObject("WScript.Shell") strCurDir = WshShell.CurrentDirectory Set oRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv") sPath = strCurDir sDescription = "YourTrustedLocationDescriptionGoesHere" bAllowSubFolders = True bAlreadyExists = False sParentKey = "Software\Microsoft\Office\16.0\Access\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Excel\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\PowerPoint\Security\Trusted Locations" ' sParentKey = "Software\Microsoft\Office\16.0\Word\Security\Trusted Locations" iLocCounter = 0 oRegistry.EnumKey HKEY_CURRENT_USER, sParentKey, arrChildKeys For Each sChildKey in arrChildKeys oRegistry.GetStringValue HKEY_CURRENT_USER, sParentKey & "\" & sChildKey, "Description", sValue If sValue = sDescription Then bAlreadyExists = True If CInt(Mid(sChildKey, 9)) > iLocCounter Then iLocCounter = CInt(Mid(sChildKey, 9)) End If Next 'If bAlreadyExists = False Then sNewKey = sParentKey & "\Location" & CStr(iLocCounter + 1) oRegistry.CreateKey HKEY_CURRENT_USER, sNewKey oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Path", sPath oRegistry.SetStringValue HKEY_CURRENT_USER, sNewKey, "Description", sDescription If bAllowSubFolders Then oRegistry.SetDWORDValue HKEY_CURRENT_USER, sNewKey, "AllowSubFolders", 1 End If كما يمكن تفعيله للاكسيل والوورد والباور بوينت مع مراعاة نسخة الاوفيس لديك وتغيرها فى الكود: أوفيس 2019 : 16.0 أوفيس 2016 : 16.0 أوفيس 2013 : 15.0 أوفيس 2010 : 14.0 أوفبس 2007 : 12.0 أوفيس 2003 : 11.0 أظن أنه لا يوجد أحد أعضاء منتدانا الكريم يعمل على أوفيس XP 😊 عسى أن يفيد .. إذا اشتغل يعنى والله الموفق EAR TrustAnyWhere.zip

السلام عليكم جرب المرفق غياب_A2 مع الغياب بعذر .xlsm

الشكر لله سبحانه

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

عن طريق dlookup مرة واحدة واستدعاء اي عدد من الحقول On Error GoTo ErrHandler Dim X() As String a = DLookup("[item_no] & '|' & [item]& '|' & [s_price]& '|' & [Quantity] ", "item", "[item_no]='" & [Item_No] & "'") X = Split(a, "|") Me.item = X(1) Me.s_price = X(2) Me.Quantity_Available = X(3) DoCmd.GoToRecord , , acNewRec ErrHandler: If Err.Number <> 0 Then Me.Undo MsgBox " باركود غير مسجل " End If End If عن طريق قائمة منسدلة Me.item = Me.Item_No.Column(1) Me.Quantity_Available = Me.Item_No.Column(2) Me.s_price = Me.Item_No.Column(3)

العفو اخى فهمت ما تريد لكن مش عارف اظبطها ممكن تتظبط لو مكان العرض ليست بوكس مثل مثال الاستاذه زهره المرفق وان شاء الله احد الاساتذه يساعد فيما تريده والله اعلى واعلم تمنياتى لك بالتوفيق SearchInListBox.rar

أ.بلال اليامين هل هذا المطلوب 111.zip

بعد اذن الاستاذ عبد الله الصاري جرب كود حدث الفورم Private Sub UserForm_Initialize() Dim ws As Worksheet: Set ws = Sheets("sheet1") Dim b Me.ListBox1.ColumnCount = 1 lr = ws.Cells(Rows.Count, 1).End(xlUp).Row For b = 4 To lr Me.ListBox1.AddItem ws.Cells(b, 1).Value Next b End Sub

وعليكم السلام هل تقصد هكذا فاتورة.xlsm

وعليكم السلام ,كان لزاما عليك رفع ملف لتوضيح المطلوب بكل دقة كما انه لابد رفع مشاركتك منفصلة بعيداُ عن المشاركات القديمة حتى تكون محل اهتمام من الأساتذة فقد قمت برفع ثلاثة ملفات لك بثلاثة أمثلة مختلفة للتنقل بين الصفحات ومنها :-الكمبوبوكس والقائمة المنسدلة واخيرا بالقائمة التنقل لإسم الصفحة من القائمة المنسدلة.xlsm الذهاب الى الشيت من خلال الكمبوبوكس.xlsm كود التنقل الى اي صفحة في ملف اكسيل.xls

من فضلك عليك برفع الملف بعد تعديل الإعدادات ويجب ان تلاحظ انك لو رفعت من البداية الملف الصحيح لكان وفر علينا كثيرا من الوقت

اتفضل الملف لعله يفى بالغرض نسخة من الاسماء.xlsx

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

تفضل طبع وصولات A2- وصلين.xls

أحسنت استاذ عبد اللطيف بارك الله فيك وجزاك الله خير الثواب

السلام عليكم عدل بهذا السطر ActiveWindow.SelectedSheets.PrintOut , , 2

وهنا برقم التليفون Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Clients", dbOpenDynaset) rs.FindFirst "Tel = '" & Me!Tel & "'" If Not rs.NoMatch Then rs.Bookmark = rs.Bookmark Me.Societé = rs!Societé Me.Adresse = rs!Adresse Me.Tel = rs!Tel Me.Email = rs!Email Me.nomClien = rs!nomClien Me.Ville = rs!Ville Else 'غير ذلك اي انه لم يجد سجل MsgBox " يـرجـاء الـتـأكـد .... لا يـو جـد زبون بـهـذا الرقم : " & Me.Tel, , " : خـطـاء " End If

:: تفضل طريقة الكومبو Combo_Way.rar

تم التعديل على المشاركة السابقه اعد تحميل الملف

انظر هذا الموضوع بطريقة أخرى لأخي الفاضل @kaser906

وعليكم السلام-تفضل لك كل ما طلبت بصمة-1 5.xlsm

السلام عليكم أعضاء المنتدى الكرام أذكر طريقة تكملة البيانات تلقائيا في الفورم انطلاقا من نفس الجدول بحيث هناك طريقتين: طريقة الاولى عن طريق ما يسمى recordset Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM Clients WHERE idClient= " & Me.nomClien, dbOpenDynaset) Me.Societé = rs!Societé Me.Adresse = rs!Adresse Me.Tel = rs!Tel Me.Email = rs!Email Me.Ville = rs!Ville rs.Close Set rs = Nothing أما الطريقة الثانية فهية عن طريق Dlookup If DLookup("idClient", "Clients", "idClient=" & Me.nomClien) Then Me.Ville = DLookup("Ville", "Clients", "idClient=" & Me.nomClien) Me.Societé = DLookup("Societé", "Clients", "idClient=" & Me.nomClien) Me.Adresse = DLookup("Adresse", "Clients", "idClient=" & Me.nomClien) Me.Tel = DLookup("Tel", "Clients", "idClient=" & Me.nomClien) Me.Email = DLookup("Email", "Clients", "idClient=" & Me.nomClien) End If سأرفق الملف لفهم أكثر كما أطلب من أساتذتنا الكرام هل هناك طريقة أخرى تقوم بهذا العمل بغرض التعلم لان هناك دائم طرق كثير للوصل الى الهدف في أكسس وشكرا لكم . test.accdb

فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الفورم الملف فورم بحث بالاسم ودبل كليك لعرض البيانات.rar

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

وعليكم السلام ورحمة الله وبركاته جرب هذا لعله يقترب من مرادك الفورم loginform بمرفقك كانت توجد به مشكلة لذي قمت بتغيره وتعديل ما يلزم جرب ووافنا بالنتائج New Microsoft Access Database.rar

برنامج يدير الفندق نزلاء وعمالة برمجة عوض كارو دخول عوض 123 نرجو ارائكم وملاحظاتكم فندق_اسماء_وارقام_.xlsm

تفضل P = ActiveWorkbook.Path & "\" & Format(Now(), "yyyy-mm-dd") & [G1] & MyCount & ".JPEG"

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

السلام عليكم عدل هذا السطر P = ActiveWorkbook.Path & "\" & [G1] & MyCount & ".JPEG"

وعليكم السلام تريد تكرار بيانات الوصل في ورقة واحدة تصوير المدى عند الطباعه وحذف الصورة بعد الطباعه جرب المرفق طبع وصولات A1- وصلين.xls

لا اكسس فقط

بارك الله فيك ورحم الله والديك

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

تفضل هذا التعديل تعديل بسيط بحيث اذا لم يجد الاسم يضيفه بعد اخر اسم مع التاريخ في صفحة الغياب غياب_A1.xlsm

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

كنت أعمل على القاعدة الاصلية ووضعت جملة الاستعلام وانتقلت الى القاعدة التى ارفقتها ولم اجد النتيجة المطلوبة واعتقدت اننى مخطئ وظللت احاول كثيرا ولما يأست وضعت مشاركتى طالبا العون نظرا لضيق وقتى لاننى ان شاء الله ان كان لى فى العمر بقية لابد لى الانتهاء قبل نهاية الشهر ان شاء الله ليتم اعتماد ما سوف انتهى منه ان شاء الله ونتاج عملى هذا سيكون هو الـ Reference الذى سوف يتم بناء عليه التعامل مع الطائرات واجزائها عند الشروع فى عمل الاختبارات اللازمة وذلك وفق توجيخات كل شركة مصنعة لكل جزء ......... هذا شئ يخص عملى لذلك ضيق وقتى وكثرة الافكار وقلة النوم افقدونى تركيزى اليوم تماما اعتذر جدا جدا جدا لكم على الاثقال عليكم جزاكم الله خيرا وغفر الله لكم وفرج عنكم كربات الدنيا والاخرة ان شاء الله واخيرا المرفق النتائج التى التى كنت ارجوها فى الاستعلامات الاتية qryIndexForMT qryIndexForMTCross qryIndexForPT qryIndexForPTCross وبفضل الله تعالى ثم حضراتكم تحققت ولله الحمد شكر الله لكم واحسن الله اليكم اساتذتى العظماء وبيض الله وجوهكم يوم الدين ان شاء الله ورزقكم صحبة النبيين والشهداء والصديقين kanory_4.accdb

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

وعليكم السلام ورحمة الله وبركاته لست أمتلك جهاز بصمة فهل أخرج من الموضوع هل تقصد آلية عمل الجهاز في تخزين بصمة الاصبع أم ماذا؟! أعتقد أنه يتم ترجمة صورة البصمة بشكل ترميزي معين يتم اضافتها مع بيانات المستخدم وليست كصورة علي حد علمي تجد هنا بعض المعلومات عن أجهزة البصمة https://mawdoo3.com/كيف_يعمل_جهاز_البصمة

السلام عليكم أعتقد أن الأمر بسيط ان شاء الله قم باضافة الشرط الثاني بالجملة الاستعلامية هنا AllContNo: Concatenate1("SELECT SPN FROM Q1 WHERE ITEM='" & [ITEM] & "'" & " And SPM='" & [SPM] & "'" & " ORDER BY ITEM") داخل الاستعلام الذي يتم فيه التجميع جرب ووافنا بالنتائج

السلام عليكم بعد اذن اخي احمد يوسف جرب المرفق Ot1.xlsm

=C5-C7+(C5+C6) يمكنك استخدام هذه المعادلة بالخلية C8

السلام عليكم تفضل شاهد التوضيح في المرفق شرح.rar

السلام عليكم ورحمة الله تعالى وبركاته قمت بفضل الله بتصميم مكتبة dll يمكن اضافتها للاكسس نعم هى بسيطة ولكنها اول تجربة وان شاء الله احاول ان اصمم مكتبات اخرى هى اداة مثل البروجرس بار هذه شكلها بعد التسجيل ستجدها موجودة فى عناصر Active x وهذه صورة اثناء تصميم الاداة على vb.net قريبا ان شاء الله explorer bar وهذا فيديو اثبات عملى للاداة اما عن طريقة التسجيل فستجد ملف من نوع .bat ارفقته مع الاداه اسمه " تسجيل الاداة " قم بفتحة با النوتباد وقم بتغيير مسار الاداه وقم بحفظ الملف وعن التسجيل قم بفتح الملف كمسؤل وسيقوم بتسجيل المكتبةتلقائيا هذه هى المكتبة axload5.rar اتمنى ان تجربوها وتخبرونى بالنتائج دمتم لنا سندا حاجة اخيرة ايه ممكن استفاد من الاداة هذه ممكن مثلا تضعها فى نموذج مخفية وعند تنفيذ امر معين تظهرها وعند انتهاء الامر تقوم باخفائها وهكذا

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

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

السلام عليكم تم تعديل بعض الاكواد داخل المكتبة وهذه هى بعد التعديل يجماعة مش عاوزكم تيأسو هههههههههههه عاوزين نخرج المشروع جدا للنور هنستفاد منه كتير والله فى الاكسس وجزاكم الله خير الجزاء axload5.rar اما رسالتك هذه اخى الكريم تفيد ان مساء المكتبة غير صحيح قم بتعديل مسار المكتبة اولا ثم احفظ وافتح الملف كمسؤول (Run as admistroter )

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