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

وعليكم السلام 🙂 اي حقل يخبرنا عن الشهر؟ انا استعملت [تاريخ البداية] ، واذا كان غير ، فرجاء تغير الاسم هنا : . وفي هذا النموذج تختار الشهر والسنه ، ويتم التصدير لنفس مجلد البرنامج ، ويكون الملف باسم: Client_Year-Month ، مثل Client_2021-10.xlsx . وهذا كود التصدير: Dim xls_File As String xls_File = Application.CurrentProject.Path & "\Clients_" & Me.iYear & "-" & Me.iMonth & ".xlsx" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qry_Export_to_Excel", xls_File, True جعفر 1503.تصدير.zip

حسب فهمي للمطلوب يتم تعديل الكود الأصلي إلى Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns(1)) Is Nothing Then Range("b" & Target.Row & ":o" & Target.Row).ClearContents End If End Sub إن شاء اللّه يكون هو المطلوب بالتوفيق

السلام عليكم ورحمة الله تعالى وبركاته يسأل البعض عن عدم حفظ البيانات الإ بإستكمال الحقول المطلوبة يمكن ذلك من خلال الفكرة الاتية ولكن بشرط اسم العنصر المطلوب ( الاجبارى) يجب وضع الرمز * فى الـ Tag الخاصة به كما بالصورة الاتية لاننى وضعت الاكواد فى الموديول تعتمد عليها والان الاكواد داخل الموديول 'RequiredData Function RequiredData(ByVal frm As Form) On Error Resume Next Dim ctl As Control Dim err As Integer For Each ctl In frm.Controls Select Case ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup: 'If ctl.StatusBarText = "*" Then If ctl.Tag = "*" Then If IsNull(ctl) Or ctl = "" Or ctl = Null Then ctl.BackColor = 15531489 ctl.SetFocus err = err + 1: MsgBox "Please fill in the " & ctl.Controls(0).Caption: Exit Function Exit For Exit Function Else ctl.BackColor = 16777215 End If End If End Select Set ctl = Nothing Next ctl End Function ويتم استدعاء الكود من خلال Call RequiredData(Me) اترككم مع الاستمتاع بالتجربـة وفى انتظار ارائكم Required data (2).mdb

تفضل هذا التعديل المحزن.zip

