ابوخليل

وعليكم السلام تفضل وجدت لك وحدة نمطية تقوم بالمطلوب Public Function CreateLinks(strBEPath) As Boolean On Error GoTo Err_Handler Dim dbsFE As DAO.Database Dim dbsBE As DAO.Database Dim wksJET As DAO.Workspace Dim strTableName As String Dim strConnect As String Dim tdfBE As DAO.TableDef Dim tdfFE As DAO.TableDef Set wksJET = DBEngine.Workspaces(0) Set dbsBE = wksJET.OpenDatabase(txtPath) Set dbsFE = wksJET.OpenDatabase(txtPath1) For Each tdfBE In dbsBE.TableDefs If Left$(tdfBE.Name, 4) <> "MSys" And _ Len(tdfBE.Connect) = 0 Then strTableName = tdfBE.Name strConnect = ";DATABASE=" & strBEPath Set tdfFE = dbsFE.CreateTableDef(strTableName) tdfFE.Connect = strConnect tdfFE.SourceTableName = strTableName dbsFE.TableDefs.Append tdfFE Set tdfFE = Nothing End If Next tdfBE CreateLinks = True Exit_Handler: On Error Resume Next Set tdfFE = Nothing Set tdfBE = Nothing Set dbsFE = Nothing dbsBE.Close Set dbsBE = Nothing Set wksJET = Nothing Exit Function Err_Handler: MsgBox Err.Description, vbExclamation, "Error No: " & Err.Number Resume Exit_Handler End Function للذهاب إلى المصدر ‏‏kanory2.rar

السلام عليكم : خذ باعتبارك انك لن تستفيد من برنامجك خلال موسم الحج هذا لان الموسم قريب ثانيا يجب ان تبدأ بتصميم الجداول بالطريقة المناسبة الصحيحة ، وتترك ما عداها حتى يفيدك خبراء المنتدى باكتمال المطلوب حينها يمكنك الانتقال للخطوة التالية . من شرحك اعلاه انت بحاجة الى الجداول التالية لعمل برنامجك المختصر : 1- جدول بيانات المرضى 2- جدول بيانات الغرف 3 - جدول بيانات الاطباء 4- جدول بالتشخيصات المعتادة المتوقعة 5- جدول باقسام المستشفى 6- جدول لتسجيل العمليات ( رقم المريض_ نوع المريض _دخول _ خروج _ نقل دم _كمية الدم _ رقم الغرفة _ رقم الطبيب _ التشخيص _ محول من _ تاريخ الدخول _ تاريخ الخروج ) حيث ان كل سجل واحد يعتبر زيارة للمريض و يأخذ سجلا جديدا في الزيارة الاخرى اما الدم فيمكن يسجل ( نعم/لا والكمية ) ويمكن نضع جدولا خاصا وهذا يرجع فيه الى طريقة تسجيل البيانات المستخدم على الورق بالنسبة للتمريض فتحتاج عمل مستقل لها وترتيب خاص وتربط اما مع الطبيب او مع الغرف

اخونا عبد الحميد تم فصل استفساراتك كمواضيع مستقلة بالنسبة لشرح الجمل البرمجية أعلاه. بصورة عامة : يتم البحث في مجموعة السجلات عن القيمة x في الحقل id وعندما يجدها يتوقف ويظهر النتيجة Dim x } } اكس هذه تمثل قيمة عامة تم الاعلان عنها بـــ Dim ليعرفها اكسس {x = SearchList.Column(0)}هنا اعطينا اكس قيمة وهي = قيمة اول حقل سجل بالقائمة حيث الرقم صفر المحصور بين القوسين يدل على ترتيب العمود داخل القائمة If Not IsNull(x) Then} } إذا اكس يحمل قيمة {Me.RecordsetClone.FindFirst "[id] = " & x} معلوم ان الحدث تم عند النقر على الحقل أي ان التركيز كان على حقل معين في سجل ضمن مجموع السجلات فالسطر اعلاه يعني : ابحث واستنسخ كامل السجل بشرط id = x {Me.Bookmark = Me.RecordsetClone.Bookmark) اظهار نتيجة البحث

تفضل accessfix.rar

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

كود الاستاذ جعفر الاخير شغال 100% الصق هذه في اعلى الكود Dim mySQL انظر المرفق حيث الغيت خاصية الانتقال بين الحقول في الرئيسي حتى يبقى التغيير ظاهرا test20.rar

