kaser906

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

وعليكم السلام ورحمة الله وبركاتة ماهو إصدار windos الذي تستخدمه للجهاز الخادم ( السيرفر )

وننتظر رد وإجابة @محمد صلاح1 هل عملت الاكواد لديه أم لا

هذه للدلالة على الحقل المطلوب مقارنت قيمته في النموذج بدون الاشارة الى النموذج حقل رقمي وعلامتي & تدله ان الحقل موجود بالنموذج اما هنا فقد استخدمت الاشارة الى النموذج مباشرة لأستغني عن تعريف نوع الحقل وهو حقل نصي ويمكننا جعل الكود بهذا الشكل اذا لم نرد الاشارة الى النموذج وتعريف الحقل الرقمي والنصي x = DCount("[id_mdasa]", "[copy_mdars]", "[id_mdasa]=" & Me.id_mdasa & " AND [amm_mdesa]='" & Me.amm_mdesa & "'") ::بالتوفيق::

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

قبل ان اشرح هل هذا ما تريد ؟

تفضل ::بالتوفيق:: Kaser906الزبون.rar

وعليكم السلام ورحمة الله وبركاتة تفضل ::باالتوفيق:: ترحيل-بشرط العام kaser906المالي.rar

ارفق مثال للتطبيق عليه

لاحول ولا قوة إلا بالله العلي العظيم

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

ستكون الاكواد بهذه الطريقة Const mypswd As String = "الرقم السر لقاعدة البيانات الأولى" Const mypswd2 As String = "الرقم السري لقاعدة البيانات الثانية" Const bnd As String = "أسم قاعدة البيانات الأولى.امتداد القاعدة" Const bnd2 As String = "أسم قاعدة البيانات الثانية.أمتداد القاعدة" Dim bkend As String Dim bkend2 As String If Dir(CurrentProject.Path & "\" & bnd) <> "" Then bkend = CurrentProject.Path & "\" & bnd If acbRelink(Nz(bkend, ""), True, mypswd) Then End If If Dir(CurrentProject.Path & "\" & bnd2) <> "" Then bkend2 = CurrentProject.Path & "\" & bnd2 If acbRelink2(Nz(bkend2, ""), True, mypswd2) Then DoCmd.Close End If Private Function acbRelink(strpath As String, Optional blnSilent As Boolean = True, Optional paswd As String = "") As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...") Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = _ dbAttachedTable Then tdf.Connect = "MS Access;DATABASE=" & strpath & ";" & "PWD=" & paswd & ";" On Error Resume Next tdf.RefreshLink On Error GoTo 0 End If Next Call SysCmd(acSysCmdClearStatus) acbRelink = True ExitHere: Call SysCmd(acSysCmdClearStatus) Exit Function HandleErrors: acbRelink = False Select Case Err.Number Case 3011 Case Else If Not blnSilent Then MsgBox Err.Description, , _ "acbRelink Error " & Err.Number End If End Select Resume ExitHere End Function Private Function acbRelink2(strpath As String, Optional blnSilent As Boolean = True, Optional paswd As String = "") As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...") Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = _ dbAttachedTable Then tdf.Connect = "MS Access;DATABASE=" & strpath & ";" & "PWD=" & paswd & ";" On Error Resume Next tdf.RefreshLink On Error GoTo 0 End If Next Call SysCmd(acSysCmdClearStatus) acbRelink2 = True ExitHere: Call SysCmd(acSysCmdClearStatus) Exit Function HandleErrors: acbRelink2 = False Select Case Err.Number Case 3011 Case Else If Not blnSilent Then MsgBox Err.Description, , _ "acbRelink2 Error " & Err.Number End If End Select Resume ExitHere End Function

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

ومشاركة مع الاستاذ @kanory احد روائع الاستاذ أبو يوسف الله يجزاه بالخير استخدم هذه الاكواد ف نموذج بدء التشغيل Const mypswd As String = "الرقم السري" Const bnd As String = "أسم قاعدة البيانات الخلفية .أمتداد الملف" عند فتح النموذج On Error Resume Next Dim bkend As String If Dir(CurrentProject.Path & "\" & bnd) <> "" Then bkend = CurrentProject.Path & "\" & bnd If acbRelink(Nz(bkend, ""), True, mypswd) Then DoCmd.Close End If Private Function acbRelink(strpath As String, Optional blnSilent As Boolean = True, Optional paswd As String = "") As Boolean Dim db As DAO.Database Dim tdf As DAO.TableDef Call SysCmd(acSysCmdSetStatus, "Re-linking the data tables...") Set db = CurrentDb() For Each tdf In db.TableDefs If (tdf.Attributes And dbAttachedTable) = _ dbAttachedTable Then tdf.Connect = "MS Access;DATABASE=" & strpath & ";" & "PWD=" & paswd & ";" tdf.RefreshLink End If Next Call SysCmd(acSysCmdClearStatus) acbRelink = True ExitHere: Call SysCmd(acSysCmdClearStatus) Exit Function HandleErrors: acbRelink = False Select Case Err.Number Case 3011 Case Else If Not blnSilent Then MsgBox Err.Description, , _ "acbRelink Error " & Err.Number End If End Select Resume ExitHere End Function ::بالتوفيق::

وعليكم السلام ورحمة الله وبركاتة تفضل Private Sub itemeid_BeforeUpdate(Cancel As Integer) Dim x As Integer x = DCount("[itemeid]", "[lsd]", "[itemeid]=" & Me.itemeid & " AND [listid]=Forms![lsh]![listid]") If x > 0 Then MsgBox "تم إدخال هذا الصنف مسبقا", 48, "تنبيه" DoCmd.CancelEvent Me.Undo End If End Sub ::بالتوفيق:: kaser906.accdb

بالخدمه أخي الكريم

نقل التركيز للمؤشر الى حقل اسم المادة

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

New Microsoft Access قاعدة 906بيانات.accdb

افتح موضوع جديد بما يخص هذا الطلب ::بالتوفيق::

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

ايش اللي وضعته ؟

ليتك تعمل زحمة وتشرح بالتفصيل ما تريد وتضع مرفق ::بالتوفيق::

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

تفضل Usrsekasr906.rar