وعليكم السلام 🙂 استخدمت نتائج Debug.print في الكود تبعك ، ثم حولته الى استعلام (اتضح انه استعلام الحاقي) ، حتى ابدأ من هنا 🙂 طريقتي: اعمل الاستعلام بالطريقة المعتادة: . هذه المسمات لا قيمة ولا فائدة منها ، ويمكننا ان نحذفها ، لأن الاكسس بيعطينا اسم جديد لأي حقل مافيه اسم : . جميع الحقول في الاستعلام تحتاج الى قيمة ، فيجب ان تكون جميع هذه القيم متغيرات ، وعددها 12 حقل ، بالاضافة الى اسم الجدول ، ولتبسيط هذه العملية ، سأستخدم اسم الحقل المراد الاضافة اليه بالاضافة الى الرقم 9 ، مثل: IDUser9 ، IDGroup9 ، بتحويل الاستعلام الاصل الى SQL ، نحصل على هذه الجملة: INSERT INTO UsystbllvlUsers( IDUser,IDGroup,UName,UPassword,FullName,lvlQ1 ,lvlAnsr1,lvlQ2 ,lvlAnsr2,lvlQ3 ,lvlAnsr3,Umail ) SELECT 1 AS IDUser, 3 AS IDGroup, Encoder("admin") AS UName, Encoder("admin") AS UPassword, Encoder("admin") AS FullName, 20 AS lvlQ1, Encoder("administrator") AS lvlAnsr1, 20 AS lvlQ2, Encoder("admin") AS lvlAnsr2, 20 AS lvlQ3, Encoder("managaer") AS lvlAnsr3, Encoder("admin@admin.com") AS Umail; ومن هنا سأبدأ عملية التغيير الى كود ، والهدف بعد الدقة ، هو سهولة الوصول الى الحقول المتشابهة ، اي الحقل والحقل الذي ستاتي منه البيانات ، 1. تفكيك جزئي الجملة ، الجزء الى والجزء من ، وتحويل جميع علامات " الى ' في الجملة (ما عدا التي يجب ان تبقى) : mySQL = "INSERT INTO UsystbllvlUsers( IDUser,IDGroup,UName,UPassword,FullName,lvlQ1 ,lvlAnsr1,lvlQ2 ,lvlAnsr2,lvlQ3 ,lvlAnsr3,Umail )" mySQL = mySQL & " SELECT 1 AS IDUser, 3 AS IDGroup, Encoder('admin') AS UName, Encoder('admin') AS UPassword, Encoder('admin') AS FullName, 20 AS lvlQ1, Encoder('administrator') AS lvlAnsr1, 20 AS lvlQ2, Encoder('admin') AS lvlAnsr2, 20 AS lvlQ3, Encoder('managaer') AS lvlAnsr3, Encoder('admin@admin.com') AS Umail" 2. تفكيك كل جزء الى اسم الجدول ، ثم السطر الثاني يكون اسماء الحقول ، ولنسمي هذه الاسطر 1، 2، 3، 4 mySQL = "INSERT INTO " & UsystbllvlUsers mySQL = mySQL & " ( IDUser,IDGroup,UName,UPassword,FullName,lvlQ1 ,lvlAnsr1,lvlQ2 ,lvlAnsr2,lvlQ3 ,lvlAnsr3,Umail )" mySQL = mySQL & " SELECT " mySQL = mySQL & " 1 AS IDUser, 3 AS IDGroup, Encoder('admin') AS UName, Encoder('admin') AS UPassword, Encoder('admin') AS FullName, 20 AS lvlQ1, Encoder('administrator') AS lvlAnsr1, 20 AS lvlQ2, Encoder('admin') AS lvlAnsr2, 20 AS lvlQ3, Encoder('managaer') AS lvlAnsr3, Encoder('admin@admin.com') AS Umail" ثم ندرج السطر الثاني والرابع تحت بعض (مؤقتا) ، حتى لا نخطأ ، ويكون الحقل من والى تحت بعض (لاحظ الفاصلة بين الحقول) : وعليه ، يصبح السطرين mySQL = mySQL & " ( IDUser, IDGroup, UName, UPassword, FullName, lvlQ1, lvlAnsr1, lvlQ2 , lvlAnsr2, lvlQ3 , lvlAnsr3,Umail )" mySQL = mySQL & " IDUser9, IDGroup9, Encoder('" & UName9 & "'), Encoder('" & UPassword9 & "'), Encoder('" & FullName9 & "'), lvlQ19, Encoder('lvlAnsr19'), lvlQ29, Encoder('lvlAnsr9'), lvlQ39, Encoder('lvlAnsr39'), Encoder('Umail9')" ثم نقوم بتغيير السطر حتى يأخذ المتغيرات (بدلا من مجرد وجودها في السطر الثاني) ، وهنا العمل الفعلي : الآن تم تعديل الكود لكي يستعمل المتغيرات ، ويمكنك استعماله بهذه الطريقة : mySQL = "INSERT INTO " & UsystbllvlUsers mySQL = mySQL & " ( IDUser, IDGroup, UName, UPassword, FullName, lvlQ1, lvlAnsr1, lvlQ2, lvlAnsr2, lvlQ3, lvlAnsr3,Umail )" mySQL = mySQL & " SELECT " mySQL = mySQL & IDUser9 & ", " & IDGroup9 & ", Encoder('" & UName9 & "'), Encoder('" & UPassword9 & "'), Encoder('" & FullName9 & "')," & lvlQ19 & ", Encoder('" & lvlAnsr19 & "'), " & lvlQ29 & ", Encoder('" & lvlAnsr9 & "'), " & lvlQ39 & ", Encoder('" & lvlAnsr39 & "'), Encoder('" & Umail9 & "')" فيصبح الكود النهائي بالشكل الذي انت تريده ، ولاحظ اهمية كتابة رقم الحقل بحيث الجزء الآخر يأخذ نفس الرقم ، فيسهل عليك معرفة كل جزء من الكود : Function Run_SQL(UsystbllvlUsers9, IDUser9, IDGroup9, UName9, UPassword9, FullName9, lvlQ19, lvlAnsr19, lvlQ29, lvlAnsr29, lvlQ39, lvlAnsr39, Umail9) Dim mySQL As String mySQL = "INSERT INTO " & UsystbllvlUsers9 mySQL = mySQL & "( IDUser," '1 mySQL = mySQL & "IDGroup," '2 mySQL = mySQL & "UName," '3 mySQL = mySQL & "UPassword," '4 mySQL = mySQL & "FullName," '5 mySQL = mySQL & "lvlQ1 ," '6 mySQL = mySQL & "lvlAnsr1," '7 mySQL = mySQL & "lvlQ2 ," '8 mySQL = mySQL & "lvlAnsr2," '9 mySQL = mySQL & "lvlQ3 ," '10 mySQL = mySQL & "lvlAnsr3," '11 mySQL = mySQL & "Umail )" '12 mySQL = mySQL & " SELECT " mySQL = mySQL & IDUser9 & ", " '1 mySQL = mySQL & IDGroup9 & ", " '2 mySQL = mySQL & " Encoder('" & UName9 & "'), " '3 mySQL = mySQL & " Encoder('" & UPassword9 & "'), " '4 mySQL = mySQL & " Encoder('" & FullName9 & "'), " '5 mySQL = mySQL & lvlQ19 & ", " '6 Questions '6 mySQL = mySQL & " Encoder('" & lvlAnsr19 & "'), " '7 mySQL = mySQL & lvlQ29 & ", " '6 Questions '8 mySQL = mySQL & " Encoder('" & lvlAnsr29 & "'), " '9 mySQL = mySQL & lvlQ39 & ", " '6 Questions '10 mySQL = mySQL & " Encoder('" & lvlAnsr39 & "'), " '11 mySQL = mySQL & " Encoder('" & Umail9 & "') " '12 'Debug.Print mySQL DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True End Function . وتناديه بإرسال قيم هذه المتغيرات : Call Run_SQL(tbl_Name,IDUser, IDGroup, UName, UPassword, FullName, lvlQ1, lvlAnsr1, lvlQ2, lvlAnsr2, lvlQ3, lvlAnsr3, Umail) جعفر

