athal1

الاستاذالكريم 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

مبارك للاستاذين الكريمين عمر ضاحى و Foksh وبارك الله فيكم

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

السلام عليكم اي فكرة اخرى لحل المشكل بارك الله فيكم

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

السلام عليكم تقبل الله منكم وكل عام وانتم بخير عندي استفسار وارجو المساعدة حقل التوصيل له عدة عناصر : توصيل شركة او توصيل مخزن لكن ايضا في توصيل الشركة يوجد عدة شركات او عدة مخازن فكيف اختار شركة ومن ثم اختار اسم الشركة بارك الله فيكم hishamproject.accdb

الاستاذ الفاضل ابو البشر جزاك الله خيرا على التوضيح وبارك الله فيك

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

السلام عليكم الاساتذة الافاضل عند حفظ بيانات الفاتورة يتم تخزين كل الحقول في جدول التفصيل للفاتورة ما عدا سعر البيع بارك الله فيكم supertest.accdb

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

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

وعليكم السلام مبارك للاستاذ الفاضل ابو احمد

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

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