ابوخليل

تفضل 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

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

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

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

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

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

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

incode(Real_Name, "حط أي شي") وبالنسبة لــ Autority_ID يجب يكون الحقل نصي حتى يقبل

قيد النظر ...

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

جزاك الله خيرا

وبارك فيك ادرجت الامثلة لاثراء الموضوع لمن يأتي بعدنا يجدها في صفحة واحدة واجزم يقينا ان مكتبتك تحوي امثالها واكثر

وجدت هذا الكود لفتح الارتباط بأي ملف Private Sub cmdOpenHyper_Click() On Error GoTo ErrOpenHyper Me.txtHyperlink.SetFocus DoCmd.RunCommand acCmdOpenHyperlink Exit Sub ErrOpenHyper: Select Case Err Case 2046 'Menu option not available 'Normally because there is nothing to link to MsgBox "There is no hyperlink" Case Else MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error Message" Resume End Select End Sub

وهذا يفتح بالنقر المزدوج على الكائن wrd.rar

يتبع .. مثال طريف فتح واغلاق وورد تحديث.rar

جرب ادراج كائن / واختر : انشاء من ملف ثم اختر ملف الوورد المطلوب ان صلحت هذه الطريقة والا يوجد اكثر من طريقة لفتح الوورد سأرفق مثالا للارتبط داخل النموذج هذا مثال لفتح وورد بارتباط في حقل يتبع ... mo.rar

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

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