=SUMPRODUCT(0+(CELL("width",OFFSET(B2,,N(INDEX(COLUMN(B2:G2)-MIN(COLUMN(B2:G2)),,))))>0),B2:G2)

يمكنك إضافة هذا السطر If TextBox4 >= 1 And TextBox5 >= 6 Then TextBox3 = DateAdd("d", -45, TextBox3) بعد هذا السطر TextBox3 = DateAdd("m", (Val(TextBox4) * -3), TextBox2) بالتوفيق

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

وعليكم السلام 🙂 في اعدادات الاكسس ، قم بإختيار status bar (في الدائرة الحمراء) . فلما تأتي للنموذج ، تجد ان القيمة موجودة هنا (السهم الاحمر) 🙂 . لذلك ، استخدم Tag بدلا عن Status Bar Text ، لأن الاكسس قد يستعمل هذه الخاصية ، وتختفي علامة * ويتم استبدالها بقيمة اخرى🙂 جعفر

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذا برنامج رسم قطاعات الترع من بيانات رفع المساحي رسم قطاعات الترع 1.rar

السلام عليكم ورحمة الله وبركاته احيانا تحدث مشكلات عند تنفيذ احد الاجراءات تبعا للكود المستخدم فكرتى المتواضعة فى هذا المرفق 1- تسجيل الاخطاء ليقف المصمم , المطور , المبرمج على مكان الخطأ تحديدا ورقمه لسهولة حل المشكلة 2- تجاوز الاخطاء كما يترائى لـ المصمم , المطور , المبرمج من خلال الأخطاء التى تم تصيدها وتسجيلها بالجدول Write Error Log .mdb

تفضل ...... الازرار.accdb

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

شكرا استاذ @ابا جودى ملاحظة: لقد وضعت تاك لجميع الحقول (حتى الغير مطلوبة) حتى لا تقول لايوجد متابعين 😄

God reward you جزاك الله خيرا

شكرا من أعماق قلبي شغالة بارك الله فيكم ودمتم لهذا المنتدى الطيب

