kkhalifa1960

مشاركةً مع استاذي @ناقل تفضل استاذ @مصطفى حماد سيد حماد محاولتي حسب مافهمت . ووافنا بالرد ImageTest.rar

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

ممكن ترفق القاعدة !!!

افتح قاعدة جديدة على الجهاز المستهدف واسحب مكونات القاعدة عليه . وطالع النتيجة .

لا، المسافات (الفراغات) داخل الكود في VBA (مثل في الصور) لا تؤثر على تنفيذ الكود أو جودته من ناحية التشغيل. التوضيح: VBA (Visual Basic for Applications) لا يهتم بعدد المسافات أو طريقة تنسيق الأسطر (Indentation). الكود في الصورتين سينفذ بنفس الطريقة تمامًا، لأن المهم هو منطق الكود وترتيب الأوامر وليس شكله البصري. لكن! لماذا نستخدم المسافات؟ رغم أن المسافات لا تؤثر على التشغيل، فهي مفيدة جدًا من ناحيتين: سهولة القراءة والفهم، خصوصًا عند وجود If, Else, Loop, وغيرها. تنظيم الكود، مما يسهل اكتشاف الأخطاء أو التعديلات لاحقًا. مثال: If Me.NewRecord Then Call AuditChanges("Code", "جديد", Form) Else Call AuditChanges("code", "تعديل", Form) End If هذا الشكل أفضل بكثير من ناحية الفهم من هذا: If Me.NewRecord Then Call AuditChanges("Code", "جديد", Form) Else Call AuditChanges("code", "تعديل", Form) End If الخلاصة: ✅ لا تؤثر المسافات على تنفيذ الكود. ✅ يفضل استخدام التنسيق الجيد لتحسين الوضوح وسهولة الصيانة.

مشاركة مع استاذ @Foksh تفضل استاذ @dd13901390 محاولتي اليك نموذجان الول يعمل على الجدول مباشرتاً والثاني بواسطة استعلام اختار مايناسبك . حساب التاريخ.accdb

أخي @Foksh كي ينتج طلب السائل ......... السطر الاخير بالموديول بدلة بــ GenerateID = CLng(yearPrefix & "0000" & (serialPart + 1)) يجعله الله في ميزان حسناتكم .

تفضل استاذ @Majed_ali2010 مرفق جديد به فولدر الصور كلها (MyPhotos) وبرنامج به جدول يحتوي على الاقسام وأكواد الصور التي تتبعه بينشئ فولدر (Images) وبه فولدر باسم القسم وبه الصور التي تتبعه . وفورم (Form1) وزر أمر (Copy Images To Folders) وليستبكس (LstPic) عند اختيار القسم منه ثم الضغط على الزر بينشئ فولدر عام (Images) وبداخله فولدر باسم القسم الذي اختارته وبه الصور التي تتبعه . راجعه واذا احتجت اي شئ انا حاضر . Copy Images To Foldersw folder.rar

تفضل استاذ @Majed_ali2010 حسب مافهمت اليك الشرح المرفق . راجعه واذا احتجت اي شئ انا حاضر . Images_Lab.rar

تفضل استاذ @jo_2010 طلبك حسب مافهمت . 2025-1.rar

تفضل استاذ @moho58 انا جربت هذه الخطوات جسب تعليمات ميكروسوفت . واشتغل معي أعمل على ويندوس 2010 32بت أولاً : تأكد من وجود الملف ضع ملف RotateLabelVer2.ocx في مجلد C:\Windows\System32 (إذا كنت تستخدم نظام 32 بت) أو C:\Windows\SysWOW64 (إذا كنت تستخدم نظام 64 بت). 1-افتح موجه الأوامر كمسؤول في بحث سطح الشاشة اكتب cmd بيظهر معك command prompt كليك يمين عليها واختر Run as Adminstrator 2-انتقل إلى المجلد الصحيح ( أو إذا كنت على نظام 32 بت:) استخدم الأمر: cd C:\Windows\System32 أو إذا كنت على نظام 64 بت: cd C:\Windows\SysWOW64 3-نفِّذ أمر التسجيل الصحيح إذا كنت على نظام 32 بت: regsvr32 RotateLabelVer2.ocx إذا كنت على نظام 64 بت: C:\Windows\SysWOW64\regsvr32 RotateLabelVer2.ocx والآن يمكنك في برنامج إضافة الأداة ستظهر الأداة بهذا الاسم: يمكنك تعديل نوع الخط والحجم واللون من صندوق الخصائص أو كما بالشرح التالي :

انا حولت بأكثر من طريقة ..... والنتيجة فقط التنسيق الشرطي للنموذج المستمر كما بالفورم frm_Sales_List .... اليك المرفق . test (555).rar

اضغط تمت الاجابة . على أخر مشاركة لي اذاكان هذا طلبك .

