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

أهلا @سلمان الشهراني جرب هذا التعديل: Dashboard2003.mdb

طريقة اخرى لتشغيل الصوت بدون winAPI Call Shell("C:\windows\Sndrec32.exe /play ""C:\My Documents\alarm2.wav"" /close ", 0) يتم تحديد مكان الصوت واسمه داخل الجهاز كما هو مبين في هذا المثال "C:\My Documents\alarm2.wav" مكان الصوت في المثال هذا هو C:\My Documents اسم الصوت في المثال alarm2.wav نوع الصوت wav للأمانة منقول من الاخ فهد الدوسري

ما شاء الله استاذ على روعة جزاكم الله خير الجزاء

بعد اذن اخوانى واحبائى الكرام اولا لى تعقيب صغير من وجهة نظرى المتواضعة ليس معنى ان يطرح احد الاخوة او احد الاساتذة الافاضل شئ ان الكل يعلمه او العكس وليس معنى ان يتم طرح النتيجة باسلوب مخلف فى الرد انهما متشابهين او مختلفين او ان لاحدهما افضلية كل الطرق تؤدى الى رومها ثم لكل شيخ طريقته ولكل معلم اسلوبه ولكل مبرمج او مصمم خياله وافكارة المختلفه عن الاخر فى طريقة تناولة للكود ومعالجته حسب خياله وافكاره طبقا لمتطلباته وهنا طريقة انا استخدمتها نفس النتيجه لكن الاسلوب فى التناول للاكواد محتلف كل الشكر لاساتذتنا الكرام - الاستاذ @SEMO.Pa3x - الاستاذ @صالح حمادي -الاستاذ @خالد سيسكو -الاستاذ @qathi api play sound.rar

بالتأكيد عمل ممتاز جعله الله فى ميزان حسناتك

أحسنت استاذ سليم عمل رائع بارك الله فيك وزادك الله من فضله

هذا الماكرو ربما ينفع (الملف مرفق) Private Sub CommandButton1_Click() Dim My_Rg As Range Set My_Rg = Sheets("ورقة1").Range("c5:j24") Dim x%: x = 1 Dim i%, j% For j = 1 To My_Rg.Columns.Count For i = 1 To My_Rg.Rows.Count Me.Controls("TextBox" & x).Value = My_Rg.Cells(i, j).Value x = x + 1 Next Next End Sub data To user.xlsm

جرب المرفق... منتدي اوفسينا.xlsx

السلام عليكم نهنىء اخونا وحبيبنا محمد عصام ( ابو جودي ) اهلا وسهلا بك خبيرا معتمدا والف مبروك زادك الله علما ورفعة ونفع بك

فورم اكسل لاستدعاء ملفات pdf الفيديو الصور http://www.mediafire.com/file/6qk8jjv5jj2mlyg/pdf++فورم+استدعاء.rar

هو ده .. الله يفتح عليك أبا جودى .. سلمت يداك.

ما شاء الله الله اكبر استاذ @essam rabea الحل فى الاستعلام الان uae-com(essam rabea).rar

إسمحوا لى أساتذتى .. أعتقد أنه أسهل بالإكسيل .. فى المرفق الوحدة النمطية لإستخلاص أرقام التليفونات (14 رقم) لم أستطع تحويلها لتعمل مع الأكسيس .. ولكن ـم استيرادها من الأكسيل الى الجدول المرفق. لكم جميعا تحياتى. uae-com.rar

مشاركة مع احبتي الكرام ........ uae-com_2.rar

اسمح لي بمداخلة بسيطة لعل وعسى تكون النصف الاخر اخي العزيز أبا جودي تعديل بسيط على الوحدة الخاصة بك: Public Function ExtractIDs(ByVal varInput As Variant) As String On Error Resume Next Dim strSplit() As String, strResult As String Dim intIndex As Integer If IsNull(varInput) Then Exit Function strSplit = Split(CStr(varInput), " ") For intIndex = 0 To UBound(strSplit) '''' If IsNumeric(Left(strSplit(intIndex), 1)) Then strResult = strResult & strSplit(intIndex) & ";" If IsNumeric(Left(strSplit(intIndex), 1)) Then strResult = strResult & strSplit(intIndex) & "|" Next If Len(strResult) > 0 Then 'Remove final semi-colon and pass back result. ''''' ExtractIDs = Mid(strResult, 1, Len(strResult) - 1) ExtractIDs = Mid(strResult, InStr(1, strResult, "009")) End If End Function :: تحياتي

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

اكيد وانا ايضا افضل الـ winAPI لانها الاسرع تنفيذا بالذاكرة.

كل الشكر والتقدير للاستاذ سليم

جزاكم الله خيرا اخى الحبيب

بصراحة أ/محمد صلاح1 الجداول واسماء الحقول عاوزة إعادة تنظيم .. الفكرة فى دماغك من غير إستعجال ظبط اسماء الحقول فى كل الجداول علشان متتلخبطش يعنى مثلا (Mraj3Name) فى جدول (Foaid) إسمه (TitleBook) فى جدول (Marj3) .. أنا كعصام إتلخبط . مساعدة في تعديل كود استعلام (2).zip

وعليكم السلام-اهلا بك في المنتدى -تفضل ادارة المخزون-1.xlsx

السلام عليكم تم عمل المطلوب بطريقة يدوية... بن علية حاجي Me.xlsx

