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

استاذي @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

بارك الله فيك اخي العزيز اريد ان تظهر الرسالة عند اضافة بيانات جديدة ، لانه من المفترض عدم تكرار الاسم مرتين ، الله يوفقك و يسعدك ، ردك بعث الامل فيني شكرا لك

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

السلام عليكم و رحمة الله وبركاته بالاضافة الى حل اخي العيدروس فكرة اخرى اضف ورقة و انا هنا سميتها وصولات (2) ثم استخدم = وصلات A1 يعني نسخة للورقة الاولا بدالة بسيطة و اجعل الطباعة من و رقة وصولات (2) في الكود كما في المرفق طبع وصولات - وصلين.xls

اتفضل اخى مثالك بد التعديل Like "*" & [Forms]![f_listeclients]![Texte51] & "*" بالتوفيق ان شاء الله test2.accdb

لأن هذه معادلة مصفوفة فلابد من الضغط على Ctrl+Shift+Enter وليس Enter فقط كباقى المعادلات

الله ينور عليك وشكرا على ردك واهتمامك وجزاك الله خيرا

جزيت خيرا

السلام عليكم ورحمة الله تم عمل المطلوب بإضافة عدة أعمدة (عمود الترتيب-عمود رقم التسجيل-عمود الصفة-عمود تاريخ الدخول-عمود تاريخ الخروج) في شيت التلاميذ... تم حذف أعمدة يومي الجمعة والسبت من جدولي ورقتي التلاميذ والأساتذة... مع تعديل كل المعادلات اللازمة... إذا كانت هناك اقتراحات أو تعديلات أخرى أستطيع عملها، إن شاء الله تجدونني في الخدمة.... كل الأوراق محمية بالكلمة السرية 123 ما عدا ورقة التوقيت T... بن علية حاجي 123.xls

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

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

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

لا اكسس فقط

السلام عليكم بعد اذن الاستاذ حسين جرب المرفق غياب_A.xlsm

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

الحمد لله تم التوصل الى النتيجة المطلوبة كل الشكــــــــــــــــــــــر والتقدير اخى الحبيب واستاذى الجليل الاستاذ @أبو عبدالله الحلوانى كل الشكــــــــــــــــــــــر والتقدير اخى الحبيب واستاذى الجليل الاستاذ @kanory

جرب هذا المرفق لأستاذنا أبي جودي صلاحيات مجموعات المستخدمين.rar

احذف الكود الموجود في الفورم الاول

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

أحسنت استاذ مجدى جزاك الله كل خير

بارك الله فيك وجزاك الله خير الثواب

تفضل ترحيل المطالبات 2الشهرية.xlsm

السلام عليكم تفضل بحث_للاوراق.xlsm

اعتقد انى توصلت الى خطأ ما فى اداة التسجيل الا وهو مسار الفريمورك كل اصدار لنظام التشغيل يختلف معه مسار netframwork مثلا 32 بت تجد المسار هو C:\Windows\Microsoft.NET\Framework اما 64 بت تجد المسار هو C:\Windows\Microsoft.NET\Framework64 اصدار 32 bit تسجيل الاداة - 32bit.rar اصدار 64bit تسجيل الاداة - 64bit.rar فقط قم بتغيير المسار الخاص بالاداة ثم احفظ وقم بتشغيلها كمسؤول وبعد التسجيل ستجد فى عناصر تحكم active x تم تسجيل نسخة اخرى من الاداة فقط قم بتجربة الثانية الجديدة او اللى تشتغل معاك ههههههههههههه ومرة اخرى شكرا والله لطول صبركم

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

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