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

السلام عليكم ورحمة الله و بركاته اصدقائي هذا التطبيق هو تطوير لهذا الموضوع في الموضوع السابق كان يجب علينا كتابة اسم السيرفر و اسم قاعدة البيانات ضمن الكود للارتباط بالجداول في هذا التطبيق نستطيع عرض سيرفرات SQL الموجود على الجهاز و اختيار السيرفر و اختيار قاعدة البيانات واختيار نوع الاتصال للارتباط بالجداول طبعا يجب اضافة المرجع SQLDMO.DLL الى البرنامج وهنا يتم اضافة المرجع برمجيا دون اي تدخل من المستخدم الملف SQLDMO.DLL يجب ان يكون في نفس مسار قاعدة البيانات Dim DB As Database Dim RS As Recordset2 Dim TblName As String Dim Td As TableDef ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub chk1_AfterUpdate() If Me.chk1 = True Then Me.TUserName.Enabled = False Me.TPassWord.Enabled = False Else Me.TUserName.Enabled = True Me.TPassWord.Enabled = True End If End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Cm1_Click() On Error GoTo ErrSub If IsNull(Me.Comp1) Then MsgBox "يرجى اختيار السيرفر", vbCritical Exit Sub End If If IsNull(Me.Comp2) Then MsgBox "يرجى اختيار اسم قاعدة البيانات", vbCritical Exit Sub End If If Me.chk1 <> 1 And (IsNull(Me.TUserName) Or IsNull(Me.TPassWord)) Then MsgBox "يرجى ادخال اسم المستخدم و كلمة المرور", vbCritical Exit Sub End If For Each Td In CurrentDb.TableDefs If Len(Td.Connect) <> 0 Then CurrentDb.TableDefs.Delete Td.Name End If Next DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1 & ";Database=" & Me.Comp2 & ";Trusted_Connection=Yes", acTable, "INFORMATION_SCHEMA.TABLES", "INFORMATION_SCHEMA_TABLES" Set DB = CurrentDb Set RS = DB.OpenRecordset("INFORMATION_SCHEMA_TABLES", dbOpenTable) RS.MoveFirst Do While RS.EOF = False TblName = RS.Fields(2) If Me.chk1 = 1 Then DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1 & ";Database=" & Me.Comp2 & ";Trusted_Connection=Yes", acTable, TblName, TblName Else DoCmd.TransferDatabase acLink, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1 & ";Database=" & Me.Comp2 & ";UID=" & Me.TUserName & ";PWD=" & Me.TPassWord, acTable, TblName, TblName End If RS.MoveNext Loop RS.Close Me.Comp2.RowSource = "" DoCmd.Close acTable, "sysdatabases" DoCmd.DeleteObject acTable, "INFORMATION_SCHEMA_TABLES" DoCmd.DeleteObject acTable, "sysdatabases" MsgBox "تم الارتباط بكافة الجداول بنجاح", vbInformation ErrSub: If Err.Number <> 0 Then MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbMsgBoxRight End If End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Cm2_Click() Dim i As Integer Dim oNames As SQLDMO.NameList Dim oSQLApp As SQLDMO.Application Dim SysServerCount As Integer Set oSQLApp = New SQLDMO.Application Set oNames = oSQLApp.ListAvailableSQLServers() SysServerCount = oNames.Count Me.Comp1.AllowValueListEdits = True Me.Comp1.RowSourceType = "Value List" If SysServerCount = 0 Then Me.Comp1.RowSource = "local" Else For i = 1 To SysServerCount Me.Comp1.AddItem oNames.Item(i) Next i Me.Comp1.AllowValueListEdits = False End If Me.Comp1.SetFocus Me.Comp1.Dropdown End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Comp1_AfterUpdate() On Error GoTo ErrSub DoCmd.TransferDatabase acImport, "ODBC Database", "ODBC;Driver={SQL Server};Server=" & Me.Comp1.Value & ";Database=master;Trusted_Connection=Yes", acTable, "sys.databases", "sysdatabases" Me.Comp2.RowSource = "SELECT sysdatabases.name, sysdatabases.is_auto_close_on FROM sysdatabases WHERE (((sysdatabases.is_auto_close_on)=-1))" Me.Comp2.SetFocus Me.Comp2.Dropdown ErrSub: If Err.Number <> 0 Then End If If Err.Number = 3059 Then MsgBox "تاكد من تشغيل السيرفر", vbCritical + vbMsgBoxRight End If End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Form_Close() On Error Resume Next DoCmd.DeleteObject acTable, "sysdatabases" End Sub ------------------------------------------------------------------------------------------------------------------------------------------- Private Sub Form_Load() On Error Resume Next With Access.References .AddFromFile CurrentProject.Path & "\SQLDMO.DLL" End With End Sub Link All Table.rar

تفصل الملف بدون اعمدة مخفية salim1مرتبات-على.rar