Subtotal تعمل على اكسل 2007 وما بعده ولجمع الصفوف المرئية فقط نستعمل هذه المعادلة =SUBTOTAL(109,E1:E20) أما إذا كان المطلوب جمع الأعمدة المرئية فقط فلابد من تدخل جراحي vba بهذه الدالة المعرفة بعد إضافتها في موديول جديد في نافذة vbe التي نصل إليها ب alt+f11 Function SumVCols(Rng As Range) As Double Dim Cell As Range Application.Volatile For Each Cell In Rng If Cell.EntireColumn.Hidden = False And IsNumeric(Cell) Then SumVCols = SumVCols + Cell Next Cell End Function ويتم استعمالها هكذا =SumVCols(A1:F1) بالتوفيق

بل انت انسان عسل وسهل وانا شخصيا اعتبرك فاكهة المنتدي .... ما شاء الله عليك ..... بارك الله فيك وفي تواضعك الجم .... أسأل الله تعالى لك وللجميع التوفيق ,,,,,

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

بصراحة لا أدري تعمل على 2010 + =SUBTOTAL(9,B3:B7) 2007

طبعا اعرف هذا الشيء ، فهذه هي الحاسة السابعة للمبرمج 🙂 جعفر

عنوان الموضوع : كيفية الكتابة على قيم في الاستعلام وحضرتك طلبت وطلبت انا بصراحة صيرت ما افهم شئ وغير قادر على محاولة الفهم حتى

وهذه مشاركتي مع اخوي ابوجودي 🙂 استعمل النموذج frm_Generate_Weeks . وهكذا اصبح الكود: Private Sub cmd_Calc_Click() 'all weeks of the year 'Week Number, Saturday, Thursday 'do we have a Year If Len(Me.iYear & "") = 0 Then MsgBox "رجاء ادخال السنه التي تريد العمل عليها" Me.iYear.SetFocus Exit Sub End If 'Do we have iYear data in the table? If DCount("*", "semaine", "Year([dates1])=" & Me.iYear) Then MsgBox "الجدول به بيانات سنة " & Me.iYear & vbCrLf & vbCrLf & _ "لا يمكن الاستمرار" Exit Sub End If Dim D As Date, Date_1 As Date, Date_2 As Date Dim i As Integer, W As Integer Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From semaine") For i = 0 To 366 D = DateAdd("d", i, "1-1-" & Me.iYear) If D >= "31-12-" & Me.iYear Then Exit For If Weekday(D) = 7 Then Date_1 = D 'Saturday Date_2 = DateAdd("d", 5, Date_1) 'Thursday W = W + 1 rst.AddNew rst!n_semaine = W rst!dates1 = Date_1 rst!dates2 = Date_2 rst.Update 'Debug.Print W & vbTab & Date_1 & vbTab & Date_2 End If Next i MsgBox "Done" End Sub جعفر Week, Saturday, Thursday of the year.zip

مرحبا استاذ @moamen salem.. اين اسم التقرير واين الشرط الذي يفتح عنده التقرير؟

وعليكم السلام 🙂 بالاضافة الى ملاحظة اخوي حسين ، فقوانين المنتدى تتطلب ان يكون لكل سؤال موضوع خاص 🙂 جعفر

لقد قمت بإغلاق السؤال في حال تم اغلاق السؤال لن يلتفت احد بعد ذلك للموضوع انصحك بفتح موضوع جديد يتضمن السؤال او الاستفسار الذي تريده شكرا لك

الشكر لله الذي وفقنا لهذا

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

جداً ممتن استاذ محمد صالح جزاك الله عنا كل خير الكود عمل بشكل المطلوب

هيتعرض الساعة ٥ بتوقيت مكة المكرمة

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

