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

طيب ... شوف هذا التحايل .... NM.accdb

شكرا لكلماتك الطيبة أنا شخصيا لم اغير إلا فيما يحقق الشرط الخاص بك على اعتبار ان الكود يعمل معك قبل ذلك لذلك إذا كنت تقصد تحويل النص المكتوب في مربع النص إلى تاريخ يمكنك تعديل Me.TextBox16.Value في الشرط إلى cdate(Me.TextBox16.Value) تم تعديل الكود كاملا في المشاركة الأصلية بالتوفيق

وعليكم السلام وحمة الله وبركاته تفضل اخي الكريم اذا كان حقل NationalID رقم Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo) اذا كان حقل NationalID نص Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID ='" & cbjobNo & "'") تحياتي

تفضل هذا ملفك بعد التعديل لاحظ استعمال المعادلة في جلب اسم مالك الشقة بدلا من كتابته واستعمال رقم الصف كبديل للترقيم وتغيير تنسيق التاريخ والأرقام بالتوفيق مصروفات وايرادات1.xlsm

اتفضل هذي مشاركتي مع الشباب NM.zip

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

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

أقترح عمل حقل المسلسل الطبيعي ونوع بياناته autonumber ثم إضافة حقل محسوب في الجدول ونضع هذا في التعبير الخاص به "E" & 10000+[FileNo] حيث FileNo هو حقل المسلسل الطبيعي

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

السلام عليكم جرب هذا الكود = "E" & (Right(Nz(DMax("[FileNo]", "TblEmpl"), 100000), 6) + 1)

لا ليس ضروري ولكن وضعته للانتقال للسجل التالي ضعها بعد امر الحذف ولكن ليس بديل عنه تحياتي

سيكون بالشكل التالي Dim db As DAO.Database Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" & cbjobNo) rs.Delete rs.MoveNext rs.Close Set rs = Nothing تحياتي

جرب هذه Set rs = CurrentDb.OpenRecordset("SELECT * FROM tblNational WHERE NationalID =" [cbjobNo])

احذف هذا السطر لأني قمت بالإعلان عن جميع المتغيرات في أول سطر والرسالة تعني تكرار إعلان عن متغير بالتوفيق

يمكنك استعمال هذا الكود في حدث قبل إغلاق الملف Private Sub Workbook_BeforeClose(Cancel As Boolean) Sheets("Introduction").Range("G10") = "" Sheets("Introduction").Range("G12") = "" ThisWorkbook.Save End Sub وينبغي حفظ الملف بامتداد يسمح بالأكواد مثل xlsb بالتوفيق

تقريبا الخطأ في أن الشرط في زر الحفظ والتعديل هو If C Like TextBox6.Value & "*" Then وهذا يعني أن الخلية تشبه الرقم وبعده أي رقم آخر * وربما يكون الصواب If c = Val(Me.TextBox6) Then وهو يعني تساوي الرقم مع الرقم المكتوب في مربع النص بالتوفيق

المطلوب غير واضح لي هل تقصد: إذا تساوت قيمة خلية في العمود f في الشيت micro يتم الترحيل في نفس الصف الذي تساوت فيه (طبعا في شيت micro) ولا يقوم بالترحيل في شيت raw وإذا تساوت قيمة خلية في العمود f في الشيت raw يتم الترحيل في نفس الصف الذي تساوت فيه ولا يقوم بالترحيل في شيت micro ؟؟؟

الملف به كود يقوم بالترحيل إلى أول صف فارغ بعد المكتوب في شيت micro وشيت raw هل المطلوب تعديل الترحيل في شيت micro فقط إذا تساوى التاريخ في العمود f مع مربع نص التاريخ؟ مع الترحيل إلى آخر صف في شيت raw أم أنه لا يتم الترحيل في الاثنين إلا إذا تساوى التاريخ؟

السلام عليكم جرب الكود التالي Private Sub Form_Resize() DoCmd.Maximize End Sub تحياتي

الله يسلمك على رأسي والله انك استفدت شكرا لك

بدل الشريط (لأن الكود في النموذج سيخفيه) ، اعمل مربع تسمية ، مما سيعطيك انطباع بأن الشريط موجود ، ولكن لن تستطيع تحريكه 🙂 استعمل الماكرو autoexec_Login_Boarder_n_Buttons_Show 🙂 جعفر example_semo.accdb

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

وعليكم السلام ورحمة الله وبركاته غير خاصية POP UP الى NO data.rar تحياتي

