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

اذا كان الامر بهذه الصورة البسيطة وفقا لمثالك المرفق كود استعلام ممكن يحل المشكلة اعمل زر امر وفي حدث عند النقر ضع الامر DoCmd.RunSQL "UPDATE [Table] SET [Table].[sheet 2] = [Table]![sheet 1];" جربت الامر على 90000 سجل وحدث خلال ثواني

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

إن شاء الله تقوم هذه المعادلة بالغرض =IF(A1<C1,IF(FLOOR.MATH(A1,10)=FLOOR.MATH(C1,10),C1,""),"")

السلام عليكم ورحمة الله ضع هذه المعادلة فى الخلية "B" ثم اضغط Ctrl+Shift+Enter ثم اسحب عرضا وطولا =IFERROR(INDEX(ورقة1!$B$4:$E$8;SMALL(IF(ورقة1!$E$4:$E$8>0;ROW(ورقة1!$E$4:$E$8));ROW(A1))-3;COLUMN()-1);"")

السلام عليكم أقد م لكم مكتبة أكواد الاكسيس حصاد 9 سنوات نسأل الله القبولVBALibrary.rar

السلام عليكم و رحمة الله وبركاته Dim FS As Worksheet, TS As Worksheet Dim TR, FR, FC, TC Set FS = Sheets("order2") Set TS = Sheets("save") TR = Application.CountA(TS.Range("A:A")) + 3 With TS 3 If Cells(TR, 1) <> "" Then TR = TR + 1 GoTo 3 End If .Cells(TR, 1) = FS.Cells(4, 4) .Cells(TR, 2) = FS.Cells(4, 7) .Cells(TR, 3) = FS.Cells(5, 4) .Cells(TR, 4) = FS.Cells(6, 4) .Cells(TR, 5) = FS.Cells(4, 11) .Cells(TR, 6) = FS.Cells(5, 11) .Cells(TR, 7) = FS.Cells(7, 4) .Cells(TR, 8) = FS.Cells(6, 11) .Cells(TR, 9) = FS.Cells(7, 11) .Cells(TR, 10) = FS.Cells(8, 4) .Cells(TR, 11) = FS.Cells(8, 6) .Cells(TR, 12) = FS.Cells(8, 8) .Cells(TR, 13) = FS.Cells(8, 10) .Cells(TR, 14) = FS.Cells(8, 12) TC = 17 For FR = 10 To 19 For FC = 2 To 11 .Cells(TR, TC) = FS.Cells(FR, FC) TC = TC + 1 Next 'FC Next 'FR End With تفضل السلام عليكم و رحمة الله وبركاته Dim FS As Worksheet, TS As Worksheet Dim TR, FR, FC, TC Set FS = Sheets("order2") Set TS = Sheets("save") TR = Application.CountA(TS.Range("A:A")) + 3 With TS 3 If Cells(TR, 1) <> "" Then TR = TR + 1 GoTo 3 End If .Cells(TR, 1) = FS.Cells(4, 4) .Cells(TR, 2) = FS.Cells(4, 7) .Cells(TR, 3) = FS.Cells(5, 4) .Cells(TR, 4) = FS.Cells(6, 4) .Cells(TR, 5) = FS.Cells(4, 11) .Cells(TR, 6) = FS.Cells(5, 11) .Cells(TR, 7) = FS.Cells(7, 4) .Cells(TR, 8) = FS.Cells(6, 11) .Cells(TR, 9) = FS.Cells(7, 11) .Cells(TR, 10) = FS.Cells(8, 4) .Cells(TR, 11) = FS.Cells(8, 6) .Cells(TR, 12) = FS.Cells(8, 8) .Cells(TR, 13) = FS.Cells(8, 10) .Cells(TR, 14) = FS.Cells(8, 12) TC = 17 For FR = 10 To 19 For FC = 2 To 11 .Cells(TR, TC) = FS.Cells(FR, FC) TC = TC + 1 Next 'FC Next 'FR End With تفضل المصنف1.xlsm

السلام عليكم نقدم لكم مكتبة الأكسيس حصاد السنين الاصدار الرابع نسال الله القبول الاصدار V4 https://drive.google.com/file/d/1Ff6hW3ujEmtQ6hvz4fa32BGNZv_Dr4xs/view?usp=sharing والاصدار v4.1 https://drive.google.com/file/d/16bCBvALoJ_kl4wSedAqEAb50m6sJrTiC/view?usp=sharing

وعليكم السلام 🙂 اذا اردت ان تجعل هذه القيمة الافتراضية في النموذج ، فيجب ان يكون النموذج في وضع التصميم ، ويمكن عمل كود يغلق النموذج ثم يفتحه بصورة مخفية ويضع الكود فيه ويحفظه ويغلق النموذج ، ولكنها طريقة غير محبذه ولا يمكن استعمالها في قواعد البيانات بصيغة accde و mde ، فالافضل ان يكون عندك جدول خاص لهذه الاعدادات ، تقدر تحفظ فيه اي قيمة ، ولما تفتح النموذج ، تطلب هذه القيمة من الجدول 🙂 جعفر

السلام عليكم الكود التالي يمكنك من تغيير التسمية الظاهرية للأزرار في نموذج آخر اسمه frm1 Dim frm As Form Dim fc As Control Set frm = Form_frm1 For Each fc In frm.Controls If fc.ControlType = 104 Then fc.Caption = "officena" End If Next fc Set frm = Nothing التحكم في الأزرار.accdb

