ابوخليل

؟؟

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

تفضل حسب طلبك ولكن انتبه فقد تقع في ظلم بريء كيف ؟ يأتي شيطان من الانس وبعد تسجيل حضوره في الوقت الصحيح : يقوم بتغيير ساعة الجهاز ويذهب الذي سيأتي بعده سيقع في الشرك لذا قلت الافضل : الاكتفاء بقفل المنافذ على المتلاعب db9.rar

تفضل db8.rar

تفضل تم التعديل Copy of HorusAccount-122345.rar

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

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

اخي الكريم يجب الاهتمام باختيار عنوان مناسب يصف الموضوع حتى لاتعرض موضوعك للاغلاق

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

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

تم التعديل وانت تكتب

Me.Page = Me.Pages استاذنا العزيز هل يمكن ترجمة الجملة اعلاه ؟ واذا لا تترجم حرفيا فماذا تعني ؟

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

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

وهذا برنامج آخر .. محمي عن التعديل اسم المستخدم =1 وكلمة المرور=1 Yatem.rar

وجدت لك برنامجا يخص اليتيم اعتقد انه اعم واشمل ، اتمنى ان يفي بحاجتك يتيم.rar

المعذرة اخوي حلبي وملاحظتك صحيحة لا غبار عليها غير الرقم 3 الى 2 في موضعين الاول في الحقل A والثاني في محرر الفيجوال في حدث بعد التحديث لحقل التحضير TXTCOD ولاحظ ان حقلي الوقت عند فتح النموذج متساويين ولا تنسى الاتصال بالانترنت

تفضل db7.rar

تفضل جمعية احباب الله قاعدة بيانات الايتام5.rar

