ابوخليل

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

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

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

السلام عليكم شكرا للاستاذ شيفان على سطر الكود الجميل نعم يوجد حل لتعديل حقل الترقيم التلقائي Dim DB As Database, RS As Recordset Set DB = CurrentDb Dim i As Integer i = Me.id_start Set RS = DB.OpenRecordset("tbl1") RS.AddNew RS!id = i RS.Update Me.Requery txtName.SetFocus بداية ترقيم تلقائي.rar

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

هنا موضوع يتحدث عن مطلوبك

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

وعليكم السلام تفضل وجدت لك وحدة نمطية تقوم بالمطلوب 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

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