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

Private Sub amount_BeforeUpdate(Cancel As Integer) If IsNull(Me.amount) Then Exit Sub Dim i, j As Integer i = DLookup("salary", "emp", "id=" & emp_name) j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) If j + Me.amount > i Then Undo MsgBox "المبلغ يتجاوز المرتب الشهري" Exit Sub End If End Sub delete2.accdb

تفضل finger print1.xlsx

اهلا اخونا العزيز واستاذنا القدير أبو بسمله .. نعم صحيح غفلت عنها ، زادك الله علما اما بالنسبة الى استبدال الاستعلام بالجملة البرمجية فهي جميلة ايضا ، وتحتاج الى تعديل طفيف لتصبح : j = Nz(DSum("amount", "salary", "emp_name=" & emp_name & " And Year([dated])=" & Year(Date) & " And Month([dated])=" & Month(Date)), 0) والسبب ان الحدث هو قبل التحديث والتاريخ ستتم كتابته بعد ادراج المبلغ على اعتبار ان المبالغ المدفوعة ستكون داخلة ضمن نطاق الشهر الحالي وهذا اعتقد انه منطقي وهو الذي يحدث على ارض الواقع جرب على مثالك امسح جميع المبالغ والسجلات في النموذج الفرعي ثم ادخل مبلغ 1000 ثم جرب وأدخل 1001 سيظهر خطأ ، الا لو جعلنا التاريخ افتراضي (تاريخ اليوم) ثم استبدل كودك بالكود اعلاه وجرب

حسب طلبك الذي الغيته : ان اردت القيمة عند فتح النموذج تكون ظاهرة في مربع التحرير فاستبدل الكود Private Sub Form_Load() Me.FS.RowSource = wrCombVal End Sub بهذا Private Sub Form_Load() Me.FS.RowSource = wrCombVal Me.FS.SetFocus Me.FS.Text = wrCombVal End Sub

السلام عليكم ورحمة الله اخى الكريم ضع المعادلة التالية فى الخلية "B5" ثم اضغط Ctrl+Shift+enter ثم اسحب نزولا =IFERROR(INDEX(ورقة1!$A$2:$C$152;SMALL(IF(ورقة1!$A$2:$A$152=$F$2;ROW(ورقة1!$A$2:$C$152));ROW(A1))-1;3);"") اما المعادلة التالية فضعها فى الخلية "C5" و كرر ما سبق =IFERROR(INDEX(ورقة1!$A$2:$C$152;SMALL(IF(ورقة1!$A$2:$A$152=$F$2;ROW(ورقة1!$A$2:$C$152));ROW(A1))-1;2);"")

الاعلان عن متغير عام Public wrCombVal As String هذا المتغير يأخذ قيمته عند النقر على الزر في اي نموذج من النماذج الثلاث جعل مربع التحرير يأخذ قيمة المتغير wrCombVal عند فتح النموذج Private Sub Form_Load() Me.FS.RowSource = wrCombVal End Sub تفضل FFF2.accdb

المفترض الكود يتعامل مع الجداول بغض النظر عن النموذج الرئيسي او حتى الفرعي بمعنى تعمل حدث قبل التحديث للحقل في النموذج الفرعي فإذا كانت القيمة صحيحة يتم القبول والتحديث والا يتم الغاء القيمة كيف ؟ الكود هذا يشتمل على : 1- سطر يجلب راتب الموظف من الجدول الرئيس 2- سطر يجلب من الجدول الفرعي مجموع ما تم دفعه للموظف خلال هذا الشهر 3- سطر يجمع ما تم دفعه سابقا + القيمة المدرجة في الحقل 4- تتم المقارنة بين القيمتين 1 و 3

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

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

في صفحة مستقلة اكتب النتائج التي تتوقعها (و لا ضرورة لادراج اكثر من 200 ضف ) 15 الى 20 صف تكفي