السلام عليكم اخواني واحبتي : كنت قد اعددت درسا لم يكتمل بعد عن العلاقات عامة ومن ضمنها امكانية صنع الجداول والعلاقات برمجيا وحيث ان الغرض هو نشر المعلومة هذا مثال بضغطة زر لعمل الجداول وعلاقاتها وتتالي تحديث الحقول وتتالي الحذف Option Compare Database Function CreateTableScripts() CurrentProject.Connection.Execute "CREATE TABLE [categories]([categoryid] LONG IDENTITY(1,1) , [categoryname] VARCHAR(15) NOT NULL , [description] LONGTEXT , [picture] IMAGE , PRIMARY KEY ( [Categoryid]))" CurrentProject.Connection.Execute "CREATE TABLE [customers]([customerid] VARCHAR(5) , [companyname] VARCHAR(40) NOT NULL , [contactname] VARCHAR(30) , [contacttitle] VARCHAR(30) , [address] VARCHAR(60) , [city] VARCHAR(15) , [region] VARCHAR(15) , [postalcode] VARCHAR(10) , [country] VARCHAR(15) , [phone] VARCHAR(24) , [fax] VARCHAR(24) , PRIMARY KEY ( [Customerid]))" CurrentProject.Connection.Execute "CREATE TABLE [employees]([employeeid] LONG IDENTITY(1,1) , [lastname] VARCHAR(20) NOT NULL , [firstname] VARCHAR(10) NOT NULL , [title] VARCHAR(30) , [titleofcourtesy] VARCHAR(25) , [birthdate] DATETIME , [hiredate] DATETIME , [address] VARCHAR(60) , [city] VARCHAR(15) , [region] VARCHAR(15) , [postalcode] VARCHAR(10) , [country] VARCHAR(15) , [homephone] VARCHAR(24) , [extension] VARCHAR(4) , [photo] VARCHAR(255) , [notes] LONGTEXT , [reportsto] LONG , PRIMARY KEY ( [Employeeid]))" CurrentProject.Connection.Execute "CREATE TABLE [orderDetails]([orderid] LONG , [productid] LONG NOT NULL , [unitprice] MONEY NOT NULL DEFAULT 0 , [quantity] INTEGER NOT NULL DEFAULT 1 , [discount] SINGLE NOT NULL DEFAULT 0 , PRIMARY KEY ( [Orderid], [Productid]))" CurrentProject.Connection.Execute "CREATE TABLE [orders]([orderid] LONG IDENTITY(1,1) , [customerid] VARCHAR(5) , [employeeid] LONG , [orderdate] DATETIME , [requireddate] DATETIME , [shippeddate] DATETIME , [shipvia] LONG , [freight] MONEY DEFAULT 0 , [shipname] VARCHAR(40) , [shipaddress] VARCHAR(60) , [shipcity] VARCHAR(15) , [shipregion] VARCHAR(15) , [shippostalcode] VARCHAR(10) , [shipcountry] VARCHAR(15) , PRIMARY KEY ( [Orderid]))" CurrentProject.Connection.Execute "CREATE TABLE [products]([productid] LONG IDENTITY(1,1) , [productname] VARCHAR(40) NOT NULL , [supplierid] LONG , [categoryid] LONG , [quantityperunit] VARCHAR(20) , [unitprice] MONEY DEFAULT 0 , [unitsinstock] INTEGER DEFAULT 0 , [unitsonorder] INTEGER DEFAULT 0 , [reorderlevel] INTEGER DEFAULT 0 , [discontinued] YESNO DEFAULT =No , PRIMARY KEY ( [Productid]))" CurrentProject.Connection.Execute "CREATE TABLE [shippers]([shipperid] LONG IDENTITY(1,1) , [companyname] VARCHAR(40) NOT NULL , [phone] VARCHAR(24) , PRIMARY KEY ( [Shipperid]))" CurrentProject.Connection.Execute "CREATE TABLE [suppliers]([supplierid] LONG IDENTITY(1,1) , [companyname] VARCHAR(40) NOT NULL , [contactname] VARCHAR(30) , [contacttitle] VARCHAR(30) , [address] VARCHAR(60) , [city] VARCHAR(15) , [region] VARCHAR(15) , [postalcode] VARCHAR(10) , [country] VARCHAR(15) , [phone] VARCHAR(24) , [fax] VARCHAR(24) , [homepage] LONGTEXT , PRIMARY KEY ( [Supplierid]))" CurrentProject.Connection.Execute "CREATE UNIQUE INDEX idx_Categoryname_Categories ON [Categories]([CategoryName])" CurrentProject.Connection.Execute "CREATE INDEX idx_Categoryid_Products ON [Products]([CategoryID])" CurrentProject.Connection.Execute "CREATE INDEX idx_City_Customers ON [Customers]([City])" CurrentProject.Connection.Execute "CREATE INDEX idx_Companyname_Customers ON [Customers]([CompanyName])" CurrentProject.Connection.Execute "CREATE INDEX idx_Companyname_Suppliers ON [Suppliers]([CompanyName])" CurrentProject.Connection.Execute "CREATE INDEX idx_Customerid_Orders ON [Orders]([CustomerID])" CurrentProject.Connection.Execute "CREATE INDEX idx_Employeeid_Orders ON [Orders]([EmployeeID])" CurrentProject.Connection.Execute "CREATE INDEX idx_Lastname_Employees ON [Employees]([LastName])" CurrentProject.Connection.Execute "CREATE INDEX idx_Orderdate_Orders ON [Orders]([OrderDate])" CurrentProject.Connection.Execute "CREATE INDEX idx_Orderid_OrderDetails ON [OrderDetails]([OrderID])" CurrentProject.Connection.Execute "CREATE INDEX idx_Postalcode_Customers ON [Customers]([PostalCode])" CurrentProject.Connection.Execute "CREATE INDEX idx_Postalcode_Employees ON [Employees]([PostalCode])" CurrentProject.Connection.Execute "CREATE INDEX idx_Postalcode_Suppliers ON [Suppliers]([PostalCode])" CurrentProject.Connection.Execute "CREATE INDEX idx_Productid_OrderDetails ON [OrderDetails]([ProductID])" CurrentProject.Connection.Execute "CREATE INDEX idx_Productname_Products ON [Products]([ProductName])" CurrentProject.Connection.Execute "CREATE INDEX idx_Region_Customers ON [Customers]([Region])" CurrentProject.Connection.Execute "CREATE INDEX idx_Shippeddate_Orders ON [Orders]([ShippedDate])" CurrentProject.Connection.Execute "CREATE INDEX idx_Shippostalcode_Orders ON [Orders]([ShipPostalCode])" CurrentProject.Connection.Execute "CREATE INDEX idx_Shipvia_Orders ON [Orders]([ShipVia])" CurrentProject.Connection.Execute "CREATE INDEX idx_Supplierid_Products ON [Products]([SupplierID])" CurrentProject.Connection.Execute "ALTER TABLE [orderDetails] ADD CONSTRAINT Fk_orderidorderDetails FOREIGN KEY ( [Orderid] ) REFERENCES [Orders]([Orderid]) ON DELETE CASCADE " CurrentProject.Connection.Execute "ALTER TABLE [orderDetails] ADD CONSTRAINT Fk_productidorderDetails FOREIGN KEY ( [Productid] ) REFERENCES [Products]([Productid]) " CurrentProject.Connection.Execute "ALTER TABLE [orders] ADD CONSTRAINT Fk_customeridorders FOREIGN KEY ( [Customerid] ) REFERENCES [Customers]([Customerid]) ON UPDATE CASCADE " CurrentProject.Connection.Execute "ALTER TABLE [orders] ADD CONSTRAINT Fk_employeeidorders FOREIGN KEY ( [Employeeid] ) REFERENCES [Employees]([Employeeid]) " CurrentProject.Connection.Execute "ALTER TABLE [orders] ADD CONSTRAINT Fk_shipviaorders FOREIGN KEY ( [Shipvia] ) REFERENCES [Shippers]([Shipperid]) " CurrentProject.Connection.Execute "ALTER TABLE [products] ADD CONSTRAINT Fk_categoryidproducts FOREIGN KEY ( [Categoryid] ) REFERENCES [Categories]([Categoryid]) " CurrentProject.Connection.Execute "ALTER TABLE [products] ADD CONSTRAINT Fk_supplieridproducts FOREIGN KEY ( [Supplierid] ) REFERENCES [Suppliers]([Supplierid]) " With DoCmd .RunCommand 133 'acCmdRelationships .RunCommand 149 'acCmdShowAllRelationships .RunCommand 20 'acCmdSave .RunCommand 58 'acCmdClose End With Application.RefreshDatabaseWindow MsgBox (" The tables have been create. Please view the table object window") End Function Private Sub zer1_Click() Call CreateTableScripts End Sub انشاء الجداول والعلاقات برمجيا.rar

