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

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

والله لا اعلم ماذا اقول لكي اكفيكَ حقك لجهودك الكريمة لا يسعني سوى ان اقول زادك الله علما ومعرفة ووفقك لما تحب وترضى. يا ترى استاذي ما هي المشكله التي كانت وكيف حلها

انسخ و الصف الكود في حدث لأي ازرار مرفق التعديل On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL "SELECT sheet.dept_code, sheet.dept_name, " _ & " Val(Nz(DCount('*','sheet',' dept_code= ' & [dept_code] & ' and c_moslem = 1'),0)) AS مسلم, " _ & " Val(Nz(DCount('*','sheet',' dept_code= ' & [dept_code] & ' and c_moslem = 2'),0)) AS مسيحي, " _ & " Val(Nz(DCount('*','sheet',' dept_code= ' & [dept_code] & ' and c_male = 1'),0)) AS ذكر, " _ & " Val(Nz(DCount('*','sheet',' dept_code= ' & [dept_code] & ' and c_male = 2'),0)) AS انثى, " _ & " Val(Nz(DCount('*','sheet',' dept_code= ' & [dept_code] & ' '),0)) AS جملة " _ & " INTO sheet1 FROM sheet GROUP BY sheet.dept_code, sheet.dept_name;" DoCmd.SetWarnings True MsgBox "تم جمع البيانات بنجاح" & vbNewLine & "New Table Name" & " : " & " sheet1 ", vbInformation + vbMsgBoxRight, "تأكيد" sheet_hani.mdb

عليكم السلام والرحمة استاذ Ahmed kashoob تفضل هذه المحاولة ارجو ان تكون موفقة ملاحظة: تم انشاء زر امر لاجراء الاختبار بعد اضافة رقم الدورة والرقم الوظيفي وبداية ونهاية الدورة يمكن تبديل مكان الكود بعد التحديث لتاريخ الدورة مثلا سجل دورات الموظفين-2.rar

أعزائي المتعلمين الكرام، السلام عليكم ورحمة الله وبركاته، من خلال هذه المنصة التعليمية الرائدة في تقديم المعرفة وتبادل الخبرات التعليمية فإنني سأقدم لكم سلسلة دروس تعليمية توضح لكم كيفية التوثيق العلمي المتعلقة بعمليات التوثيق قي بحوث تعليم الاجتماعيات وفق نظام التوثيق العلمي Chicago Notes & Bibliography Style. كما سأقوم بإذن الله بالإجابة عن أسئلتكم المتعلقة بهذا الموضوع فأهلا وسهلا بكم

الكود وضع في مشاركة أخرى عن طريق الخطأ Private Sub احسب_Click() Me.OrderByOn = True OrderBy = "التاريخ ASC" DoCmd.Requery On Error Resume Next Dim i As Integer Dim co As Integer co = DCount("*", "[qhodoor1]") DoCmd.GoToRecord , , acFirst For i = Val(num) To co + Val(num) - 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''صباحي If [الوردية] = "صباحي" Then If [الانصراف] > [الحضور] Then [عددالساعات] = [الانصراف] - [الحضور] [اجمالي] = [عددالساعات] End If End If ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''وردية سهر If [الوردية] = "سهر" Then [عددالساعات] = [الانصراف] - [الحضور] + 1 End If If [الوردية] = "سهر" And [عددالساعات] >= "12:00:00" Then [اجمالي] = "12:00:00" End If If [الوردية] = "سهر" And [عددالساعات] <= "12:0:00" Then [اجمالي] = [عددالساعات] - [خصم] End If If [خصم] = Null Then [خصم] = "0.0" End If DoCmd.GoToRecord , , acNext Next i DoCmd.Requery Exit Sub DoCmd.Requery End Sub

تفضل لك ما طلبت كل ما عليك فعله هو تغيير الرقم الموجود بالخلية M1 ... لما تريد 1رواتب.xlsm

كان البحث في العمود ID تفضل التعديل DATA14.mdb

