Eng.Qassim

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

مشاركة مع الاساتذة... احب ان اعمل الجداول بنفسي ...اما بالنسبة لسنة التسديد تظهر تلقائيا بعد تحديد التاريخ unpaid.accdb

😂 لم تغب عن بالي ...فعلتها لكنها لم تضبط معي

حسب رايي مثلما تفضل الاخ الاستاذ @kkhalifa1960 ان تحول التقرير الى ال PDF ثم تختار الطباعة على A4

وعليكم السلام 1- عملية لربط الجاول خاطئة .. اجعل ال ID for tbl_Master= autonumber ويكون مفتاح اساسي ..ثم اجعل تحته ما يسمى بالرقم الغريب مثلا hosID وبياناته رقم ..تقوم بربطه بال ID الخاص ب tbl_hos 2 - طالما ان الحقول لديك غير مرتبطة فانه سيتم حفظها تلقائيا بمجرد الخروج من الحقل .. يمكنك قفل الحقل بمجرد الخروج منه : me.field1.enable= false 3- اذا اردت اقفال جميع الحقول بعد الانتهاء منها ضع الشفرة التالية خلف زر اسمه اقفال : Dim ctrl As Control For Each ctrl In Me.Controls If ctrl.ControlType = acTextBox Then ctrl.Enabled = False End If Next ctrl

السلام عليكم استاذ عبد اللطيف DeepSeek ليس بأمكانية chatGpt المدفوع الثمن ...واعتقد ان اشتراكه 20 دولار شهريا وهو بارع في البحوث العلمية

استاذ @Moosak يوجد فيديو جميل لمن يحب الاطلاع Automatic Form Resizing in Access, by Colin Riddington (isladogs)

السلام عليكم ورحمة الله وبركاته...وكل عام وانتم بالف خير الان قرات الموضوع على وجه السرعة...خطر لي اني قرات عن هذا الموضوع ولا اتذكر هل في موقع اوفيسنا اوغيره خطر لي ان نعمل جدول المخزون (tbl_stock) وهذا مفيد جدا لانه يعطينا المتبقي من خزين المواد الفكرة تكمن في جدول المشتريات ..حينما نشتري مروحة مثلا بكمية معية وبسعر مثلا 20 ونحدد سعر البيع ب 25.. نقوم بالحاق هذه البيانات الى جدول ال (tbl_stock) ثم قمنا في اليوم التالي بشراء نفس المادة بسعر مثلا 25 وسعر بيع 30.... ايضا تلحق تلك البيانات الى جدول ال (tbl_stock) عند بيع تلك المادة بكمية 20 كما في الحالة الاولى فانه يبيعها بسعر 25 .. وعند الحاق تلك البيانات الى جدول ال (tbl_stock) سيقوم بتصفير الكمية الاولى وعند البيع مرة اخرى سياتيني بسعر البيع الجديد لغاية تصفيره من الجدول (tbl_stock) ولهذا سيكون جدول (tbl_stock) مرجع للمخزون المتبقي فمثلا لدينا نموذج فرعي فيه حقل الباركود واسم الصنف والكمية المشتراه وسعر الشراء وسعر البيع ...عند تحديث الباركود يعطيني النتائج الموجودة ..فقط علينا ادخال الكمية .. Private Sub Barcode_AfterUpdate() Dim db As DAO.Database Dim rst As DAO.Recordset Dim Barcode As String Dim availableQty As Integer Dim SalePrice As Currency Barcode = Me.Barcode Set db = CurrentDb Set rst = db.OpenRecordset("SELECT TOP 1 ItemName, SalePrice, Quantity FROM tbl_Stock WHERE Barcode = '" & Barcode & "' AND Quantity > 0 ORDER BY PurchaseDate;", dbOpenDynaset) If Not rst.EOF Then Me.ItemName = rst!ItemName Me.SalePrice = rst!SalePrice availableQty = rst!Quantity Me.AvailableStock = availableQty ' (نحتاج لاضافة هذا الحقل في النموذج الفرعي لمعرفة المتبقي) Else MsgBox "لايوجد هذ الصنف", vbExclamation, "تحذير" Me.Undo End If rst.Close Set rst = Nothing Set db = Nothing End Sub الان علينا استخدام زر حفظ البيانات Private Sub btnConfirmPurchase_Click() Dim db As DAO.Database Dim rstPurchase As DAO.Recordset Dim rstStock As DAO.Recordset Dim purchaseID As Long Dim Barcode As String Dim ItemName As String Dim purchasePrice As Currency Dim SalePrice As Currency Dim Quantity As Integer Dim purchaseDate As Date Set db = CurrentDb Set rstPurchase = Me.purchaseDetailsF.Form.RecordsetClone ' Get subform data ' Loop through each item in purchase details rstPurchase.MoveFirst Do While Not rstPurchase.EOF Barcode = rstPurchase!Barcode 'في حالة استخدام باركود ItemName = rstPurchase!ItemName purchasePrice = rstPurchase!purchasePrice SalePrice = rstPurchase!SalePrice Quantity = rstPurchase!Quantity purchaseDate = Date ' Current date ' عملية الالحاق في جدول tbl_Stock db.Execute "INSERT INTO tbl_Stock (Barcode, ItemName, PurchasePrice, SalePrice, Quantity, PurchaseDate) " & _ "VALUES ('" & Barcode & "', '" & ItemName & "', " & purchasePrice & ", " & SalePrice & ", " & Quantity & ", #" & purchaseDate & "#);", dbFailOnError rstPurchase.MoveNext Loop MsgBox "تم تحديث البيانات", vbInformation, "تحديث الصادر" Me.Requery rstPurchase.Close Set rstPurchase = Nothing Set db = Nothing End Sub عسى احد الاخوة المساعدة في البقية ... لاني متعب قليلا شافاكم الله

