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

السلام عليكم 🙂 وعيدكم مبارك ان شاء الله 🙂 اخي ابوحسان ، هل لازلنا نعمل في حدود قوانين المنتدى وهو سؤال واحد لكل موضوع؟ انا اعرف ان اخي الدكتور حسين لا يمل من الاجابة ، ومن اخلاقة انه يستحي ان يقول لا 🙂 جعفر

وعليكم السلام أستاذنا الكريم وكل عام وانتم بخير وعيد سعيد عليكم جميعا -يمكنك تجربة الخطوات الموجودة بهذا الرابط ازالة فيروس الفدية في 9 خطوات وفك تشفير الملفات بدون فورمات

جزيل الشكر .. لكم اخي سليم ونسال الله لكم التوفيق

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

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

تفضل هذا التعديل empoyee - Copie (1) (1).accdb

عليكم السلام. Sub sendOutlookEmail() Dim oApp As Outlook.Application Dim oMail As MailItem Set oApp = CreateObject("Outlook.application") Set oMail = oApp.CreateItem(olMailItem) oMail.Body = "Body of the email" oMail.Subject = "Test Subject" oMail.To = "Someone@somewhere.com" oMail.Send Set oMail = Nothing Set oApp = Nothing End Sub

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

استخدم دالة Trim Trim([num]) num اسم الحقل الذي توجد مسافة او فراغ في بدايته اخي عزيز لو وضعت موضوع جديد افضل من رفع موضوع قديم وكل عام وانتم بخير

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

اظن انه ليس هناك حاجة لاستعمال البوزرفورم (فقط اضغط الزر GO في الصفحة Target ) الكود Option Explicit Sub AL_in_One() Dim T As Worksheet Dim Sh As Worksheet Dim arr(), itm Dim Max_ro%, k% Dim Adr1%, Adr2% Dim F_rg As Range arr = Array("First", "Second", "Third") Set T = Sheets("Target") T.Range("A1").CurrentRegion.Offset(1).Clear k = 2 For Each itm In arr Set Sh = Sheets(itm) Max_ro = Sh.Cells(Rows.Count, 2).End(3).Row Set F_rg = Sh.Range("o2").Resize(Max_ro).Find("*", lookat:=1) If Not F_rg Is Nothing Then Adr1 = F_rg.Row: Adr2 = Adr1 Do T.Range("B" & k).Resize(, 21).Value = _ Sh.Range("B" & Adr2).Resize(, 21).Value T.Range("W" & k) = Sh.Name & ": (" & Adr2 & ")" T.Range("A" & k) = k - 1 k = k + 1 Set F_rg = Sh.Range("o2").Resize(Max_ro).FindNext(F_rg) Adr2 = F_rg.Row If Adr2 = Adr1 Then Exit Do Loop End If Next itm If k > 2 Then With T.Range("A2").Resize(k - 2, 23) With .Font .Size = 14: .Bold = True End With .InsertIndent 1 .Borders.LineStyle = 1 .Interior.ColorIndex = 20 End With End If End Sub Fares_hasan.xlsm

تفضل اخي الكريم empoyee - Copie (1).accdb

كان من المفروض تحميل ملف مع شرح المطلوب بدقة (كما اقترح الاستاذ هاني محمد) ولا لزوم لتضييع اكثر من ساعة من الوقت على كتابة معادلات وفي الأخير تظهر انها ليست المطلوبة لذا كنت أريد الاعتذار عن المتابعة بهذا الملف لكن حيث انها المرة الاولى لا بد من الاستجابة الكود Option Explicit Function Salim_Letter(rg As Range) Dim dic As Object, i Dim ST, Mot$ Mot = Replace(rg.Value, " ", "") Set dic = CreateObject("Scripting.Dictionary") For i = 1 To Len(Mot) If Not dic.Exists(Mid(Mot, i, 1)) Then dic(Mid(Mot, i, 1)) = dic.Count End If Next i If dic.Count Then ST = Join(dic.keys, " ") Else ST = vbNullString End If Salim_Letter = ST End Function جرب هذا الملف Remove_duplicate_letters.xlsm

تفضل يا اخى الملف فى المرفقات =INDEX($B$3:$D$16,SMALL(IF($D$3:$D$16="الاولى",ROW($B$3:$D$16)-2,""),ROW($A1)),1) وضحنا كتير هذا الأمر مسبقاً من قبل هذه معادلة مصفوفة وليست معادلة عادية ... فلابد من الضغط على ( Ctrl+Shift+Enter) وليس Enter فقط كباقى المعادلات وشكراً المطلوب.xlsx

الصفحة "Salim" من هذا الملف Marwa.xlsm

بالإضافة لردود الأساتذة وحيث انك لم ترفع ملف لما تريد وحسب ما فهمت جرب المعادلة التالية حيث تضع الرقم المطلوب بالخلية A1 =IF(MOD(A1,8)>0,"لايقبل القسمة علي 8","قابل القسمة /8")

نموذج لما تريد hanafy.xlsx

هناك لا نهاية من الاعداد التي تقبل القسمة على 8 ( هل هناك مجال لمعرفة بين اي عددين تريد ذلك) مثلا جميع الارقام بين 20 و 70 التي تقبل القسمة على 8 هذا مثال عما أقصده ألصفحة Salim من هذا الملف ) Mushal_1.xlsx

العامود الأخضر من هذا الملف Abd_Date.xlsx

السلام عليكم ورحمة الله وبركاته ممكن تجرب الملف .. الالماني .. الاختصار de .. المعادلة =Translate(A4,"ar","en") translate.xlsm