اعمل حقل بحث جديد غير منضم اسمه cmd_search وفي حدث بعد التحديث لهذا الحقل الصق الكود التالي : Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = " & Str(Nz(Me![cmd_search], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark لاحظ يجب ان يكون نوع حقل id رقميا اما ان كان نصيا فاستخدم هذا : Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = '" & Me![cmd_search] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark

تفضل Dim x x = SearchList.Column(0) If Not IsNull(x) Then Me.RecordsetClone.FindFirst "[id] = " & x Me.Bookmark = Me.RecordsetClone.Bookmark End If ‏‏دليل ارقام التحويلات2.rar

بعد اذن استاذنا sandanet نعم هذا احد الاسباب التي تسبب تلف قاعدة البيانات يفضل اجراء هذه العملية يدويا ، ويفضل اخذ نسخة احتياطية قبلها بالنسبة للبيانات الموجودة داخل القاعدة التالفة فيوجد برامج تمكنك من سحب الجداول

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

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

نعم في 2003 وما قبله

تفضل تم التعديل الاجازات - Copy.rar

___ للرفع ___ رفع الله درجاتكم

تفضل بحث شامل جميع الحقول وبجزء من الكلمة داخل النموذج الرئيسي الكود اخذته من مثال للاستاذ جعفر للبحث داخل النموذج الفرعي Dim fld As String Dim x() As String Dim A As String Dim i As Integer fld = "[اليوم]" fld = fld & " & ' ' & " & "[التاريخ]" fld = fld & " & ' ' & " & "[الاسم]" fld = fld & " & ' ' & " & "[رقم الهوية الوطنية / الاقامة]" Me.RecordSource = "" mySQL1 = "Select * From [المراجعين]" mySQL = mySQL1 & " Where " Me.textSearch.SetFocus A = Me.textSearch.Text A = Replace(A, "/", "|") A = Replace(A, "\", "|") A = Replace(A, " ", "|") A = Replace(A, "*", "|") x = Split(A, "|") If UBound(x) = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else For i = LBound(x) To UBound(x) If i = 0 Then mySQL = mySQL & fld mySQL = mySQL & " Like '*" & x(i) & "*'" Else mySQL = mySQL & " AND " & fld mySQL = mySQL & " Like '*" & x(i) & "*'" End If Next i End If If Len(Me.textSearch.Text & "") = 0 Then mySQL = mySQL1 End If Me.RecordSource = mySQL End Sub بحث شامل في نموذج رئيس.rar

نعم تتغير العلامات التي تحصر المقارنة انظر اسفل : الأول يبحث في الحق النصي والثاني يبحث بالحقل الرقمي rs.FindFirst "[text_field] = '" & Me![textSearch] & "'" rs.FindFirst "[number_field] = " & Me![textSearch]

رغم ان موضوعك مكرر ولكن من باب عرض اكثر من حل تفضل بحث في النموذج بواسطة الاسم مثال اظهار بيانات السجلات2.rar

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

وعليكم السلام تستطيع ان تجعل اكثر من مستخدم يعملون على نموذج في وقت واحد اولا يجب تقسيم قاعدة البيانات الى واجهات و جداول ثانيا : ضبط خصائص النموذج على النحو التالي : افتح النموذج على التصميم : 1- خصائص / لسان التبويب بيانات / اجعل الخاصية : تأمين السجلات = سجل محرر 2 - خصائص / لسان التبويب بيانات / اجعل الخاصية : ادخال بيانات = نعم

مشاركة مع اخي العزيز الاستاذ ابو عبدالله رأيي تعطيل ازرار لوحة المفاتيح عند الضغط DoCmd.CancelEvent test442.rar

نعم يوجد حل بان نجعل الحقلين مفتاحين ، ولكن : العملية الحاق وليست تحديث بمعنى يتم الحاق سجل كامل (تكرار) اذا تغير احد الحقلين والا لا يمكن التكرار انظر المرفق وانظر في تصميم جدول istimaraall ملحوظة : من الخطأ الفادح ان يتم تسمية الحقول بكلمات محجوزة في اكسس مثل date و year append3.rar

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

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

تفضل هدية العيد وكل عام وانتم بخير iiii5.rar

كل عام وانتم بخير