معلمى العزيز @ابوخليل طالما سوف يتم النظر الى الشهر فيجب النظر الى الشهر والسنه معا اليس كذلك وعليه يجب تعديل السطر التالى ويتم الاستغناء عن الاستعلام qryAmountInMonth يجب ادخال التاريخ قبل المبلغ j = DSum("amount", "qryAmountInMonth", "emp_name=" & emp_name) الى j = Nz(DSum("amount", "salary", "emp_name=" & emp_name & " And Year([dated])=" & Year([dated]) & " And Month([dated])=" & Month([dated])), 0) delete2.accdb

تفضل هذا الموضوع

السلام عليكم ورحمة الله هذي بعض الملفات قد تجد فيه ما تبحث عنه اختبار الاتصال بالنت بصفة عامة واتصال WiFi بعض الملفات من موقع اجنبي وواحد من موقع عربي بالتوفيق إن شاء الله الاتصال.rar

وعليكم السلام ورحمة الله وبركاته أعتقد أن موضع السؤال كان يجب وضعه بقسم الفجول بيسك أو ال C# ولكن لا بأس ان قمت بالبحث قليلا فستجد فديوهات كثيرة تشرح هذا الأمر بالتفصيل وسأضع لك رابط أحدها هنا ان شاء الله ولكن لو بدأت مع نماذج الأكسس فتكون الواجهة أكسس والخلفية أكسس أيضا خاصة ان كنت مبتدأ مثلي بالمجال فسيكون الأمر يسير عليك ان شاء الله فتصميم واجهات الأكسس وربطها بالجداول ايسر وأسرع بالتعلم ان شاء الله وبهذا المنتدي ما يسرك بهذا الشأن أما عن الـ vb.net فاليك هذا الرابط فهو يشرح أمر الاتصال بطريقة ميسرة تفضل لعله يفيدك

اتفضل ابو اشرف ان شاء الله يكون ما تريد وتعديل عالكود Private Sub أمر36_Click() f = Me.salary_نموذج_فرعي!amount If f > Me.salary Then DoCmd.RunCommand acCmdDeleteRecord End If End Sub بالتوفيق delete2.accdb

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

للمرة المائة بعد الالف استقلالية الجدول و عدم ادراج خلايا مدمجة في داخله تم ادراج صفين فارغين تماماً( 7 و 8 ) و تم اخفائهما لعدم الكتاية فيهما عن طريق الخطأ مما يؤثر سلباً على الكود الكود Option Explicit Sub Myfilter() Dim sh As Worksheet Dim Ar_Sh(), AR_comp(), I% Dim RG_Filter As Range, Ro%, K% With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Set sh = Sheets("2021-3") Set RG_Filter = sh.Range("B8").CurrentRegion If sh.AutoFilterMode Then RG_Filter.AutoFilter Ro = RG_Filter.Rows.Count AR_comp = Array("شركة", "بنك مصر", "معاش") Ar_Sh = Array("Company", "Salery", "Bank") For I = LBound(Ar_Sh) To UBound(Ar_Sh) Sheets(Ar_Sh(I)).Range("A10:R1000").Clear RG_Filter.AutoFilter 4, AR_comp(I) RG_Filter.Cells(2, 1).Resize(Ro - 1, 18) _ .SpecialCells(12).Copy With Sheets(Ar_Sh(I)).Range("A10") .PasteSpecial (8) .PasteSpecial (12) K = .CurrentRegion.Rows.Count .Offset(K) = "Sum" .Offset(K, 6).Resize(, 12).Formula = _ "=SUM(G10:G" & K + 9 & ")" .Offset(K, 6).Resize(, 12).Value = _ .Offset(K, 6).Resize(, 12).Value .Offset(K).Resize(, 18).Interior.ColorIndex = 35 With .Resize(K + 1, 18) .Borders.LineStyle = 1 .Font.Size = 14 .InsertIndent 1 End With .Offset(K).Resize(, 6).HorizontalAlignment = 7 End With Next If sh.AutoFilterMode Then RG_Filter.AutoFilter With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With sh.Activate Range("g9").Select End Sub الملف مرفق Nafal.xlsm

وعليكم السلام-تفضل 1مرتبات.xlsx