تفضل هذا تعديل حسب طلبك جمعية احباب الله قاعدة بيانات الايتام4.rar

ليس الغبي بسيد في قومه ... لكن سيد قومه المتغابي لو انا في مكانك لاكتفيت بسد الثغرات الآن السؤال : انت وضعت في المثال نموذج فقط بلا جداول كيف يتم رصد الحضور ، هل النموذج مرتبط مباشرة بالجدول ام ان بيانات الحضور يتم الحاقها بعبارة sql اجابتك تحدد كيفية تصميم الضوابط داخل المثال

مسألة غريبة ان كل موظف يأتي يفتح النموذج ولا اعلم لماذا لا يبقى النموذج مفتوحا باستمرار علما ان الدالة وافية ومحكمة ولا تفتح مجال لتعديل الوقت ، الا ان كنت تريد قصدا فتح المجال حتى تصيد المتلاعب فضلا حول المرفق الى صيغة mdb كل ما تفكر به مقدور عليه بإذن الله ، ولكن اعلم ان الوقت الصحيح لن يرجع الا بتوفر الانترنت

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

لا يمكن تجميع التاريخ الا اذا كانت متساوية بل هو ينطبق على كل قيمة وليس التاريخ فقط ولتحقيق مطلوبك يجب استخراج رقم الشهر فقط من التاريخ انظر المرفق New تطبيق Microsoft Office Access2.rar