kanory

طيب ... سؤال اخر هل جدول ايام الشهر متغير ... اقصد من حيث الاسم ...... افكر في حل في رأسي ... يحتاج بلورة ..... اجب حتى اسنطيع محاولة تطبيق فكرتي ..... 😎

ممتاز ...... لكن لا زالت نماذج المسؤول تعمل لدى المستخدمين ..... هل جربت المرفق جيدا ؟؟؟؟

الكثير من الافكار موجودة في المنتدى ابو زهرة .... ابحث تجد ما يسيل له لعابك ........ لكن هذه فكرة ايضا جربها .... Kan_asd.accdb

الملف يحتاج بعض التعديلات ..... قمت بتعديل بعضها انظر اليوزر الاول واليوزر الثاني وكلاهما الباس 123 asd.rar

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

حياك الله ....... بالتوفيق

تفضل <<<<<<<>>>>>>>> Kan_20211007.rar

طيب <<<<<<>>>>>>> هل المدة المعلمة باللون الازرق هي مدة الاقتطاع أم ماذا تمثل في الجدول ؟؟؟؟

طيب جرب <<<<<<<<>>>>>>>>> 20211007 (1).rar

الكود ليس فيه جديد ( هو استعلام ولكن عن طريق VB فقط ) لو قمت بنسخ هذا الجزء مثلا والصقتة في طريق عرض SQL في الاستعلام يظهر لك الاستعلام INSERT INTO 1 ( [رقم الكتاب], [تاريخ الكتاب], الاسم, الوظيفة, الموضوع, [اسم المستلم], [تاريخ الاستلام], المرحلة ) SELECT المعاملات.[رقم الكتاب], المعاملات.[تاريخ الكتاب], المعاملات.الاسم, المعاملات.الوظيفة, المعاملات.الموضوع, المعاملات.[اسم المستلم], المعاملات.[تاريخ الاستلام], المعاملات.المرحلة FROM المعاملات WHERE (((المعاملات.[رقم الكتاب])=[Forms]![ادخال بيانات]![رقم الكتاب])); ثم في حدث الزر استدعيه بهذه الصورة فلن تعمل رسائل التحذير .... طبعا هذه طريقة وهناك طرق اخرى .. DoCmd.SetWarnings False DoCmd.OpenQuery "استعلام1" DoCmd.SetWarnings True

طيب جرب المرفق هذا <<<<<<<>>>>>>>> al3beadlly.rar نافذة الرسائل بسيطة يمكن تلافيها وعدم ظهورها .....

تفضل <<<<<<<<<>>>>>>>>> al3beadlly.rar

لاضافة جدول في قاعدة خارجية استخدم الاتي <<<<<<<>>>>>>>> Dim msgstyle Dim strSQL1 As String Dim b As New Access.Application Set b = CreateObject("Access.Application") b.OpenCurrentDatabase (Me.txtPath) strSQL1 = "CREATE TABLE [kanory] ([ProductID] AUTOINCREMENT,[ProductName] TEXT(40) NOT NULL,[SupplierID] LONG,[BirthDate] DATETIME,[CategoryID] LONG,[QuantityPerUnit] TEXT(20),[UnitPrice] CURRENCY,[UnitsInStock] SMALLINT,[UnitsOnOrder] SMALLINT,[ReorderLevel] SMALLINT,[Discontinued] BIT NOT NULL,CONSTRAINT [PrimaryKey] PRIMARY KEY ([ProductID]));" b.DoCmd.RunSQL strSQL1 MsgBox Space(20) & "تم انشاء الجدول Kanory بنجاح.." & Space(20), msgstyle, "للمعلومية" Set b = Nothing اما لتعديل خصائص حقل موجود في الجدول استخدم التالي مع ملاحظة : ان اختلاف البيانات قي الحقل اذا كانت هنا بيانات ممكن تفقدها :::: <<<<<>>>>>>> Dim msgstyle Dim b As DAO.Database Dim strFieldName As String Set b = DBEngine.OpenDatabase(Me.txtPath) With b.TableDefs("Kanory").Fields("S_Name") .Properties.Append .CreateProperty("DisplayControl", dbInteger, AcControlType.acComboBox) .Properties.Refresh End With MsgBox Space(20) & "تم انشاء الجدول Kanory بنجاح.." & Space(20), msgstyle, "للمعلومية" b.Close Set b = Nothing

ممكن مثال صغير للفكرة التي تريدها

واضح الرسالة تظهر قبل الضغط على زر ارسال البيانات ... صحيح

جرب تغير هذا الكود <<<<<<>>>>>>>>> Fol.AllowMultiSelect = False بهذا ........... Fol.AllowMultiSelect = True

هذا الكلام في المرفق ام برنامجك ........... وماهي رسالة الخطأ التي تظهر .....

جرب المرفق <<<<<<<<>>>>>>>>> Kanory.accdb

يا اخي هل طبقك الكود قبل السؤال .... وفتحت على خصائص الجدول ..... ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

تفضل <<<<<<<<<>>>>>>>>> Dim strSQL1 As String strSQL1 = "CREATE TABLE [kanory] ([ProductID] AUTOINCREMENT,[ProductName] TEXT(40) NOT NULL,[SupplierID] LONG,[BirthDate] DATETIME,[CategoryID] LONG,[QuantityPerUnit] TEXT(20),[UnitPrice] CURRENCY,[UnitsInStock] SMALLINT,[UnitsOnOrder] SMALLINT,[ReorderLevel] SMALLINT,[Discontinued] BIT NOT NULL,CONSTRAINT [PrimaryKey] PRIMARY KEY ([ProductID]));" DoCmd.RunSQL strSQL1 اسف اخي الكريم @عبد اللطيف سلوم يبدو ان المشاركيتن في في الوقت .... لكن الطريقتين مختلفتين للفائدة .....

تم التطبيق على المرفق <<<<<<<>>>>>>> تجريبي (1).rar

مشاركة مع حبايبنا الاساتذة <<<<<<<<>>>>>>>> DATA2.accdb

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

هذه الرسالة تخبرك بأنك تحاول الكتابة على سجل موجود اصلا ولهذا يحدث التعارض لذا لديك ثلاث خيارات اما حفظ السجل او اضافة التحديث اولا الى الحافظة ثم بعد ذلك يتم نسخ ما تم في الحافظة الى السجل او الغاء الأمر....................................... لذا لحل هذا التعارض يلزمك عمل حفظ للسجل يمكن استخدام هذا الكود ....... DoCmd.RunCommand acCmdSaveRecord

واياك استاذنا الفاضل ابا الحسن ... جزاك الله خيرا