فكرة اعجبتنى واجب الاحتفاظ بها والعودة اليها متى شئت بسهولة لذلك اضع الكود هنا والمرفق فى كشكولى المتواضع نسخ احتياطى لقاعدة الجدوال تلقائيا عند فى كل مرة يتم فيعا اغلاق القاعدة الامامية الكود داخل المديول وتلميحات الشرح بقدر المستطاع '--25-10-2021-----------------------------------------------' Option Compare Database Option Explicit Function RunSub() Dim dbs As DAO.Database Dim tdf As DAO.TableDef Dim strPathDB As String Dim strNameExtensionDB As String Dim strNameDB As String Dim strExtensionDB As String Dim strBackupPath As String Dim strNewNameBackupDB As String Dim fso As Object Dim Syso As Object Set dbs = CurrentDb() With dbs For Each tdf In .TableDefs 'Is the table a linked table? If tdf.Attributes And dbAttachedODBC Or tdf.Attributes And dbAttachedTable Then With tdf 'Connect property contains path of link strPathDB = .Properties("Connect").Value 'Path of linked database tables strPathDB = Replace(strPathDB, ";DATABASE=", vbNullString) End With End If Next tdf End With 'Backup path directory strBackupPath = CurrentProject.Path & "\Backup\" Set fso = CreateObject("scripting.filesystemobject") 'Create the Backup folder if it does not exist If Not fso.FolderExists(strBackupPath) Then fso.createfolder (strBackupPath) 'Database name with extension strNameExtensionDB = Right(strPathDB, Len(strPathDB) - InStrRev(strPathDB, "\")) 'Database name without extension strNameDB = Left(strNameExtensionDB, InStrRev(strNameExtensionDB, ".") - 1) 'extension only strExtensionDB = Right(strPathDB, Len(strPathDB) - InStrRev(strPathDB, ".")) 'New name for backup database strNewNameBackupDB = strNameDB & "-Backup-" & Format(Now, "mm-yyyy") & "." & strExtensionDB 'Backup database save path directory strBackupPath = strBackupPath & strNewNameBackupDB DBEngine.Idle 'Copy the backup database to its directory Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile strPathDB, strBackupPath Set Syso = Nothing DoCmd.RunCommand acCmdExit End Function المرفق ملاحظة هامة جدا هذا مثال فقط ينقصه اعادة ربط الجداول المرتبطة من قاعدة الخلفية فقط حتى يعمل النسخ الاحتياطى على اكمل وجه Automatically Backup.zip

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

تفضل التعديل cnbo.accdb

وهذي مشاركتي مع اخواني الأعزاء المحزن.accdb

تم تعديل الكود

المرفق رقم ( 2 ) فى المرفق الاول تحدثنا عن التشفير هذا المرفق يحتوى فقط على الجداول اللازمة لانشاء نظام الصلاحيات يختوى المرفق على - جدول UsystbllvlControlForms هذا الجدول الخاص بادراج اسماء النماذج المراد تطبيق صلاحيات الفتح والاضافة والتعديل والحذف عليها - جدول UsystbllvlGroup هذا الجدول الخاص باضافة اسماء المجموعات التى نريد عمل الصلاحيات لها - جدول UsystbllvlQuestions هذا الجدول الخاص باضافة اسئلة الأمان التى سوف يقوم المستخدم بإختيارها والإجابة عليها اثناء تقديم طلب التسجيل والتى سوف تمكنه من استعادة كلمة المرور فى حالة نسيان كلمة المرور - جدول UsystbllvlRegistrationUsers هذا الجدول الذى سوف يتم اضافة بيانات المستخدمين فيه والتى تحتاج قيما بعد لتفعيلها من قبل مسئول النظام -جدول UsystbllvlUsers جدول بيانات المستخدمين SecurityLevelGroup.mdb

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته هذا برنامج جمعية خيرية برجاء من السادة مستخدمي الموقع أن يرشدني إلى بعض عيوب هذا البرنامج ولهم الشكر https://drive.google.com/drive/folders/1J4Vl9sfPYTVpIPyyY7pcyBdEU0xuSLWy?usp=sharing

وعليكم السلام ورحمة الله وبركاته هذا الموضوع به طلبك ان شاء الله https://www.officena.net/ib/topic/66864-استدعاء-فورم-عن-طريق-رقم-سري/#comment-434812

