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

مشاركة مع الاساتذة الكبار بعض الاضافات البسيطة على قدي تحياتي قاعدة(3).accdb

أستاذ حمدي مرفق لك البرنامج بعد التعديل 🙂 ،،، إرسال رسائل البريد الإلكتروني.rar وبالنسبة لسؤالك : فقد ذكرت لك : وهنا سأحاول باختصار شرح عمل تضبيطات الجيميل Gmail قبل استخدامه في الأكسس : (1) أولا تذهب لاعدادات حسابك : (2) إعدادات الأمان : (3) تفعل التحقق بخطوتين ( اتبع الخطوات التي يعطيك إياها المتصفح ) : (4) تعود لا عدادات الأمان وتختار ( كلمات مرور التطبيقات ) : (5) سيطلب منك إعادة إدخال كلمة المرور لبريدك الإلكتروني .. (6) تضع نفس هذه الخيارات بالترتيب : (7) الخطوة الأخيرة .. ستعطيك جوجل كلمة مرور جديدة ( وهذه ستكون كلمة المرور التي ستستخدمها في برنامج الأكسس بدل كلمة المرور الحقيقية للإيميل ) : ملاحظة أخيرة مهمة : ضروووووري جدا أن تحتفظ بالرقم الجديد عندك في أي مكان ، لأن جوجل لن تتيح لك الرجوع إليه مرة أخرة . 🙂

clsTB = Sub clsTB() For i = 1 To 25 UserForm1.Controls("TextBox" & i).Value = "" Next End Sub بدل Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox3.Value = "" Me.TextBox4.Value = "" Me.TextBox5.Value = "" Me.TextBox6.Value = "" Me.TextBox7.Value = "" Me.TextBox8.Value = "" Me.TextBox9.Value = "" Me.TextBox10.Value = "" Me.TextBox11.Value = "" Me.TextBox12.Value = "" Me.TextBox13.Value = "" Me.TextBox14.Value = "" Me.TextBox15.Value = "" Me.TextBox16.Value = "" Me.TextBox17.Value = "" Me.TextBox18.Value = "" Me.TextBox19.Value = "" Me.TextBox20.Value = "" Me.TextBox21.Value = "" Me.TextBox22.Value = "" Me.TextBox23.Value = "" Me.TextBox24.Value = "" Me.TextBox25.Value = "" مثلا doc.docx

السلام عليكم اخواني جميعا ورحمة الله وبركاته عملت هذه القاعدة منذ زمن وتوقفت لانشغالي بالعمل والسفر الدائم . بإختصار شديد الهدف من البرنامج هو للبحث في جميع جداول وحقول القاعدة . لقد رايت هذا الموضوع هنا .. لا اعرف اذا كان هذا البرنامج يفي بالغرض ام لا. للامانة العلمية بعض الاكواد استعنت بها من الانترنت وحقوق الاشخاص والاكواد محفوظة. يوجد بعض الجداول في القاعدة وفيها بيانات قليلة . أتمنى من الجميع التجربة وموافتي بالنتيجة تحياتي للجميع Search All Tables 2020 New.accdb

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

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

ممتاز استاذ سامي..البرنامج شغال واكواده رائعة

معذرة الأخ سامي عن الخلط في الإسم، و الفضل يعود لك في الحل،

السلام عليكم اخي @biskra هذا الملف انا الذي عملته والاخ السائل قد كتب كلمة قائمة ..... في التقرير اعتقدت انه يريد فقط إضافة الطلاب والعمال بدون كلمة قائمة لانها موجودة على العموم حصل حير . وهذا تعديل على حسب ما فهمت تحياتي قاعدة.accdb

تفضل 🙂 الاتصال بأكثر من قاعدة.rar

بالاذن منكم أعتقد هكذا مع بض اللمسات🙏 userform.xlsm

السلام عليكم ورحمة الله اولا ياغالي تم حل المشكلة في 3 textbox ثانيا البحث بكود الاصل الترقيم التلقائي العمود (A) ثالثا مرفق صورة للبرنامج صور من البرنامج userform.xlsm

لتغيير القيمة الافتراضية لحقل بناء على قيمة حقل في جدول اخر في اي نموذج لديك ضع زر امر ثم في حدث عند النقر ضع الامر Dim x As Variant x = Nz(DMax("[rate_profit]", "government"), 0) CurrentDb.TableDefs("government_details").Fields("rang").DefaultValue = x

وعليكم السبلام قاعدة.accdb