الاساتذة الكرام تحية طيبة وبعد ارجو المساعدة فى تنفيذ هذا الفيديو فى ملف اكسل بخصوص كود لترجمة جوجل فى الاكسل من اللغة الانجليزية إلى العربية مع جزيل الشكر Public Function TERCUME(Kelime As Range, SL As String, TL As String) Dim ie As New InterntExplorer Dim doc As HTMLDocument sltl = "sl" & SL & "&" & "tl" & TL ie.navigate "https://translate.google.com/?hl=ar#view=home&op=translate&" & sltl ie.Visible = False Do DoEvents Loop Until ie.readyState = READYSTATE_COMPLETE Set doc = ie.document Set kelimex = doc.getElementsByClassName("orig tlid=source=text-input goog-textarea")(0) kelimex.Value = Kelime Beklet (2) Set cevap = doc.getElementsByClassName("tlid-translation translation")(0) TERCUME = cevap.innerText ie.Quit Set ie = Nothing End Function Public Function Beklet(beklemezamanl As Double) Start = Timer Do DoEvents Loop Until (Timer = Start) >= beklemezamanl End Function

أخى الكريم اهلا بك فى المنتدى كان عليك قبل طرح السؤال والمشاركة استخدام خاصية البحث فى المنتدى فتناول المنتدى هذا الأمر بشكل كثير ومنه : https://www.officena.net/ib/topic/52587-المساعدة-فى-جعل-الحروف-الاولى-فى-الجمل-capital/ https://www.officena.net/ib/topic/51623-كيفيه-التحويل-كتابه-من-small-الى-capital-و-العكس/ وهذا ملف ايضا الحروف الاولى فى الجمل capital.xls

تفضل Translation Names .rar

السلام عليكم أحبتي في الله عذرا أخي ياسر كنت أظن أن تحويل الدالة لكود أمر سهل وخاصة بعد ما عرضت الفكرة وعلى العموم هذا الملف بعد تحويل الدالة لكود حتى تعم الفائدة Mas_Translator2.rar

حل اللغز ترجمة ترجمة.rar

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

تم عمل بعض التعديلات : و هي عدم عرض التقارير و طباعتها في حال عدم وجود بيانات و اظهار رسائل للمستخدم دوري كرة قدم .rar

بارك الله فيك استاذ رضوان و في الاستاذ الرائع مهند عبادي .. تحفة جميلة و بها فوائد كثيرة فلك وله الشكر الجزيل اخي Soma مرفق البرنامج حسب المطلوب 1:يتم تسجيل الفرق اولاً. 2: ثم يتم تسجيل اللاعبين . 3: ثم يتم تدوين مباريات الدوري ( من زر الدوري ) 4: و عند تعبئة بيانات كل مباراة و نتيجتها سيتم الضغط على الزر الصغير بجانب كل مباراة ( و الذي يحمل علامة الصح ) لتدوين نتيجتها مع ملاحظة اذا تم تدوين النتيجة سيفعل مربع الخيار ليوضح ان نتيجة المباراة قد دونت و في حالة الضغط على الزر و كانت علامة الصح موجودة سيرفض البرنامج و تظهر رسالة بأن النتيجة قد تم تسجيلها مسبقاً. 5: لتدوين الاهداف و الكروت يتم الضغط دبل كليك للفريقين الاول و الثاني كل على حده في شاشة الدوري عندها ستفتح شاشة اللاعبين في حالة تصفيه لتظهر فقط اللاعبين التابعين للفريق المحدد ( الذي تم عمل دبل كليك عليه ) علماً بأن اهداف اللاعبين تضاف فقط في خانة ( اهدافه في المباراة ) و التي ستضاف تلقائياً الى مجموع اهداف اللاعب. 6: بالنسبه للكروت الصفراء فيتم اختيار عددها ، اما الكرت الأحمر فهو عباره عن مربع اختيار يتم وضع علامة الصح عليه اذا حصل اللاعب على كارت احمر. 7: يوجد بالشاشة الرئيسية ازرار لطباعة بعض النتائج . 8: زر حذف جميع بيانات الدوري يتم عند الانتهاء من الدوري و الرغبة في استخدام البرنامج مرة اخرى و لتفعيل زر الحذف يتم التأشير على مربع الخيار بجانبه. ملاحظه : بفضل دائماً الضغط على زر الحفظ في جميع الشاشات بعد اكتمال المدخلات . الفكرة عملتها مبسطة جدا و لدوري واحد فقط و هي قابلة للتطوير ارجو ان تفي بما يبحث عنه اخي السائل بالتوفيق للجميع دوري كرة قدم .rar