السلام عليكم ورحمة الله استخدم هذا الكود Sub CallSude() Dim ws As Worksheet, Sh As Worksheet Dim i As Long, p As Long, j As Long Dim LR As Long, Fasl As String Application.ScreenUpdating = False Set ws = Sheets("laskat") For x = 3 To 58 Step 5 ws.Cells(x, 3).ClearContents ws.Cells(x + 1, 3).ClearContents ws.Cells(x + 1, 6).ClearContents ws.Cells(x + 2, 4).ClearContents ws.Cells(x, 12).ClearContents ws.Cells(x + 1, 12).ClearContents ws.Cells(x + 1, 15).ClearContents ws.Cells(x + 2, 13).ClearContents Next Fasl = ws.Range("S8").Text Set Sh = Sheets("data") LR = Sh.Range("C" & Rows.Count).End(3).Row For i = 3 To LR If Sh.Cells(i, 14) = Fasl Then p = p + 1 j = 2 Do While j <= 57 If ws.Cells(j, 8) = p Then ws.Cells(j + 1, 3) = Sh.Cells(i, 3) ws.Cells(j + 2, 3) = Sh.Cells(i, 15) ws.Cells(j + 2, 6) = Sh.Cells(i, 14) ws.Cells(j + 3, 4) = Sh.Cells(i, 5) ElseIf ws.Cells(j, 17) = p Then ws.Cells(j + 1, 12) = Sh.Cells(i, 3) ws.Cells(j + 2, 12) = Sh.Cells(i, 15) ws.Cells(j + 2, 15) = Sh.Cells(i, 14) ws.Cells(j + 3, 13) = Sh.Cells(i, 5) End If j = j + 5 Loop End If Next Application.ScreenUpdating = True End Sub

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

قبل ان اتكلم عن الجداول حابب اعرف راى اساذتى واخوانى واحبائى الكرام عن الاتى فلنسمى الجزء النظرى الاتى هو جزء التحليل للنظام ووضع التصور والخارطة التى سوف نكمل دربنا ان شاء الله على خطاها اولا حابب ابدأ كل اسماء الجداول والاستعلامات والنماذج والموديول ان وجدت بــ lvl حتى يكونون مميزين ومرتبين فى العمل مستقبلا على سبيل المثال جدول الـ users احب ان يكون اسمه tbllvlUsers ان اردنا عدم اخفاء الجدول على انه من جداول النظام ان اردنا اخفاء الجدول على انه من جداول النظام يكون UsystbllvlUsers وباقى الكائنات على نفس المنوال فما رأيكم على اى درب تحبون ان نسيـــــر ثانيا حقول جدول المستخدمين من وجهة نظرى سوف تكون كالاتى فهل لكم وجهة نظر أخرى فى الغاء احد الحقول او الزيادة عليها ومن جهتكم اى حقول تريدون تشفر بياناتها ؟! اسم المستخدم , كلمة المرور , الاسم الرباعى , البريد الالكترنى , الاجابات على الاسئلة هذا من وجهة نظرى هل لكم رأى اخر فى انتظار ارائكم احبابى فى الله

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

هذه بعض نتائج البحث في المنتدى بالتوفيق

الأخت الكريمة الكود الذي وضعه أخونا/اختنا jasmin صحيح ويقوم باستيراد الجدول كاملا أيضا من خلال ado ولكي تقومي باستيراد حقول معينة من الجدول يلزمك بعض الخبرة بكتابة لغة الاستعلامات SQL ولهذا أنصحك بتصميم استعلام للحقول التي تريدين استيرادها من الأكسس (في الأكسس) ثم تقومي بتصدير هذا الاستعلام إلى ملف الإكسل المطلوب أتمنى أن يكون اتضح الأمر

أخي الكريم عام 1999 ليس من الأعوام الكبيسة والتي يكون فيها شهر فبراير 29 يوم وإنا هو عام بسيط وشهر فبراير به يكون 28 يوم وإذا قمت بتغيير اليوم إلى 28 ستجد أن باقي الأيام 3 فالمعادلة صحيحة 100% والشكر موصول لأخي بن علية

أخي الكريم قم بإدراج موديول جديد في نافذة فيجوال بيسك للتطبيقات من خلال الضغط على ALT+F11 ثم من قائمة insert نختار module ثم قم نسخ الدالة الموجودة في المشاركة السابقة ثم اغلق محرر VBA واكتب تاريخ في الخلية a1 ثم اكتب طريقة استدعاء الدالة في الخلية b1 مثلا وأخبرني بالنتيجة

أخي الكريم بعد إذن أخي طارق يمكنك استعمال هذه الدالة على فرض أن التاريخ موجود في الخلية a1 =DateAdd("m",14,a1)

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