اتفضل اليك هذا الكود On Error Resume Next If Len(Me.n1 & "") = 0 Then Exit Sub ElseIf DCount("[rajmasand]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = 0 Then MsgBox "ليس لدينا اي عقد بھذا الرقم" Exit Sub ElseIf DLookup("[terhel]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = "غادر" Then MsgBox "هذا مغادر لايمكن فتح نموذج المردود" ElseIf DLookup("[terhel]", "asnsdat", "[rajmasand]='" & Me.n1 & "'") = "موجود" Then DoCmd.close acForm, "بحث عن مردود", acSaveNo DoCmd.OpenForm "مردود", acNormal, , "[rajmasand]='" & R & "'" Else MsgBox "ادخل رقم السند المطلوب تعديله" End If واليك ملف بعد تعديل طبق-بهدا.rar

الحل فى المشاركه دى

هذه المعادلة في C2 ثم اسحب يساراً و نزولاُ =SUMPRODUCT((ورقة1!$C$6:$C$155=C$1)*(ورقة1!$B$6:$B$155=$B2))

هل هذا ما تقصد يا اخى تغيير محتوى خلية معينة بمعادلة بعد وقت معين (1).rar

جرب هذا الملف تم اخفاء يعض الاعمدة لسهولة الرؤية(يمكنك اعادة اظهارها) كما يمكنك تغيير القيم في الجدول (بالون الاصفر) salimمرتبات-على.rar

تفضل أخى لعل هذا هو المطلوب تغيير محتوى خلية معينة بمعادلة بعد وقت معين.rar

شكرا استاذي الحبيب على هذه الهدية

اتفضل اليك هذا الحل اولا في الاستعلام انا اضفت لكل حقل حقل اخر بهذه الصيغة b1: Replace(Nz([b];"");" ";"") لكي يحذف جميع الفراغات للحقل وبعدين اضفت مربع نصي في النموذج باسم text44 وعطيت هذا الكود لمربع البحث text0 بعد تحديث Private Sub TEXT0_AfterUpdate() Me.Text44 = Replace(Nz(Me.TEXT0, ""), " ", "") End Sub وحذفت الشرط في الاستعلام من الحقول الاصلية وعطيت الشرط للحقول اللي انا عملته بدو مسافات وهذا هو الشرط Like "*" & [Forms]![FORM1]![Text44] & "*" وايضا اضفت لزر تصفير البحث هذا الكود Private Sub Command13_Click() Me![TEXT0] = Null Me![Text44] = Null Me.Requery End Sub والكود زر البحث خليت كما هو Private Sub COMMAND2_Click() Me.Requery End Sub والان اكتب النص بمسافة او بدون مسافة سيتم حذف المسافات ويبحثه اليك قاعدة بياناتك بعد تعديل b.rar

تفضل الدالة Midتحقق المطلوب Mid([feldName];3) افتح الاستعلام الموجود داخل المثال لترى النتيجة db1.rar

السلام عليكم أعتقد أن البعض من مستخدمي الإكسيل يجدون صعوبة في التعامل مع الوقت و التاريخ في الإكسيل نظرا لعدم فهمهم آلية تعامل البرنامج مع الوقت و التاريخ. هذه السلسلة محاولة لتزيل بعض من هذا الغموض و الصعوبة.( الموضوع مترجم ) أولا: نوضح آلية تعامل الإكسيل مع التواريخ: بشكل أساسي يستخدم الإكسيل نظام 1900. ما هو نظام 1900 هذا ؟؟؟؟؟؟؟ هو نظام يعتبر فيه الإكسيل أن التاريخ 1 يناير عام 1900 بمثابة الرقم 1 و بالتالي فالتاريخ 2 يناير عام 1900 بمثابة الرقم 2 و هكذا حتى نصل لتاريخ اليوم. و هذه القيم تسمى في الإكسيل بـ ( القيم المتسلسلة ) و هي التي تسمح لنا بإجراء العمليات الحسابية على التواريخ. ثانيا: توضيح آلية تعامل الإكسيل مع الوقت : تعامل الإكسيل مع الوقت يتشابه لحد كبير. لكن الإكسيل ينظر للوقت على أنه ( كسور عشرية ) معتبرا أن الساعة 24:00 ( أي الساعة 00:00) بمثابة واحد صحيح. أي أن الساعة 18:00 بمثابة القيمة 0.75 لأنها تعتبر ثلاثة أرباع اليوم الكامل (24 ساعة ) الذي يعتبره الإكسيل كما قلنا بأنه 1 صحيح . ملحوظة مهمة : لكي ترى القيمة الحقيقية للوقت أو التاريخ في الإكسيل فقط قم بتنسيق الخلية التي بها الوقت أو التاريخ على عام (General).وانظر القيمة التي أمامك!!! على سبيل المثال اكتب تاريخ اليوم(21/8/2010 ) في خلية و قم بتنسيق الخلية على عام (General) ستجد الرقم 40411 اكتب تاريخ اليوم(21/8/2010)و بجواره الوقت وليكن الساعة 15:00 في خلية واحدة وقم بتنسيق الخلية على عام (General) ستجد الرقم 40411.625 الرقم يمين العلامة(625) يمثل الوقت و الرقم يسار العلامة(40411) يمثل التاريخ . أتمنى أن يكون الشرح واضح و أزال بعض من الغموض هناك بقية ...تابعونا دمتم بخير أيسم إبراهيم

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