تفضل ... NEW (4).accdb

🙂 1. عملت استعلام علشان احصل على مجاميع اسماء المدارس ، بدون تكرار: . 2. ثم استعلام آخر ، حتى يعطينا جميع سجلات المدرسة ، حسب قيمة الحقل cbo_schoole في النموذج tsform ، والذي سنغيره برمجيا : . 3. ثم فتحت النموذج fform ، وحفظت نسخة منه الى تقرير : . 4. تم حفظ التقرير باسم rpt ، ومصدر بياناته كان الاستعلام 2 اعلاه ، وعدلت على ارتفاعه ليكون نصف صفحة تقريبا ، حتى نضع تقريرين في كل صفحة pdf : . 5. وعملت هذه الدالة على زر "بيان درجات الطالب" ، لكي يتم تصدير التقارير لمفات pdf ، لكل مدرسة ملفها الخاص: Private Sub أمر26_Click() 'On Error Resume Next 'DoCmd.OpenReport "استيكر لغات", acViewPreview 'Me.Visible = False On Error GoTo err_Handle Dim rstG As DAO.Recordset Dim File_Name As String 'get the Group school names Set rstG = CurrentDb.OpenRecordset("Select * From qry_1_School_Name_Group") rstG.MoveFirst 'always start from the begining 'loop through the Group school names Do Until rstG.EOF 'assign the school name to the field, and apply its event, for visual looks Me.cbo_schoole = rstG!School_name Call cbo_schoole_AfterUpdate 'output pdf file name File_Name = Application.CurrentProject.Path & "\" & Me.cbo_schoole & ".pdf" Kill File_Name 'Delete old file, if any 'output the Reports as pdf file DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, File_Name, False, , , acExportQualityPrint 'next school rstG.MoveNext Loop Exit_err_Handle: 'cleaning up rstG.Close: Set rstG = Nothing Exit Sub err_Handle: If Err.Number = 53 Then 'no file to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If Resume Exit_err_Handle End Sub جعفر 1394.تصدير بي دي اف لكل مدرسة على حدى.mdb.zip

استخراج هذه البيانات من رقم الهوية او الرقم القومي نستخدم في دالة Mid بشكل اساسي محافظات مصر معروف لدي رقم الكود لكل محافظة اما بالنسبة لمحافظات السعودية فحقيقة ليس لدي جدول باسماء المحافظات ولا برقم الكود لكل محافظة لكن كما ذكرت لك الموضوع بمجمله يستخدم دالة Mid تحياتي

دالة التفقيط تعمل جيدا بملف المصدر ولكن باستخدام أوفيس 2003 وتحويل الملف إلى mde يظهر خطأ في أي نسخة أوفيس عدا نسخة أوفيس 2003 أما ملف المصدر فيعمل جيدا على أي أوفيس والمطلوب : تعديل كود التفقيط حتى لا يظهر خطأ عند استخدام أوفيس 2003 في التحويل إلى الصيغة المشفرة mde New_Database.mdb New_Database_mde.mdb

وعليكم السلام ورحمة الله وبركاته تفضل اخي الكريم تحياتي

و عليكم السلام و رحمة الله وبركاته بعد اذن الاستاذ نذار اخي ابو جاسم هذا حل بطريقة اخرى تم اضافة عمود AM في ورقة المارينا لجلب البيانات الى ورقة تقرير شاهد المرفق غير التاريخ تظهر النتائج و لكم تحياتي june (1).xlsx

بإذن الله يكون هذا هو المطلوب تفضل test1.xlsm

عذرا ما انتبهت انك وضعت مرفق في ردك على الاستاذ @kanory لذا اذا اردت بنفس فكرتك ممكن نستخدم امر فتح نموذج ونحمل قيمة في بارامتر OpenArgs ليكون امر الامر DoCmd.OpenForm "frm_2", , , , , , "1" ثم في نموذج البينات في حدث عند الفتح نضع الامر التالي If Not IsNull(Me.OpenArgs) Then Dim k As String k = "SELECT Table.* FROM [Table] WHERE (((Len([no]))<6 Or (Len([no]))>6));" Form.RecordSource = k End If من المؤكد ان هناك طرق اخرى لتنفيذ ولكن اعتقد هذه الاسهل والله اعلم الملف مرفق بيانات 22.mdb

اذا كان فهمي للموضوع صحيح انظر الاستعلام ..... بيانات.mdb

بارك الله فيكم جميعاً وفى جهودكم ... ويمكنك أيضاً مشاهدة هذا الفيديو لمعرفة كيفية اضافة هذه الدالة داخل الإكسيل

فضلا انظر للمرفق وان شاء الله تجد الحل https://ar.passfab.com/excel/forgot-excel-password.html مع الشكر

جرب هذا الملف بحث.xlsm

-------->>>>>> تفضل ::::::: تجربة_7652.accdb

السلام عليكم و رحمة الله و بركاته لدى تصفحي لأحد المواقع الأجنبية وجدت هذا المثال لشاشة رقمية تقوم بعرض الرقم بطريقة فريدة و أحببت المشاركة مع إخواني في المنتدى .. Digital Display.mdb

اتفضل هناك احتمال ان لا يشتغل نموذج كلندر وجزاك الله كل خير VBALibraryAccessVer4-2003.zip

السلام عليكم جزاكم الله خيرا على تشجيعكم الاصدار الثانى بعد الاضافات VBALibraryAccessVer2.rar