athal1

الاستاذ الكريم Moosak العفو وبارك الله فيك ونفع بعلمك

الاستاذ الكريم Foksh بارك الله فيك ونفع بك وجزاك الله خيرا

السلام عليكم هذا بحث بقلم الاستاذ الكريم عارف حسان وتجميع وتنسيق بالوورد من الاستاذ الكريم يوسف احمد اسال الله ان يكون عملا مباركا وعلما ينتفع به لهما ان شاء الله OOP.docx

الاستاذالكريم Barna تمام وهذا هو المطلوب بارك الله فيك وجزاك خيرا

Function record(Criteria As String) Dim rs As dao.Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM customers") rs.FindFirst Criteria = City Do While Not rs.NoMatch List1.AddItem rs!FirstName rs.FindNext Criteria = City Loop rs.Close End Function Private Sub Command0_Click() City = aa record (City) End Sub السلام عليكم الاساتذة الكرام يوجد اشكال في تمرير فيمة في دالة بارك الله فيكم db1.accdb

الاستاذ الكريم محمد ابراهيم جزاك الله خيرا وبارك الله فيك

وعليكم السلام ورحمة الله وبركاته الاستاذ الكريم ابو بسملة جزاك الله خيرا وبارك الله فيك الاستاذ الكريم وشيخنا الجليل ابو خليل بارك الله فيك وجزاك الله خيرا

الاستاذ الكريم ابو خليل لا يوجد علاقات بين الجداول واشكرك على ردك المقدر وبارك الله فيك

السلام عليكم كود احذف كل السجلات من كل الجداول يعطي خطأ ارجو المساعدة بارك الله فيكم Dim db As DAO.Database Dim td As DAO.TableDefs Dim sql As String Set db = CurrentDb() Set td = db.TableDefs For Each t In td If Left(t.Name, 4) = "MSys" Or Left(t.Name, 1) = "~" Then GoTo Continue sql = "DELETE t.* FROM t" DoCmd.RunSQL (sql) Continue: Next MsgBox " all records in all tables are deleted" Me.Requery Database1.accdb

الاستاذ الكريم ابو خليل تمام بارك الله فيك وجزاك الله خيرا

للرفع

استاذي الكريم الماده الأولى مثلا سعر القطعة ٥ والكمية ٣ يكون المجموع ١٠ هذا ما اقصد بارك الله فيك

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

استاذ Foksh بارك الله فيك لم يتم طرح القطع المجانية من المجموع

السلام عليكم يوجد سؤال عن عمل عروض على بيع مادة مثلا اشتري 2 قطعة من الصنف وخذ الثالث مجانا بارك الله فيكم db1.mdb