تفضل أخي @خير الايمان طلبك . تم اضافة الحقل (Abs)الي الاستعلام (PageNumberCalc) بشرط (is null) ثم تشغيل الزر بالفورم (Form1) ... ثم التقرير (Report1) . ووافني بالرد . QQ_3-1.rar

تفضل استاذ @أحمد محمد اسماعيل عامر . إنشاء قاعدة بيانات لشركة مقاولات بلغة SQL كيفية إنشاء قاعدة بيانات SQL لشركة مقاولات خطوة بخطوة 1. تثبيت نظام إدارة قواعد البيانات (DBMS) يمكنك استخدام: Microsoft SQL Server (مع SQL Server Management Studio) MySQL (مع MySQL Workbench) PostgreSQL (مع pgAdmin) 2. إنشاء قاعدة البيانات CREATE DATABASE ConstructionCompany; GO USE ConstructionCompany; GO 3. إنشاء الجداول الأساسية أولاً ابدأ بالجداول التي لا تعتمد على جداول أخرى: sql -- جدول العملاء CREATE TABLE Clients ( ClientID INT PRIMARY KEY IDENTITY(1,1), CompanyName NVARCHAR(100) NOT NULL, ContactPerson NVARCHAR(100), PhoneNumber NVARCHAR(20) NOT NULL, Email NVARCHAR(100), Address NVARCHAR(200), TaxNumber NVARCHAR(50), RegistrationDate DATE NOT NULL ); -- جدول الموردين CREATE TABLE Suppliers ( SupplierID INT PRIMARY KEY IDENTITY(1,1), SupplierName NVARCHAR(100) NOT NULL, ContactPerson NVARCHAR(100), PhoneNumber NVARCHAR(20) NOT NULL, Email NVARCHAR(100), Address NVARCHAR(200), TaxNumber NVARCHAR(50) ); -- جدول الأقسام CREATE TABLE Departments ( DepartmentID INT PRIMARY KEY IDENTITY(1,1), DepartmentName NVARCHAR(50) NOT NULL, Location NVARCHAR(100), Budget DECIMAL(15,2) ); 4. إنشاء الجداول ذات العلاقات بعد إنشاء الجداول الأساسية، أنشئ الجداول التي تحتوي على مفاتيح أجنبية: -- جدول الموظفين (يعتمد على Departments) CREATE TABLE Employees ( EmployeeID INT PRIMARY KEY IDENTITY(1,1), FirstName NVARCHAR(50) NOT NULL, LastName NVARCHAR(50) NOT NULL, NationalID NVARCHAR(20) UNIQUE NOT NULL, BirthDate DATE, Gender CHAR(1) CHECK (Gender IN ('M', 'F')), Address NVARCHAR(100), PhoneNumber NVARCHAR(20), Email NVARCHAR(100), HireDate DATE NOT NULL, Position NVARCHAR(50) NOT NULL, Salary DECIMAL(15,2) NOT NULL, DepartmentID INT, ManagerID INT, CONSTRAINT FK_Employee_Department FOREIGN KEY (DepartmentID) REFERENCES Departments(DepartmentID), CONSTRAINT FK_Employee_Manager FOREIGN KEY (ManagerID) REFERENCES Employees(EmployeeID) ); -- تحديث جدول الأقسام لإضافة مدير القسم ALTER TABLE Departments ADD ManagerID INT, CONSTRAINT FK_Department_Manager FOREIGN KEY (ManagerID) REFERENCES Employees(EmployeeID); 5. إنشاء بقية الجداول -- جدول المشاريع (يعتمد على Clients وEmployees) CREATE TABLE Projects ( ProjectID INT PRIMARY KEY IDENTITY(1,1), ProjectName NVARCHAR(100) NOT NULL, Description NVARCHAR(500), StartDate DATE NOT NULL, EndDate DATE, EstimatedBudget DECIMAL(15,2) NOT NULL, ActualCost DECIMAL(15,2), ClientID INT NOT NULL, ProjectManagerID INT NOT NULL, Status NVARCHAR(20) CHECK (Status IN ('Planning', 'In Progress', 'On Hold', 'Completed', 'Cancelled')), CONSTRAINT FK_Project_Client FOREIGN KEY (ClientID) REFERENCES Clients(ClientID), CONSTRAINT FK_Project_Manager FOREIGN KEY (ProjectManagerID) REFERENCES Employees(EmployeeID) ); -- جدول المعدات CREATE TABLE Equipment ( EquipmentID INT PRIMARY KEY IDENTITY(1,1), EquipmentName NVARCHAR(100) NOT NULL, Description NVARCHAR(500), PurchaseDate DATE NOT NULL, PurchaseCost DECIMAL(15,2) NOT NULL, CurrentValue DECIMAL(15,2), Status NVARCHAR(20) CHECK (Status IN ('Available', 'In Use', 'Under Maintenance', 'Retired')), MaintenanceSchedule NVARCHAR(100) ); -- جدول المواد (يعتمد على Suppliers) CREATE TABLE Materials ( MaterialID INT PRIMARY KEY IDENTITY(1,1), MaterialName NVARCHAR(100) NOT NULL, Description NVARCHAR(500), Unit NVARCHAR(20) NOT NULL, UnitPrice DECIMAL(15,2) NOT NULL, QuantityInStock DECIMAL(15,2) DEFAULT 0, SupplierID INT, CONSTRAINT FK_Material_Supplier FOREIGN KEY (SupplierID) REFERENCES Suppliers(SupplierID) ); 6. إنشاء جداول العلاقات -- جدول استخدام المعدات في المشاريع CREATE TABLE ProjectEquipment ( ProjectEquipmentID INT PRIMARY KEY IDENTITY(1,1), ProjectID INT NOT NULL, EquipmentID INT NOT NULL, StartDate DATE NOT NULL, EndDate DATE, Notes NVARCHAR(500), CONSTRAINT FK_ProjectEquipment_Project FOREIGN KEY (ProjectID) REFERENCES Projects(ProjectID), CONSTRAINT FK_ProjectEquipment_Equipment FOREIGN KEY (EquipmentID) REFERENCES Equipment(EquipmentID) ); -- جدول استخدام المواد في المشاريع CREATE TABLE ProjectMaterials ( ProjectMaterialID INT PRIMARY KEY IDENTITY(1,1), ProjectID INT NOT NULL, MaterialID INT NOT NULL, QuantityUsed DECIMAL(15,2) NOT NULL, UsageDate DATE NOT NULL, CONSTRAINT FK_ProjectMaterial_Project FOREIGN KEY (ProjectID) REFERENCES Projects(ProjectID), CONSTRAINT FK_ProjectMaterial_Material FOREIGN KEY (MaterialID) REFERENCES Materials(MaterialID) ); 7. تنفيذ البرنامج النصي افتح أداة إدارة قواعد البيانات (مثل SQL Server Management Studio) انقر على "New Query" الصق الكود السابق انقر على "Execute" أو اضغط F5 نصائح إضافية: احفظ البرنامج النصي كملف .sql للنسخ الاحتياطي يمكنك إضافة بيانات أولية باستخدام عبارات INSERT يمكنك تعديل التصميم حسب احتياجات شركتك المحددة استخدم الأوامر ALTER TABLE لإجراء تغييرات لاحقة على الهيكل ملاحظات: هذا التصميم يوفر الهيكل الأساسي لقاعدة بيانات شركة مقاولات. يمكنك تعديل الجداول والحقول حسب احتياجات الشركة المحددة. تم تضمين العلاقات الأساسية بين الجداول. تم إضافة بعض القيود (Constraints) لضمان سلامة البيانات. يمكنك إضافة المزيد من الجداول أو الحقول حسب الحاجة مثل جداول العقود، الفواتير، الضرائب، إلخ

