kanory

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

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

ممكن تعملها داخل نموذج فرعي في نموذج رئيسي ..... تفضل ..... اللجان والتصحيح7.4.accdb

دائما سباق للخير أخي العزيز

ملاحظة للفائدة : غير مفيد جعل الترقيم التلقائي مفتاح .... لذلك اجعل المفتاح رقم الهوية مثلا .... وهناك تعديلات حسب طبيعة برنامجك ... لا نستطيع اجبارك عليها مثل رقم خاص لكل فرد من افراد الاسرة ... تفضل ..... test (4).accdb ههههههههه .... اعتذر منك اخي لان الاجابة كانت في نفس الوقت

تفضل >>>>>>>> test (3).accdb

متابع ومنتظر ... تشكر على الامثلة الرائعة

نماذج وابداعات جميلة اخي @Moosak شكرا لك ...

بل انت انسان عسل وسهل وانا شخصيا اعتبرك فاكهة المنتدي .... ما شاء الله عليك ..... بارك الله فيك وفي تواضعك الجم .... أسأل الله تعالى لك وللجميع التوفيق ,,,,,

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

تفضل هذا ما يقصده اخي @ناقل Database_kan.accdb

طيب جرب كده ........ kan_الغياب.accdb

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

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

الكثير من الافكار موجودة في المنتدى ابو زهرة .... ابحث تجد ما يسيل له لعابك ........ لكن هذه فكرة ايضا جربها .... 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