التفاته لطيفة من استاذنا المحبوب محمد صالح لنتعلم مالم نعرفه لكن المرفق الاخير للاستاذ @husamwahabعملي جدا ...

الاستاذ عمر ضاحى الحل تم تقديمه سابقا

فعلا هذه النقطه لم انتبه لها فى هذه اللحظه واذا زاد حجم البيانات هيزيد بالتالى الضغط على المعالج (مشكله) انا كنت ابحث عنها ظانن انها جيده ( ولكى اعرف كيف افعلها لغرض التعليم) اشكرك شكرا جزيلا على المعلومه

لم يعمل معى

السلام عليكم ورحمه الله وبركاته أرجو المساعدة في معادلة للتقريب العدد العشري ( الكسر ) المطلوب تقريب الأرقام بمعادله كالاتي :- الكسر أقل من 0.24 يحذف الكسر من 0.25 الي 0.74 يضاف للرقم 0.5 ( نصف ) الكسر أكبر من أو يساوي 0.75 ضاف للرقم 1 التقريب.xlsx

يمكنك استعمال هذه المعادلة في الخلية C2 =MROUND(A2,0.5) وهي تعمل على أةفيس 2007 فما فوق بالتوفيق

ضع "E1"000001 في ال Format

المطلوب الثاني غير متعلق بالموضوع ويمكنك التوصل اليه بالبحث https://www.officena.net/ib/search/?q=إغلاق الاكسل بعد فترة&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

هل تقصد إغلاق الاكسل كله إذا لم يكن هناك مصنفات مفتوحة غير هذا المصنف؟

جرب هذا الحل If Len([TextBox1].Text) > 145 Then Exit Sub If Len([TextBox1].Text) > 111 Then [TextBox1].Width = 55 * Len([TextBox1].Text) End If الشرح اذا كان في النموذج يجب ان تستخدم Text للتركيز على المدخلات على الحقل و يكون الشرط اذا تجاز عدد الحروف المدخلة عن 111 حرف سيتم توسيع مربع النص بالعرض Width و حتى ان يصل عدد الحروف الى 145 حرف سوف يتوف النمو العرض و سيتم بالنمو الطولي هذه الفكرة بإختصار

شكرا جزيلا للاستاذ أ / محمد صالح على حل المشكلة مع خالص تقديري

حسب فهمي للمطلوب أنك تريد تعديل جميع الصفوف التي يتساوى فيها عمود التاريخ مع التاريخ المكتوب في مربع النص مرة في شيت micro ومرة في شيت raw لذلك جرب تعديل كود زر الأمر إلى ما يلي: Private Sub CommandButton1_Click() Dim ws As Worksheet, we As Worksheet, lr As Long, iRow As Long, n As Long, k As Integer, m As Integer Set ws = Worksheets("micro") lr = ws.Cells(Rows.Count, 6).End(xlUp).row For n = 1 To lr If ws.Cells(n, 6).Value = CDate(Me.TextBox16.Value) Then ws.Cells(n, 13).Value = Me.TextBox10.Value ws.Cells(n, 14).Value = Me.TextBox11.Value ws.Cells(n, 15).Value = Me.TextBox12.Value ws.Cells(n, 16).Value = Me.TextBox13.Value ws.Cells(n, 17).Value = Me.TextBox14.Value ws.Cells(n, 18).Value = Me.TextBox15.Value For k = o To ListBox2.ListCount If ListBox2.Selected(k) = True Then ws.Cells(n, 11).Value = ListBox2.List(k, 0) Exit For On Error Resume Next End If Next k End If Next n Set we = Worksheets("Raw") iRow = we.Cells(Rows.Count, 6).End(xlUp).Offset(1, 0).row For m = 1 To iRow If we.Cells(m, 6).Value = CDate(Me.TextBox16.Value) Then we.Cells(m, 16).Value = Me.TextBox10.Value we.Cells(m, 17).Value = Me.TextBox11.Value we.Cells(m, 18).Value = Me.TextBox12.Value we.Cells(m, 19).Value = Me.TextBox13.Value we.Cells(m, 20).Value = Me.TextBox14.Value we.Cells(m, 21).Value = Me.TextBox15.Value For k = o To ListBox2.ListCount If ListBox2.Selected(k) = True Then we.Cells(m, 11).Value = ListBox2.List(k, 0) Exit For On Error Resume Next End If Next k End If Next m End Sub لاحظ استعمال حلقة تكرارية لكل خلايا العمود F ورقمه 6 واستعمال المتغير N & M للتعبير عن رقم الصف الذي تساوت فيه القيم بالتوفيق

