نجوم المشاركات
Popular Content
Showing content with the highest reputation on 19 أكت, 2019 in all areas
-
استاذي @essam rabea وضع الحل عن طريق نموذج فرعي مخفي يتم اضهارة وتحديثة عند التغيير وهنا حل اخر بدون الحاجة الى نموذج فرعي test2.accdb5 points
-
السلام عليكم هذا الموضوع اقتطعه من احد برامجي اللي شغال عليها الان وهي تسجيل رقم عداد السيارة السابق تلقائيا لما يكون عندي سيارات كثيرة وبدي اسجل رقم العداد عند المغادرة وعند العودة يعني سابق ولاحق اكيد رح يصير عندي خربطة لكن مع هذه الطريقة مجرد ان اختار رقم السيارة يقوم البرنامج بادراج اخر قراءة تم تسجيلها الطريقة عملتها بواسطة استعلامين ومايكرو وحجز متغير يمكن حدا يطبقه ابواسطة اكواد فيجوال بيسك لكن ارى ان المايكرو اسهل مرفق قاعدة البيانات يمكن تستفيدوا من هذه الطريقة بتسجيل عداد الكهرباء السابق والحالي او تسجيل عداد المياة السابق والحالي اتمنى لكم الفائدة رقم عداد السيارة.accdb5 points
-
تفضل أخى rey360 عسى أن يكون المطلوب بالتوفيق test2.accdb4 points
-
عجبنى الموضوع ده قلت أشاركه معكم بإختصار هو سكريبت لعمل مكان موثوق لملفات الأكسيس من مكان تشغيله .. بمعنى لو شغلته من 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.zip3 points
-
3 points
-
2 points
-
أشكركم أساتذتي الكرام أحمد الفلاحجى و essam rabea وkha9009lid على المجهود الذي قمتم به و أرجو أن يكون في ميزن حسناتكم شكرا جزيلا لكم2 points
-
عن طريق 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)2 points
-
العفو اخى فهمت ما تريد لكن مش عارف اظبطها ممكن تتظبط لو مكان العرض ليست بوكس مثل مثال الاستاذه زهره المرفق وان شاء الله احد الاساتذه يساعد فيما تريده والله اعلى واعلم تمنياتى لك بالتوفيق SearchInListBox.rar2 points
-
2 points
-
بعد اذن الاستاذ عبد الله الصاري جرب كود حدث الفورم 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 Sub2 points
-
2 points
-
وعليكم السلام ,كان لزاما عليك رفع ملف لتوضيح المطلوب بكل دقة كما انه لابد رفع مشاركتك منفصلة بعيداُ عن المشاركات القديمة حتى تكون محل اهتمام من الأساتذة فقد قمت برفع ثلاثة ملفات لك بثلاثة أمثلة مختلفة للتنقل بين الصفحات ومنها :-الكمبوبوكس والقائمة المنسدلة واخيرا بالقائمة التنقل لإسم الصفحة من القائمة المنسدلة.xlsm الذهاب الى الشيت من خلال الكمبوبوكس.xlsm كود التنقل الى اي صفحة في ملف اكسيل.xls2 points
-
من فضلك عليك برفع الملف بعد تعديل الإعدادات ويجب ان تلاحظ انك لو رفعت من البداية الملف الصحيح لكان وفر علينا كثيرا من الوقت2 points
-
2 points
-
السلام عليكم استاذي kanory المحترم اشكرك الشكر الجزيل وبارك الله بجهودك القيمة اطلعت على المرفق من خلال الماكرو المديول عمل يستحق التقدير وانا اسف على التأخر في الرد لان شبكة الانترنيت لدي متردية جداً شكراً جزيلاً استاذي محمد سلامة على المشاركة وابداء الرأى وبارك الله بجهودك2 points
-
2 points
-
أحسنت استاذ عبد اللطيف بارك الله فيك وجزاك الله خير الثواب2 points
-
السلام عليكم عدل بهذا السطر ActiveWindow.SelectedSheets.PrintOut , , 22 points
-
وهنا برقم التليفون 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 If2 points
-
2 points
-
2 points
-
2 points
-
2 points
-
فورم بحث بالاسم ودبل كليك لعرض البيانات فيديو3 الفورم الملف فورم بحث بالاسم ودبل كليك لعرض البيانات.rar1 point
-
بارك الله فيك اخي العزيز اريد ان تظهر الرسالة عند اضافة بيانات جديدة ، لانه من المفترض عدم تكرار الاسم مرتين ، الله يوفقك و يسعدك ، ردك بعث الامل فيني شكرا لك1 point
-
الحمدلله اللذى بنعمته تتم الصالحات جزاهم الله خيرا استذتنا الافاضل وسلمت ايديهم واسال الله ان يكتب لهم بكل حرف حسنه ويبارك لهم فى جميع ما يحبون1 point
-
وعليكم السلام ورحمة الله وبركاته جرب هذا لعله يقترب من مرادك الفورم loginform بمرفقك كانت توجد به مشكلة لذي قمت بتغيره وتعديل ما يلزم جرب ووافنا بالنتائج New Microsoft Access Database.rar1 point
-
السلام عليكم و رحمة الله وبركاته بالاضافة الى حل اخي العيدروس فكرة اخرى اضف ورقة و انا هنا سميتها وصولات (2) ثم استخدم = وصلات A1 يعني نسخة للورقة الاولا بدالة بسيطة و اجعل الطباعة من و رقة وصولات (2) في الكود كما في المرفق طبع وصولات - وصلين.xls1 point
-
برنامج يدير الفندق نزلاء وعمالة برمجة عوض كارو دخول عوض 123 نرجو ارائكم وملاحظاتكم فندق_اسماء_وارقام_.xlsm1 point
-
اتفضل اخى مثالك بد التعديل Like "*" & [Forms]![f_listeclients]![Texte51] & "*" بالتوفيق ان شاء الله test2.accdb1 point
-
السلام عليكم ورحمة الله تم عمل المطلوب بإضافة عدة أعمدة (عمود الترتيب-عمود رقم التسجيل-عمود الصفة-عمود تاريخ الدخول-عمود تاريخ الخروج) في شيت التلاميذ... تم حذف أعمدة يومي الجمعة والسبت من جدولي ورقتي التلاميذ والأساتذة... مع تعديل كل المعادلات اللازمة... إذا كانت هناك اقتراحات أو تعديلات أخرى أستطيع عملها، إن شاء الله تجدونني في الخدمة.... كل الأوراق محمية بالكلمة السرية 123 ما عدا ورقة التوقيت T... بن علية حاجي 123.xls1 point
-
1 point
-
تفضل هذا التعديل تعديل بسيط بحيث اذا لم يجد الاسم يضيفه بعد اخر اسم مع التاريخ في صفحة الغياب غياب_A1.xlsm1 point
-
الف شكر استاذي نعم انه المطلوب ولكن هناك مشكلة في الدالة واذا كان احد الغياب طالب غير موجود في القائمة تتوقف الدالة عن العمل كما في الملف الاول اذا كان الغياب شخص واحد فقط تخرج مشكلة كما في الصورة كما في الملف الثاني طالب غير موجود .xlsm طالب واحد.xlsm1 point
-
1 point
-
وعليكم السلام ورحمة الله وبركاته لست أمتلك جهاز بصمة فهل أخرج من الموضوع هل تقصد آلية عمل الجهاز في تخزين بصمة الاصبع أم ماذا؟! أعتقد أنه يتم ترجمة صورة البصمة بشكل ترميزي معين يتم اضافتها مع بيانات المستخدم وليست كصورة علي حد علمي تجد هنا بعض المعلومات عن أجهزة البصمة https://mawdoo3.com/كيف_يعمل_جهاز_البصمة1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
1 point
-
السلام عليكم ورحمة الله تعالى وبركاته قمت بفضل الله بتصميم مكتبة dll يمكن اضافتها للاكسس نعم هى بسيطة ولكنها اول تجربة وان شاء الله احاول ان اصمم مكتبات اخرى هى اداة مثل البروجرس بار هذه شكلها بعد التسجيل ستجدها موجودة فى عناصر Active x وهذه صورة اثناء تصميم الاداة على vb.net قريبا ان شاء الله explorer bar وهذا فيديو اثبات عملى للاداة اما عن طريقة التسجيل فستجد ملف من نوع .bat ارفقته مع الاداه اسمه " تسجيل الاداة " قم بفتحة با النوتباد وقم بتغيير مسار الاداه وقم بحفظ الملف وعن التسجيل قم بفتح الملف كمسؤل وسيقوم بتسجيل المكتبةتلقائيا هذه هى المكتبة axload5.rar اتمنى ان تجربوها وتخبرونى بالنتائج دمتم لنا سندا حاجة اخيرة ايه ممكن استفاد من الاداة هذه ممكن مثلا تضعها فى نموذج مخفية وعند تنفيذ امر معين تظهرها وعند انتهاء الامر تقوم باخفائها وهكذا1 point
-
اعتقد انى توصلت الى خطأ ما فى اداة التسجيل الا وهو مسار الفريمورك كل اصدار لنظام التشغيل يختلف معه مسار netframwork مثلا 32 بت تجد المسار هو C:\Windows\Microsoft.NET\Framework اما 64 بت تجد المسار هو C:\Windows\Microsoft.NET\Framework64 اصدار 32 bit تسجيل الاداة - 32bit.rar اصدار 64bit تسجيل الاداة - 64bit.rar فقط قم بتغيير المسار الخاص بالاداة ثم احفظ وقم بتشغيلها كمسؤول وبعد التسجيل ستجد فى عناصر تحكم active x تم تسجيل نسخة اخرى من الاداة فقط قم بتجربة الثانية الجديدة او اللى تشتغل معاك ههههههههههههه ومرة اخرى شكرا والله لطول صبركم1 point
-
1 point
-
1 point
-
السلام عليكم تم تعديل بعض الاكواد داخل المكتبة وهذه هى بعد التعديل يجماعة مش عاوزكم تيأسو هههههههههههه عاوزين نخرج المشروع جدا للنور هنستفاد منه كتير والله فى الاكسس وجزاكم الله خير الجزاء axload5.rar اما رسالتك هذه اخى الكريم تفيد ان مساء المكتبة غير صحيح قم بتعديل مسار المكتبة اولا ثم احفظ وافتح الملف كمسؤول (Run as admistroter )1 point
-
اتفضل جرب والشرح ان كان هذا ما تريد بعد التجربة وان كان هذا ما تريد لا تنسي الدعاء الوفير لاستاى الجليل ومعلمى القدير الاستاذ @jjafferr والله اهدانى هذا الكود فى يوم من الايام دون ان اطلبه حتى كنت اسال عن شئ وكتبت كود كبير جدا ومطول لاصل لمبتغاى بعد ان توصلت لاجابة على سؤالى والذى لم يكن له علاقة تقريبا بهذه الطريقة وبهذا الكود اهدانى اياه معلمى حتى لا يكون الامر شاقا على بكتابة الكثير من الاكواد لاصل لهذه النتيجة اسأل الله تعالى ان يرزقه عن كل حرف كتبه ليعلم به حسنه واسال الله تعالى ان يضاعفها بكرمه وجوده الى اضعافا لا تحصى ولا تعد يارب العالمين فتثقل ميزان اعماله فيترتقى اعلى درجات الجنان يارب العالمين شقق ومخازن ايجارات - Copy.accdb توضيح فقط لم ارد جلب البيانات اصلا مرة اخرى لاننى بالفعل املكها فى احد الجداول لماذا اجلبها وحمل القاعدة ببينات تتكرر من الاساس1 point
-
ان شاء الله اجيبك واتيك بنا يسر قلبك ولكن لى سؤال لماذا تكرر كتابة تلك القيم مرارا وتكرارا فى كل شهر وتحمل الجدول والقاعدة ببيانات ممكن عدم تكرارها اصلا كان يكفى ان يكون جدول المستأجرين به كل البيانات مره واحده فقط وعمل علاقة بين جدول المستأجرين وجدول الايجار برقم المستأجر او ايا كان مفتاح الربط الذى تربط من خلاله1 point