السلام عليكم أخي @حمدى الظابط 🙂 بحمد الله ضبطت لك كود إرسال البريد الإلكتروني .. ولكن هناك نقطة مهمة ( ضرووووووووووووووووووووري جدا جدا جدا ) إتباع الخطوات المذكورة في الموضوع التالي كتضبيطات للجيميل لكي يتم الاتصال بالبريد وإرسال الرسائل : ويفضل أن يتم حفظ بيانات البريد الإلكتروني والباسوورد (بشكل مشفر طبعا ) لأنه لايطلب باسوورد الدخول هنا بل الرقم البديل للباسوورد الذي يوفره لك الجيميل .. ويعطيك إياه لمرة واحدة .. وقمت بتعديل على مصدر بيانات النموذج الفرعي وتغيير زر ال ✔ ليكون بطريقة أسهل 🙂 وتم الإرسال بنجاح ولله الحمد 🙂 وفي البريد الإلكتروني :

جرب هذا الماكرو فيه حلقة تكرارية تفحص التاريخ في العمود F ويدرج COMMANT قبل عشرة ايام Sub test() 'On Error Resume Next Dim lr Dim x Dim dt: dt = Date Dim dt2: dt2 = Format(DateAdd("d", -10, dt), "dd-mm-yyyy") With Sheets("نشاط") lr = .Cells(Rows.Count, "f").End(xlUp).Row .Range("f3:f" & lr).ClearComments For x = 3 To lr If Not IsDate(.Cells(x, "f")) = True Then GoTo 1 If CDate(Cells(x, "f")) = dt2 Then .Cells(x, "f").AddComment .Cells(x, "f").Comment.Visible = True .Cells(x, "f").Comment.Text Text:=":" & Chr(10) & "عشرة ايام متبقية " End If 1: Next x End With End Sub

مرفق لك المل شاشة دخول اكثر من مستخدم ( ادمن - ويوزر) المستخدم (a) 123 ادمن 1لمستخدم (b) 123 يوزر كلمة السر لاضفاة او حذف او تعديل مستخدم 1234 userform.xlsm

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

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

تم التعديل على الكود لتجاهل الخطأ On Error Resume Next Database1.rar

Sub GetLastThursdayInRajab1999() Dim CurCal As VbCalendar, Days As Long CurCal = Calendar Calendar = vbCalGreg Days = DateSerial(1999, 12, 31) Calendar = vbCalHijri Do While Month(Days) <> 7 Days = Days - 28 Loop Days = DateSerial(Year(Days), 8, 0) Do While Weekday(Days) <> vbThursday Days = Days - 1 Loop Calendar = vbCalGreg Debug.Print CDate(Days) Calendar = CurCal End Sub

السلام عليكم ورحمة الله تنويه: المعادلة التي وضعتها بالأعلى (في ردي السابق) تبحث عن الكلمة حتى وإن كانت داخل نص طويل... بالتوفيق..

وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي بالنسبة لطلبك اعتقد ان جواب استادنا الكبير بن علية حاجي يوفي بالغرض لاكن لاثراء الموضوع وتعميم الفائدة للجميع بالمعادلات يمكنك بهده الطريقة =SI(ESTNA(EQUIV("ALI";$S$9:$S$25;0));"غير موجود";"موجود") او =SI(ESTNA(RECHERCHEV("ALI";$S$9:$S$25;1;FAUX));"غير موجود";"موجود") او =SI(ESTNA(EQUIV(A9;$S$9:$S$25;0));"غير موجود";"موجود") ملاحظة: المعادلات تمت كتابتها على اوفيس فرنسي .كما سبق الدكر اتجنب اعادة صيغتها تفاديا للاخطاء .يمكنك تحميل الملف من المرفقات سيتم ترجمتها تلقائيا على جهازك اما بالنسبة للاكواد هناك عدة طرق منها لنفترض انك ترغب ظهور النتيجة في الخلية ("A5") Sub test1() Dim code As String Dim Trouve As Range With Sheets("Sheet1") Set Trouve = .Range("S:S").Find(what:="ALI", LookIn:=xlValues, lookat:=xlWhole) If Trouve Is Nothing Then Range("A5") = " غير موجود" Else Range("A5") = "موجود" End If End With End Sub وبهده الطريقة ادا كانت لك رغبة بالبحث بقيمة خلية معينة ولنفترض انها M4 Sub test2() Dim code As String Dim Trouve As Range With Sheets("Sheet1") ' تحديد العمود ورقم الخلية Set Trouve = .Range("S:S").Find(what:=Range("M4"), LookIn:=xlValues, lookat:=xlWhole) If Trouve Is Nothing Then 'M6 ظهور التنيجة في الخلية Range("M6") = " غير موجود" Else 'في حالة عدم العثور على القيمة Range("M6") = "موجود" End If ''''''''''''''''''''''''''''''''''''''''''' Sub test4() Dim MH As Range Set MH = Range("S9:S25").Find(What:=Range("M4").Value, LookIn:=xlValues, LookAt:=xlWhole) If Not MH Is Nothing Then Range("M6").Value = "موجود" Else Range("M6").Value = " غير موجود" MsgBox " غير موجود" End If End Sub End With End Sub اما في حالة الرغبة في البحث وتنفيد نفس الامر على عدة قيم في نطاق معين يمكنك بهده الطريقة Sub test3() Dim X As Variant Dim Rng As Range 'تحديد نطاق القيم المبحوث عنها ' مثال من الصف 9 الى 13 For i = 9 To 13 'تحديد رقم العمود X = Cells(i, 11) 'تحديد نطاق القيم المبحوث عنها With Sheets("sheet1").Range("S9:S25") Set Rng = .Find(what:=X, After:=.Cells(.Cells.Count), _ LookIn:=xlValues, lookat:=xlWhole, _ SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) If Not Rng Is Nothing Then 'في حالة العثور على القيمة Cells(i, 10).Value = "موجود" Else 'في حالة عدم العثور على القيمة Cells(i, 10).Value = "غير موجود" End If End With Next i End Sub قد تم اضافة الاكواد والمعادلات للملف المرفق بالتوفيق........... التحقق من وجود قيمة معينة.xlsm

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