راح ياخذ حجم اي شاشة من جميع الاتجاهات

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

اخي في حدث عند الفتح ضع الكود التالي Dim lngWH As Long, lngWL As Long, lngWT As Long, lngWW As Long With Me DoCmd.Maximize lngWT = .WindowTop lngWL = .WindowLeft lngWH = .WindowHeight lngWW = .WindowWidth DoCmd.Restore Call .Move(lngWL, lngWT, lngWW, lngWH) End With سيتم تثبت مقاسات الفورم و ان لا تكون قابلة للتغيير

السلام عليكم استاذ @محمد أبوعبدالله هذا هو الملف الاصلي الكود لم يفعل شيء حول دبل كلك تحياتي data.accdb

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

تفضل هذا تعديل لإخفاء الأرقام الغير مستخدمة 2NM.zip

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

وجدت المثال في جهازي وهو للمبرمج أكسسنا Accessna بس لا أعرف من أي منتدى Accessna_ResizeTextBox_20190118.mdb

يمكنك استعمال هذا الكود في حدث عند الضغط على الزر Private Sub CommandButton1_Click() Dim iRow As Long, Lastrow As Long, i As Long With ورقة1 Lastrow = .Cells(.Rows.Count, 7).End(xlUp).Row For r = 3 To Lastrow If .Cells(r, 7) = TextBox1.Value Then iRow = .Cells(Rows.Count, 4).End(xlUp).Offset(1, 0).Row .Cells(iRow, 3).Value = Me.TextBox1.Value .Cells(iRow, 4).Value = Me.TextBox2.Value MsgBox " لقد تم الترحيل بنجاح ", vbExclamation + vbMsgBoxRight, "تم الترحيل " GoTo 1 End If Next End With MsgBox "لايوجد هذا الاسمً ", vbInformation + vbMsgBoxRight, "تنبيه" 1: TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub بالتوفيق

لا أدري أين المشكلة عندك ولكن إذا كنت تريد تطبيق ذلك على ملف آخر بامتداد xlsb أولا تفتح شاشة الفيجوال بيسك داخل اكسل ثم تضيف موديول جديد وتلصق فيه الكود الذي يتحقق من رقم الماذربورد Function MBSerialNumber(Optional strComputer As String = ".") As String Dim v, vName, vUUID With GetObject("winmgmts:\\" & strComputer & "\root\cimv2") For Each v In .ExecQuery("SELECT * FROM Win32_ComputerSystemProduct", , 48) vName = v.Name: vUUID = v.UUID Next v End With MBSerialNumber = vName & ", " & vUUID End Function ثم تضغط دبل كلك على thisworkbook وتلصق هذا الكود في حدث عند فتح الملف Private Sub Workbook_Open() Dim strMB1 As String, strMB2 As String, strMB3 As String 'Put Your MotherBoard Serial strMB1 = "HP ProDesk 490 G1 MT, FF004080-EE39-11E3-BFF8-A0D3C13F35B2" strMB2 = "HP Compaq 8500 Elite SFF PC, BFDEF800-AF9A-11E0-0000-2C27D742989F" strMB3 = "HP Compaq 8500 Elite SFF PC, BFDEF800-AF9A-11E0-0000-2C27D742989F" Select Case MBSerialNumber Case strMB1, strMB2, strMB3 Exit Sub Case Else MsgBox ("Data Security Failure. This Workbook Will Close") ActiveWorkbook.Close 1 End Select End Sub ثم تقوم بحفظ التغييرات وتغلق وتفتح الملف مرة أخرى بالتوفيق

السلام عليكم استاذي ومعلمي @jjafferr الموضوع انا اذكره جيدا (تكبير النموذج بدون تغطية شريط قائمة إبدأ) وعملت منه قاعدة بيانات متكاملة بارك الله فيك وجعلها في ميزان حسناتك كان طلبي فقط معرفة ان كان هنالك كود او وحدة نمطية لالغاء عمل DblClick في النموذج او قاعدة البيانات كلها وشكرا لك استاذي العزيز

السلام عليكم اكسس تختلف عن اكسل من حيث ان كل الخلايا مفتوحة .. في اكسس وفي نموذج ادخال البيانات لايظهر سجل جديد الابعد البدء بادخال بيانات السجل الذي قبله

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم =Round([totol];0) كسر عشري.accdb تحياتي

السلام عليكم كل عام وانتم بالف خير بعد اذن استاذي @محمد أبوعبدالله تغضل اتمنى ان يكون المطلوب data.accdb

تفضل بيانات وصور الموظفين.rar