برنامج من تصميم الأخ مهند عبادي يتم فك الملف في نفس المجلد و ربط قاعدة الباينات مع الواجهة Soccer.rar

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

الاداة بالمرفق تترجم كل شيء وبأى لغة ارجوا ان يكون هذا ما تريد تحياتى،،، Translation Names.rar

السلام عليكم الملف الذي في الرابط جربته بيعمل بكفائة

شاهد الرابط التالي http://www.officena.net/ib/index.php?showtopic=41211

اخواني الكرام السلام عليكم و رحمة الله وبراكاته هذه الدالة للترجمة من الانجليزية الى لغات العالم اكتب النص بالانجليزية ثم اختر اللغة من القائمة المنسدلة ارجو ان يحوز اعجابكم دالة ترجمة.xls

السؤال للأخ ابو وليد وهو: لو حبيت اضيف سجل جديد على الجدول وابغى رقمه يكون مثلا 6 كيف اخلي رقم 6 يصير 7 وهكذا للي بعده يعني 7 يصير 8 ........الخ

لعمل ما قبله فى الصفحة الثانية ثم تجمع فى النهاية وتظهر فى الصفحة الثالثة وهكذا اتبعوا الخطوات التالية للخبير أبو هادي : *************************************** بافتراض أن العمود المطلوب جمعه هو [الصافي] ------------------------------ أولا : في Detail إعمل عمود آخر بإسم [الصافي2] ثم من Properties من Data اختر Over All لـ Running Sum من Format اختر No لـ Visible ----------------------------- ثانيا : في Page Header إعمل Text Box بإسم [ماقبله] ثم من Properties من Data أكتب [الصافي]-[بعده]= في الـ Control Source ----------------------------- ثالثا : في Page Footer إعمل Text Box بإسم [بعده] ثم من Properties من Data أكتب [الصافي2]= في الـ Control Source -----------------------------

لإخفاء الجدول CurrentDb.TableDefs("table1").Attributes = dbHiddenObject لإظهار الجدول CurrentDb.TableDefs("table1").Attributes = 0

سؤال عن كيفية ايجاد قيمة من جدول الملف المرفق في الملف المرفق يوجد شرح للمطلوب فمن الصعوبة الشرح هنا

من هنا

في حدث عند عدم الوجود في القائمة ضع الكود التالي مع تغيير اسم القائمة : If MsgBox("هذا البند غير موجود بالقائمة ." _ & vbCrLf & "هل ترغب بإضافته إلى بنود القائمة ؟" _ , vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading) = vbYes Then Response = acDataErrAdded LimitToList = False [اسم القائمة].RowSource = [اسم القائمة].RowSource & ";" & NewData DoCmd.Save LimitToList = True End If[/sql] يجب وضع التزام بالقائمة إلى نعم . ****************** أبو حمود