العفو منك اخى الحبيب وكيف ذلك وهل لا يهتم المحب بحبيبه اخى الحبيب انى احبكم فى الله ولوجه الله عزوجل جزاكم الله خيرا اتمنى من الله عزوجل ان تكون حجة لى

:: لا تهتم اخي ولا تأسف ... وهذا من ذوفك اخي الكريم ... :: مبروك عالترقية .... لك من كل قلبي 👨‍🎓 :: كيف لنا ان نعرف ذلك ؟ :: اتمنى ان يكون حل استاذنا العزيز اباجودي هو ماتريده ...

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

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

:: بالضبط كما اردت بالفعل ... شكرا لك زادك الله رفعة . :: لسعة دبور من استاذ رمهان ههههه & "مدين" .

@محمدنجار شوف كده تحياتي DR and CR.accdb

الله عليك استاذ سليم رائع جزاكم الله خير

رائع استاذ كعبلاوى جزاكم الله خير

الله عليك استاذ سليم رائع جزاكم الله خير استاذى الحبيب ارجو ان تقيم ملفى فى المشاركة

أتمنى أن يكون هذا المراد تنفيذه انتخابات نقابة أطباء الاسنان 2019.rar

برافو عليكم شباب هكذا تكون الأخوة و حسن المعاملة

انا لم أر اي خطأ مع ذلك تم تحديث البرنامج ليبدو أكثر وضوحاً 1-الأصناف تظهر مرتبة ابجدياُ 2- تلوين الوارد بلون والمنصرف بلون أخر 3-تعليم صفوف الشبكة حيث يوجد بيانات 4- اذا كانت كمية الوادر او المنصرف تساوي صفر لا تظهر في التقرير 5-تمييز صف المجاميع بلون مختلف عسى أن ينال الاعجاب لا استطيع التحسين أكثر من هذا special_data_sorted.xlsm

أهلا بك أستاذ جعفر.. أنت تبالغ أستاذ! لو كان هناك طلب على هذا الأسلوب لكان أول من يبدع فيه أنت.. في الحقيقة أنا متردد بعض الشيء.. وقد رتبت لهذا الفكرة من قبل، لكن اعترضتني بعض الإشكالات.. وسوف أعمل على حلها في القريب..

مثال على ذالك اذا كانت الخلية B3 لا تساوى 0 اعطينى تاريخ اليوم =IF(B3<>0;TODAY();"")

هذا مثال لاستخراج اسم الجدول و حقوله ونوع كل حقل : Dim dbs, tdf As TableDef, name_field As Field Dim i As Integer Set dbs = CurrentDb For Each tdf In dbs.TableDefs If Left(tdf.Name, 4) <> "msys" Then 'استخراج اسماء الحقول For Each name_field In tdf.Fields MsgBox tdf.Name & "=" & name_field.Name & " - " & name_field.Type & "...." & name_field.Size Next name_field End If Next tdf Set dbs = Nothing

For i = 0 To CurrentDb.TableDefs("table1").Indexes.Count - 1 If CurrentDb.TableDefs("table1").Indexes(i).Primary Then MsgBox CurrentDb.TableDefs("table1").Indexes(i).Fields(0).Name End If next i تحياتي استاذ صالح

السلام عليكم ورحمة الله ما عليك إلا تعديل "التحقق من الصحة" حسب ما تريد وسيعمل الكود بإذن الله... بن علية حاجي

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

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

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

أحسنت أستاذ بن علية عمل ممتاز جعله الله في ميزان حسناتك ورحم الله والديك

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

بعد إذن أستاذنا الجليل بن علية ممكن تجرب الكودين لإضافة الدوائر وحذفها بدلاً من الكود السابق مع ملاحظة أن كود إضافة الدوائر يقوم بحذف الدوائر السابقة قبل إضافة الدوائر الجديدة تلقائيًا فبمجرد تشغيله لا تحتاج لتشغيل كود حذف الدوائر Sub دوائر() ' رسم شكل بيضاوى Application.ScreenUpdating = False حذف_دوائر Dim c As Range Dim MyRng As Range, V As Shape Dim x As Integer, G As Integer, r As Integer, d As Integer '================================================ G = 4 r = 15 Set MyRng = Range("E16:O16,E30:O30,E44:O44") '================================================ x = ActiveWindow.Zoom ActiveWindow.Zoom = 100 For Each c In MyRng If Cells(c.Row, G) = 0 Then GoTo 1 If IsNumeric(Cells(r, c.Column)) And Not IsEmpty(Cells(r, c.Column)) And (c.Value < Cells(r, c.Column) Or c.Value = "غ") Then Set V = ActiveSheet.Shapes.AddShape(msoShapeOval, c.Left + 1, c.Top + 1, c.Width - 1, c.Height - 1) V.Fill.Visible = msoFalse V.Line.ForeColor.SchemeColor = 2 V.Line.Weight = 2 d = d + 1 End If 1 Next ActiveWindow.Zoom = x Application.ScreenUpdating = True End Sub Sub حذف_دوائر() Dim shp As Shape, d As Integer For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete: d = d + 1 Next shp End Sub

بعد اذن الاستاذ محمد هذا المغادلة البسيطة بدون تلك الشروط المتكررة =VLOOKUP(B3,{0,"Weak";15000,"Good";20000,"Excellent"},2) الملف Without IF.xlsx

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

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

جرب هذا الملف SUM_BY_COLORE.xls

كود اظهار رسالة من عدة اسطر yahiaoui.rar