يظهر أن هناك خطأ في التصميم أو المعادلة، جرب أعكس الوقت أجعل تاريخ الحضور هو الإنصراف و الأنصراف هو الحضور سوف تظهر النتيجة صحيحة.

السلام عليكم انطلاقاً من الكود الموجود إليك: Sub Test() Dim lr1, lr2 Dim i Application.ScreenUpdating = False Cells(5, 1).CurrentRegion.Offset(1).ClearContents For i = IIf(Range("m3") = "", 1, Range("m3")) To IIf(Range("m3") = "", Sheets.Count - 1, Range("m3")) - 1 With Sheets(CStr(i)) lr1 = Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets(CStr(i)).Range("A3:L1800").AdvancedFilter Action:=xlFilterCopy, _ CriteriaRange:=Range("A2:L3"), CopyToRange:=Range("A" & lr1 & ":L" & lr1) Cells(lr1, 1).Resize(, 12).Delete lr2 = Cells(Rows.Count, 1).End(xlUp).Row + 1 Range(Range("a" & lr1), Range("a" & lr1).End(xlDown)).Offset(, 12) = i End With Next Range("I10").Select Application.ScreenUpdating = True End Sub

وعليكم السلام -تفضل تم ضبط الملف كما تريد 2.xlsb

يا سلام ، انا واخي السيد @husamwahab حلينا الموضوع ، وبدون مشاركة 🙂 يعني لو كان اسمي فقط ، كنتوا بتقولون: عماني وساحر 🙂 جعفر

سأحاول التفكير بصوت مرتفع 🙂 1 - محاولة أولى: أزل acHidden و أزل السطر الثالث لتستمتع برؤية تقرير الأكسس وبعد تصديره اقفله يدويا. 2 - محاولة ثانية: دع عنك خيارات المحاولة الأولى ثم احشر الأمر DoEvents بعد سطر فتح التقرير وقبل سطر تصديره أي سيكون ترتيبه الثاني بين الأربعة أسطر. أعتقد المشكلة أن أمر اغلاق التقرير يبدأ تنفيذه قبل اتمام معالجة التصدير. لا أستطيع الجزم.

جرب هذا الملف Takrir.xlsx

وعليكم السلام 🙂 اول خطوة تعملها هو تصفية برنامجك من الشوائب ، عن طريق . واذا لازالت المشكلة مستمرة ، فنريد يا المرفق ، ويا الكود كاملا للتقرير (الكود اعلاه يصدر ملف pdf مرة واحدة ، بينما انت تقول انك تصدره عدة مرات) . جعفر

وعليكم السلام-يمكنك استخدام هذه المعادلة =IF($N5="","",OFFSET($B$4,MATCH($O5,$B$5:$B$13,0),MATCH($N5,$C$4:$L$4,0))) اكثر من شرط في الدالة1.xlsx

وعليكم السلام اخى هانى شوف الاستعلام الجدولى sheet_Crosstab والتقرير sheet_Crosstab لعله يفيدك ان شاء الله بالتوفيق sheet_hani(1).mdb

أعزائي المتعلمين محبي العلم، السلام عليكم ورحمة الله وبركاته، من خلال هذه المنصة التعليمية الرائدة في تقديم المعرفة وتبادل الخبرات التعليمية فإنني سأقدم لكم سلسلة دروس تعليمية توضح لكم كيفية التوثيق العلمي المتعلقة بعمليات التوثيق قي البحوث في العلوم الاجتماعية والتربوية وفق نظام التوثيق العلمي (APA) الاصدار السابع. كما سأقوم بإذن الله بالإجابة عن أسئلتكم المتعلقة بهذا الموضوع فأهلا وسهلا بكم

السلام عليكم انظر للرابط والمرفق لعله يفيدك في طلبك تحياتي https://www.youtube.com/watch?v=gUm_IDhH8Ak ارسال ايميل عن طريقى الاكسس نصي او مرفق به تقرير (بدون اكواد).rar

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