إضافة رسم خلفي لتقرير بإضافة رسم خلفي لتقرير، يمكنك محاكاة إحدى العلامات المائية الموجودة على بعض الورق، وتنطبق الصورة الخلفية في التقرير على كافة صفحاته . 1- افتح التقرير في طريقة عرض "التصميم" . 2- انقر نقراً مزدوجاً فوق محدد التقرير لفتح صفحة الخصائص . 3- اختر تنسيق ثم قم بتعيين خاصية "رسم " ، انقر الزر " إنشاء " وحدد ملف صورة بامتداد ( bmp. ، ico. ، wmf ، dib أو emf ) 4- في مربع خاصية "نوع الرسم" حدد ما إذا كنت تريد الرسم مضمناً أم مرتبطاً. عندما تقوم بتضمين أحد الرسومات، فإنه يكون محفوظاً في ملف قاعدة البيانات. وإذا أردت استخدام مساحة القرص الثابت بكفاءة، حدّد الإعداد "مرتبط". 5- خاصية "وضع حجم الرسم". لهذه الخاصية ثلاثة إعدادات: ·قطع :يعرض الرسم بالحجم الفعلي. إذا كان الرسم أكبر من المساحة الواقعة بين الهوامش، سيتم قطعها. ·توسع :يغير حجم الصورة بما يناسب المساحة الواقعة بين الهوامش. قد يشوه الأعداد الرسم. ·تكبير :يغير حجم الصورة بما يناسب إما ارتفاع المساحة الواقعة بين الهوامش أو عرضها. هذا الأعداد لا يقطع الصورة ولا يشوه نسبها. 6 - يمكنك تحديد وضع الصورة على الصفحة بتعيين خاصية " محاذاة الرسم" فيحاذي الرسم ضمن هوامش التقرير. الإعدادات المتاحة هي "أعلى اليسار "،" أعلى اليمين "،" وسط "،" أسفل اليسار " و "أسفل اليمين " . 7- يمكنك تكرار الصورة عبر الصفحة بتعيين خاصية " تجانب الرسومات " إلى " نعم " فيبدأ التجانب عند الوضع المحدد في خاصية "محاذاة الرسم ". ملاحظة : تتجانب رسومات الخلفية بشكل أفضل عندما يكون تم تعيين خاصية "وضع حجم الرسم" إلى " قطع " . 8- يمكنك تحديد صفحات التقرير التي سوف تظهر الصورة فيها وذلك بتعيين خاصية " صفحات الرسوم ". والإعدادات المتاحة هي " كافة الصفحات" و "الصفحة الأولى " و" دون صفحات ".

نفرض أن لديك فاتورة مطبوعة جاهزة وتريد أن يكون عدد الأصناف التي تأخذها الفاتورة لا يتعدى 10 أصناف مثلا . وبافتراض أن الفاتورة مكونة من جدولين أحدهما رئيسي وهويحتوى على رقم الفاتورة واسم العميل والتاريخ ونوع الفاتورة والثاني فرعي ويحتوى على الصنف والعدد ورقم الصنف والسعر والجمالى فى حد عند الحالى للنموذج الفرعي للفاتورة ضع الكود التالى : Private Sub Form_Current() If Me.Recordset.RecordCount >= 10 Then Me.AllowAdditions = False Else Me.AllowAdditions = True End If End Sub

أولأ أعتذر عن التاخير لظروف كثيره اجتمعت معا : ********************************************** أحب أن أطرح هنا فكرة جديدة تهدف إلى تجاهل همزة الألف عند الكتابة لأن بعضهم يعتبر الهمزة مشكلة لأنه أحياناً يدخل ألف مهموزة أو بدون همزة مثل ( أحمد - احمد ) وتهدف الفكرة إلى تجاهل الألف المهموزة و الممدودة و استبدالها بألف بدون همزة .. في الوحدة النمطية العامة أضف : Function ForTrAlfbet(Astr As Variant) As String Dim L1 As String, L2 As String, NewStr As String If Nz(Astr, "") = "" Then Exit Function Astr = CStr(Astr) L1 = Mid(Astr, 2, Len(Astr)) L2 = Mid(Astr, 1, 1) Select Case Asc(L2) Case 194, 195, 197: L2 = Chr(199) Case Else: L2 = L2 End Select NewStr = L2 & L1 ForTrAlfbet = NewStr End Function ' Asc(" آ ") = '194 ' Asc(" أ ") = '195 ' Asc(" إ ") = '197 ' Asc(" ا ") = '199 و في حدث بعد التحديث للعنصر أضف : Private Sub First_Name_AfterUpdate() First_Name = ForTrAlfbet(Nz(First_Name)) End Sub ******** اقتباس للأخ / فينوس