بارك الله فيك أستاذ ضاحى وبالتوفيق دائماً

ممتاز طبعاً الى الأمام دائماً أستاذ ضاحى وفقكم الله .مجهود ممتاز

نعم أستاذى الكريم ولكن ان لابد ان تسبقها علامة لا تساوى داخل علامة التنصيص "<>"

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

بارك الله فيكم دكتور محمد وزادك الله من فضله

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

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

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

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

وعليكم السلام-تفضل =IFERROR(INDEX($G:$G,MATCH($C3,$H:$H,0)),"لا يوجد") Book3.xlsx

أحسنت استاذ عادل عمل رائع شكراً جزيلاً لجهودكم

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

جزاك الله كل خير جعله الله فى ميزان حسناتك

أخى الكريم اين الملف للعمل عليه ! من فضلك قم برفع الملف

وعليكم السلام -اهلا وسهلا بك أخ كريم فى منتدانا الكريم يمكنك البداية مع هذا الملف فبه بدايات وشرح لهذا الموضوع جزاك الله كل خير شرح رائع وسهل لتعليم VBA بجانب مجموعة أكواد هامة.rar

كود استدعاء وظهور الفورم بدبل كليك فى اى خلية Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False منع خاصية اهتزاز الشاشة' If Target.Column = 1 And Target.Row > 5 Then "يقصد بهذا السطر هو شرط ومكان الدبل كليك لإظهار الفورم -وفى هذه الحالة يكون الضغط فى أى خلية من العمود الأول A -ولكن بشرط بعد' الصف أو السطر الخامس ,,,,,,,, ويمكنك التغيير فى هذا السطر من الكود لأى ملف أخر تريد عمله' " UserForm1.Show بعد ذلك يظهر لك الفورم' End If End Sub 'نهاية الكود تفضل اخى الكريم أما بالنسبة لأكواد الفورم حاول متابعتها ودراستها بنفسك

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

تفضل اخى الكريم-كل عام وأنتم بخير ورمضان مبارك -1م تشغيل.xlsm

وممكن تجرب هذا الملف فبمجرد الضغط دبل كليك على اى خلية من العمود الأول A ويكون بداية من الصف السادس سيظهر لك الفورم مباشرة كل عام وانتم بخير ورمضان مبارك Search.xlsm

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

أخى الكريم هذه الطريقة امنة لا تقلق منها ولكنك اذا كنت تريد مزيد من الأمان والخصوصية فعليك بإنشاء موقع خاص بك تتبع هذه المواقع تساعدك فى ذلك http://mawdoo3.com/كيفية_إنشاء_موقع_إلكتروني_مجاني_على_الإنترنت https://ukit.com/ https://cdhost.com/ar/ بارك الله فيكم

وعليكم السلام استاذى الكريم -كل عام وانتم بخير ورمضان مبارك يمكنك مشاهدة هذا الفيديو وهو عن خطوات رفع ملف إكسيل على الإنترنت والتعامل والتغيير عليه من اكثر من شخص:

اخي تم عمل تعديل بسيط لتسهيل الموضوع ارجو انه لايؤثر علي العمل جرب المرفق واخبرتي النتيجة تحياتي YouQu.rar

طريقة جيل الطيبين 😂