تفضل أخي @خير الايمان طلبك حسب مافهمت . تم تسمية الجدول 11 الى (Table1) وانشاء 4 استعلامات باللون الباهت وموديول (Module11) وفورم (Form1) يستخدم لعمل الجدول (TempData) . الذي يستخدم بالتقرير (Report1) . ووافني بالرد . QQ_3.rar

أستاذ @أبو أحمد اذا كان هذا هو طلبكم ، تقييم أفضل إجابة لصاحب الحل .

تفضل أخي @خير الايمان طلبك حسب مافهمت بالتقرير (ReportTest) . ووافني بالرد . QQ-1.rar

أقدم كل التهاني والتبريكات لجميع منتسبي منتدانا الحبيب وكل المسلمين بجميع انحاء العالم بعيد الفطر المبارك .. أعاده الله علينا وعليكم بالخير واليمن والبركات .

تفضل التعديل . مع ملاحظة اسم حقل الترقيم التلقائي بالجدول والفورم (Borrower's_No) . النسخة المرسلة-1.rar

طلبك الاول تم فهمه وعمله بالمرفق .............................. أما طلبك الثاني غير مفهوم ولكني حسب مافهمت سويته بمربع التحرير والسرد (حالة العضو). ووافني بالرد . حذف بيان عضو.mdb

تفضل استاذ @أبو أحمد المرفق بعد التعديل حسب مافهمت . بالزر الجديد (حذف بيانات بدون الترقيم التلقائي) . حذف بيان عضو.mdb

استاذي @ابو جودي اثلجت صدري بمرورك علشان كده انا كاتب لمن يهمه الأمر .

ضبط التلاعب بتاريخ الكمبيوتر الشرح بالفيديو التالي . Manipulating computer Date settings.rar

تفضل استاذ @فؤاد الدلوي المرفق بعد التعديل بطلبك ... test (555-1).rar