
Eng.Qassim
الخبراء-
Posts
2383 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
22
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Eng.Qassim
-
الان فهمت ماتريد....سافعل ان شاء الله ما استطيع عمله
-
حضرتك جربت البرنامج ؟ طبيعي اي قائمة بدون مبيعات تكون صفر جرب اسم اخر وتتبع الخوات ...اهم شي تطلع عندك الديون السابقة وفي نموذج المدفوعات عندما تخل مبلغ واصل من الزبون سوف ينقص من الدين السابق ويعطيك المبلغ الحالي
-
وعليكم السلام اخي @Ahmed_J انا من اشوف جداول بالعربية اشعر بالقشعريرة 😍 جرب هذه المحاولة فقط لنموذج مبيعات ..وجرب نموذج سند القبض لان سند الصرف يعمل على المشتريات تستطيع تطوير البرنامج من خلال عمل نص اظهار رصيد المادة مثلا Amed.rar
-
مساعدة فى تصميم برنامج شئون عاملين من الصفر
Eng.Qassim replied to The best's topic in قسم الأكسيس Access
نعم استاذنا ...في الاستعلام يظهر خطأ (العنوان مكرر) بصراحة في اعمالي استخدم العلاقات في الاستعلام او في النماذج ..اشعر بأن فيها مرونة والابتعاد عن الاخطاء -
ليس المهم لمن افضل اجابة ...المهم انك استفدت وحللت مسألتك وقد يحتاج لها غيرك
-
السلام عليكم ...انا استخدمت (txtBrows).. على اعتبار ان المجلد يحتوب على اكثر من صورة بالنسبة الى مشكلة نصف الصفحة بالتاكيد لديك مشكلة في اعدادات الطباعة المثال المرفق يطبع لك جميع الصور في الفولدر CARDS.rar
-
جرب هذه المحاولة CARDS.rar
-
انظر لهذه المحاولة البسيطة تستطيع مستقبلا عن طريق استعلام لفرز الدينار والدولار دينار .rar
-
احترامي لجميع الاساتذة الكرام اتذكر باني عملت ما يشبه برنامجك منذ فترة طويلة ... طلبك بان تكون العملة في حقل واحد .. يحتاج ان تعمل نموذج بحقول غير مرتبطة ... بحيث عندما تختار دينار يتغير ال caption الى ديتار سأحاول مع ملفك ان وسعني وقتي .. لاني هذه الايام مشغول بالبايثون 😭
-
الفرق بين وقتين بالساعات والدقاق والايام
Eng.Qassim replied to jo_2010's topic in قسم الأكسيس Access
بالنسبة الى عدد الساعات والدقائق ...جرب هذه المحاولة JO_IN_OUT 1.rar اذا اردتها لن تكون بهذه الضورة 38:52 اعمل حقل اخر في الاستعلام وضع هذا السطر [TotalHours] & ":" & [TotalMinutes] -
الفرق بين وقتين بالساعات والدقاق والايام
Eng.Qassim replied to jo_2010's topic in قسم الأكسيس Access
اعنذر ...حصل عندي خطأ JO_IN_OUT.accdb -
سؤالي : ماهي علاقة عجلة الماوس بالنموذج المرفق؟ ممكن توضيح اكثر
-
الفرق بين وقتين بالساعات والدقاق والايام
Eng.Qassim replied to jo_2010's topic in قسم الأكسيس Access
كل عام وانت بالف خير استاذي العزيز @Foksh بالعكس..زيادة الخير خيرين ..لكني لم اتطرق الى الثواني حسب طلب السائل ...ثم اني تقصدت ان اضع موديول (للبعض طبعا) الذين لايعرفون كيفية تمرير البيانات والحصول على النتائج ...انا شخصيا من محبي استخدام ال Module & Class خارج خلفية النماذج او الاستعلام -
الفرق بين وقتين بالساعات والدقاق والايام
Eng.Qassim replied to jo_2010's topic in قسم الأكسيس Access
كل عام وانت بخير استاذ @jo_2010 وكل الاخوة والاساتذة الافاضل المشكلة لديك ان الدالة تنظر الى الفرق بين الساعات والدقائق ولم تاخذ بالحساب الايام عملت لك بطريقتين... التقليدية ...والثانية بواسطة موديول JO_IN_OUT.rar -
السلام عليكم... عجبني هذا اليوم الدخول لموقع اكسل رغم اني مش فاهم منه حاجة الا القليل القليل .. جربت الكودين للاساتذة ..واثنينهم شغالات تمام
-
مشاركة مع الاساتذة... احب ان اعمل الجداول بنفسي ...اما بالنسبة لسنة التسديد تظهر تلقائيا بعد تحديد التاريخ unpaid.accdb
-
طباعة تقرير مصمم في ورقة ذات حجم أكثر من A3 في ورقة A4
Eng.Qassim replied to moho58's topic in قسم الأكسيس Access
😂 لم تغب عن بالي ...فعلتها لكنها لم تضبط معي -
طباعة تقرير مصمم في ورقة ذات حجم أكثر من A3 في ورقة A4
Eng.Qassim replied to moho58's topic in قسم الأكسيس Access
حسب رايي مثلما تفضل الاخ الاستاذ @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
-
استاذ @Moosak يوجد فيديو جميل لمن يحب الاطلاع Automatic Form Resizing in Access, by Colin Riddington (isladogs)
-
مشكلة تعدد سعر الشراء لمنتج واحد !!
Eng.Qassim replied to mostafaelshnawy5's topic in قسم الأكسيس Access
السلام عليكم ورحمة الله وبركاته...وكل عام وانتم بالف خير الان قرات الموضوع على وجه السرعة...خطر لي اني قرات عن هذا الموضوع ولا اتذكر هل في موقع اوفيسنا اوغيره خطر لي ان نعمل جدول المخزون (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 كغم ....بسعر معين هذا يحتاج جدول استيراد .... يقوم ببيعها في العراق بنسبة ربح معينة ... كمية الوزن ... السعر ... السعر الإجمالي اريد تقرير بسعر الشراء وسعر البيع لكل مادة ...وطبعا حقل الخسارة والربح لكل حقل الموضوع سهل عندي ... لكن لماذا صعب مع اولادي أي سؤال ... سأجاوب عليه
-
المهم الموضوع .....العمرة