قصدك اخي @Moosak ان تجعل التركيز على النموذج الرئيسي ....ومن ثم الى النموذج الفرعي فكرة جميلة ....سأجربها بس انت من المدعوبن الى العمرة .....عاوز اخذكم لصحراء السماوة ....جميلة جدا

عنددي ولدي يستورد حاوبات من الامارات والسعودية والصين بالطن ...يعني ب 1000 كغم ....بسعر معين هذا يحتاج جدول استيراد .... يقوم ببيعها في العراق بنسبة ربح معينة ... كمية الوزن ... السعر ... السعر الإجمالي اريد تقرير بسعر الشراء وسعر البيع لكل مادة ...وطبعا حقل الخسارة والربح لكل حقل الموضوع سهل عندي ... لكن لماذا صعب مع اولادي أي سؤال ... سأجاوب عليه

المهم الموضوع .....العمرة

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

لدي customerNamer في السجل الرئيسي عندما يخطأ المستخدم ولايدخل اسم الزبون ... طبعا لا يتغير ال ID عندما ادخل اسم المادة وبقية توابعها .... ثم انتبه باني لم ادخل اسم الزبون حينما ادخل اسم الزبون ... سوف تمسح جميع سجلات النموذج الفرعي طبعا انا اضطررت ان اجعل التركيز عند تحميل النموذج على اسم المادة ... لكن المشكلة انه لايعطيني سجل جديد الا با ادخال اسم الزبون ... طبعا هذا صحيح ... فانه لايعطي رقم جديد الا من خلال مربع نص من نفس النموذج الرئيسي المشكلة لدي نموذج ...ربما لايدخل المستخدم فيه اسه اسم الزبون ... هل استخدم Dlast وليس GotoNewRecord

اليك ملف بسيط جدا ... بصراحة الكود استعرته من بعض المواقع يمكنك الاعتماد عليه في بناء برنامجك... وانصك باللغة الانكليزية ...لان العربية متعبة في بناء الاكواد duplicate records.rar

استاذنا العزيز @ابو جودي مشتاقون لك واعمالك الجميلة والرائعة ... بس ياعمي انت حتخرب شغل على المبرمجين 😂 دة عندنا علشان المبرمج يضيف جدول اضافي ...بياخد الشيء الفلاني