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

السلام عليكم ورحمه الله وبركاته اتفضل اخى @MO87 حاجه على قد حالى وكما فهمت من السؤال اشتغلت على اسم الطبيب عند فتح النموذج ستجد جميع البيانات اختر ادمن 1 او 2 وشوف هل هذا ما تريد ام لا ان كان اكمل انت الباقى بالتوفيق MOMO_1.accdb

تفضل اتمنى ان يحقق مطلبك ‏‏ارسال شهادات الطلاب بالبريد2.rar

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

بسيطة Sub protect_sh() Dim i& Dim p As String p = InputBox("ÃÏÎá ßáãÉ ÇáÓÑ") For i = 1 To Sheets.Count Sheets(i).Protect p Next End Sub Sub unprotectsh() Dim i& Dim p As String p = InputBox("ÃÏÎá ßáãÉ ÇáÓÑ") For i = 1 To Sheets.Count Sheets(i).Unprotect p Next End Sub

هذا إجراء للزر في حدث عند النقر Private Sub cmdDelet_Click() Dim Records As Long Dim Msg As String Dim ctl As Control Dim TableName As String On Error Resume Next TableName = "tblTable1" Set ctl = Me.n If Trim(Nz(ctl, "")) = "" Then MsgBox "الحقل فارغ .. يجب أن يحتوي على قيمة ما", , "عفوًا" ctl.SetFocus GoTo ExitSub End If Records = DCount("*", TableName, "n=" & ctl) If Records = 0 Then MsgBox "لا يوجد سجلات بنفس القيمة لحذفها", , "عفوًا" GoTo ExitSub End If Msg = "سوف يتم حذف " & Records & " سجلات نهائيا الآن" If vbOK = MsgBox(Msg, vbOKCancel + vbDefaultButton2, "تأكيد") Then Err.Clear DoCmd.RunSQL "Delete * from [" & TableName & "] where n=" & ctl & ";" If Err.Number = 0 Then MsgBox "تم الحذف" Else MsgBox Err.Description, , Err.Number End If End If ExitSub: Set ctl = Nothing End Sub Database32_02.accdb

جربي المرفق الجدول يحتاج إلى تحجيم حقلي الكيوآر واسم المحل أما بقية الحقول أنا قمت بتعديلها. ZatkaQR.a_02.accdb

بالنسبة للسطر الاصفر يعمل على جعل مربع التحرير باهت ، يمكنك تعطيله او اجعل في رأس الكود في البداية هذا السطر On Error Resume Next واما بالنسبة للتقارير فاعملها انت كما تحب انا جعلت المثال يرسل التقرير للذين تم التأشير على سجلاتهم كل واحد حسب بريده تقرير TimeTable لم اعمل عليه ليس موجود ضمن مرفقي السابق

وهذه حصيلة محاولتي .. جداول قليلة فقط Repaired_Mahdi'sBell.rar

في برنامج باسم الاستاذة زهرة طيب الله حياتها في المرفقات Access_Diary_Daily.rar

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

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

السلام عليكم ورحمة الله وبركاتة يسعد لي مساءكم بالسعادة والخير من وفت اضافة الموضوع جتى الساعة السابعه وانا احاول وطلعت بكود الاخ العزيز ابوخليل ولة منا كل الشكر والتقدير ولكن خطائي لايغفر في عالم البرمجة DoCmd.RunSQL "DELETE tbl1.*, [tbl1.n] FROM tbl1 WHERE [tbl1.n]=[forms]![FORM1]![n]))" الحطاء كان الاقواس ولك مني اجمل تحية وتقدير الاخ الغالي AbuuAhmed من حقيقة اغلب مشاركاتي انت من يحيب عليها فلك كل الشكر والعرفان وجزاكم الله خير الجزاء

تمام شكرا لك استاذ حمدي والشكر موصول للاستاذ موسى

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

جزيل الشكر يا أبا أحمد .. رحم الله والديك وقضى حوائجك

عليكم السلام تقضل أخي الكريم عسى المطلوب طلب ترحيل بالاسم والتاريخ.xlsm

عليكم السلام DoCmd.RunSQL "DELETE tbl1.*, tbl1.n FROM tbl1 WHERE (((tbl1.n)=[forms]![FORM1]![n]))"

وعليكم السلام أخي علي 🙂 جرب هذا الكود لإعادة الاتصال بقاعدة بيانات ال SQUL : Public Sub ConnectToSQL() Dim cn As ADODB.Connection Set cn = CurrentProject.Connection cn.Open "Driver={SQL Server};" & _ "Server=myServerName;" & _ "Database=myDatabaseName;" & _ "Trusted_Connection=yes;" End Sub مع مراعات تغيير بيانات الاتصال لديك في الكود

تحية طيبة الملف المرفق للتجربة .. وفقكم الله طباعة الصفحات الولى من كل ورقة.xlsm

لزيادة الفائدة كود.xls

وعليكم السلام ورحمة الله وبركاته لطباعة الصفحة الاولى فقط من جميع الأوراق في الملف جرب الكود: Sub Print1() Dim WS As Worksheet For Each WS In ActiveWorkbook.Sheets WS.PrintOut From:=1, To:=1 Next End Sub

وهذا برنامج أقساط مبسط جدا .. كان عبارة عن تمرين استرجاع مهارات وقتها وتحدي مع أحد الإخوة الأعزاء 😊 برنامج الأقساط - موسى.rar

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