لطلبك هذا لابد من استخدام هذه المعادلة =IFERROR(IF(AND(COUNTIF($B$4:B4,B4)=1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0),IF(AND(COUNTIF($B$4:B4,B4)>1,U4=0),VLOOKUP($B4,$U$1:$V$2,2,0)+(COUNTIFS($B$4:B4,B4,$U$4:U4,U4)-1),"")),"") ترقيم وتسلسل1.xlsx

هل هذا ما تريد --------->>>> ترقيم متسلسل.accdb

يمكنك الاستفادة من هذا الملف على حسب ما فهمت =CHOOSE(MOD(ROW()-1;6)+1;"A";"B";"C";"D";"";"") numbering alphabet.xlsx

السلام عليكم و رحمة الله و بركاته اخواني الاعزاء اقدم لكم الامر BrowseTo و هو خاص فقط باكسس 2010 فما فوق و هو يقوم بفتح نموذج ( او تقرير ) و في نفس الوقت يغلق النموذج الآخر . اترككم مع المثال بالتوفيق للجميع Database1.rar

أحبائي .. السلام عليكم لدي مربعي نص في النموذج الأول باسم tt1 والثاني باسم tt2 ولدي زري أمر الأول ( نسخ) والثاني ( لصق) أريد عندما أضغط على الزر ( نسخ ) أن يقوم بنسخ النص الذي في المربع tt1 وعندما أضغط الزر ( لصق) يقوم بلصق الكلام المنسوخ في المربع tt2 أرجو أن يكون السؤال واضح :d وللجميع خالص تحياتي

السلام عليكم هذه إحدى طرق البحث في الأكسس ولكنها تحتاج إلى من يكملها فهي ناقصة وللجميع تحياتي Bahth.zip

الاخوة الكرام, كيف يمكن حساب الايام (عددها) من فترة زمنية تأتى فى الصورة التالية (من الاسبوع الاول شهر مايو الى الاسبوع الثالث شهر اغسطس) 1- كيف يتم تحديد عدد الايام فى هذه الفترة 2- كيف يمكن معرفة بداية الفترة الزمنية ونهايتها تاريخياَ الموضوع صعب على ولكن ليس على اخوانى الكرام

الاخوه الافاضل ارجوا ان يساعدني احد في وضع مثال لكود اضافة الي جدول عن طريق زر كوماند في الفورم حيث يقوم بـأخذ المدخلات من حقول الفورم واضافتها في الجدول .... حيث ان قاعدة البيانات موجودة علي SQL SERVER ارجوا من لديه الحل ان لا يبخل علينا وعلى المنتدى... وشكرا لكم جميعا

بسم الله الرحمن الرحيم اخوتي الأعزاء تحيه طيبه للجمع وبعد . لقد قمت بعمل نموذج وادرجت فيه التالي : 1- أداة Microsoft Common Dialog Control وأسميتها CD1 2- مربع صورة وأسميته Image1 3- زر أمر وكتبت فيه الكود التالي عند حدث النقر cd1.FileName = "" cd1.Filter = "Jpeg Files (*.jpg)|*.jpg| Bitmap Files (*.bmp)|*.bmp| Gif Files (*.gif)|*.gif|" cd1.ShowOpen If cd1.FileName = "" Then Exit Sub Image1.Picture = LoadPicture(cd1.FileName) والمشكلة هي أن الصورة التي يتم اختيارها لا تظهر في مربع الصورة - فما هو السبب ارجو مساعدي في ذلك ولكم جزيل الشكر

السلام عليكم هذا مثال لمن يريد معرفة عدد حروف أي جملة عربية وبالتفصيل قام بتعديل الكود ليصبح بهذا الشكل الذي في المثال أستاذي المبدع أبو هادي وله مني وافر الشكر والعرفان . (( يوجد في المثال نموذجين قبل تعديل الأستاذ أبو هادي وبعد التعديل )) ولكم تحياتي أخوكم : فهد الدوسري A_B_C.zip

السلام عليكم ورحمة الله وبركاته المشكلة التي لدي هي مع دالة sum و count عندما أكون أحدهما في النموذج يعطينا النتيجة ( خطأ ) وتكرر هذا مع نموذجين من نماذج البرنامج والغريب أنني اتبع نفس الخطوات في نماذج أخرى وتكون النتيجة إيجابية . أي تعطي النتيجة أرجو المساعدة أين تكمن المشكلة . ولكم مني جزيل الشكر

السلام عليكم ورحمة الله وبركاته ايها الاخوة كل عام وانت بخير طلب مني احد الاخوة عمل تعديل على برنامج سابق وهو حسب العنوان اذكان لدي خيار في الخانة f ان اختار بي تحويل او موعد اذا كان تحويل يستمر كما هو البرنامج ، واذا اخترنا تحويل المطلوب انت تظهر خناتان الاولى رقم خطاب التحويل والثانية تاريخ خطاب التحويل ، علماً ان هذه البيانات في نموذج فرعي اخوكم فرحان منطنط المسروري :lol:

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

بسم الله الرحمن الرحيم الاخوة الافاضل السلام عليكم ورحمة الله وبركاتة لدي فورم يوجد به عدد 2 فورم فرعي (لعمل مطابقة لكشوفات حسابات البنوك) وعندما اعمل تحديث (Refresh) لايقبل ويعطيني الرسالة التالية : "The Command Or Action Refresh Isn't Available Now " فكيف يمكن عمل Refresh للفورم الرجاء المساعدة وشكراً.