نجوم المشاركات

إخوتي الفضلاء التطبيق المرفق يغطي كافة أزرار التنقل بين السجلات Navigation Buttons و توليفة حالاتها يغطي Back و Next و New و First و Last مع مربع نص لاظهار عدد السجلات مع توليفة أحواله مع امنياتي بعموم الفائدة و الله من وراء القصد ... - اعادة توجيه للمشاركة NA_Navigation Buttons.rar

السلام عليكم اتمنى اللي عنده برنامج جاهز مجاني يشاركه هنا معنا لكي يستفيد الجميع مخازن - مشتريات - مبيعات - عملاء - موردين - قبض - صرف - كشوفات حساب جزاكم الله خيرا اساهم معكم بأول برنامج برنامج المحل.rar

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

طريقة عمل المبرمج الصحيحة وتجنب المتاعب : اولا يجب تقسيم قاعدة البيانات الى : 1- واجهات 2-قاعدة خلفية تشتمل على الجداول من المتعارف عليه غالبا ان القاعدة الخلفية (الجداول) غير قابلة للتحديث ومن غير المتصور ان يجرى عليها اي تعديل لذلك يحسن بالمبرمج ان يزيد في الجداول بعض الحقول التي يتوقع الحاجة اليها مستقبلا خاصة اذا كان البرنامج طور الاستخدام لاول مرة والا فإن الاصل عدم المساس بقاعدة البيانات اما الواجهات فيمكن التحديث يوميا بالزيادة و النقص والتنسيق ونحوة كزيادة تقارير او نماذج ولا حرج ، وفي النهاية ترسل الى المستخدم ليلصقها في مجلد البرنامج ويوافق على اللصق والاستبدال .

جزاك الله خبر استاذ شيفان

نعم لكن هذا يعود لخصائص نموذج من قبل ان افكر في هذه الطريقة كان جربت كم طرائق لكن وحينئذ انا غيرت خاصية النموذج قفل السجل اي ( Record Locks ) يساوي All Records تم تغير الى No Locks والان مافی المشکلە enbld.rar

هل هذا الذي تريده؟ 846.1.STOCK.accdb.zip

تفضل اتبع الخطوات

وعليكم السلام طيب حول القاعدة ل accde او mde لكل المستخدمين وسيب الاصلية على جهاز المدير فقط

السلام عليكم . Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.Count_Each_ED <> Me.S_Ed Then Me.Cont = "continue..." & Me.edara Me.Cont.Visible = True Me.edara.Visible = False Me.lbl_Ed.Visible = False Else Me.Cont.Visible = False Me.edara.Visible = True Me.lbl_Ed.Visible = True End If End Sub . . . جعفر 849.test1.accdb.zip 849.test1.mdb.zip

اتفضل اليك هذا الخدعة لكي تقم بذلك Private Sub cmdenbld_Click() Me.Form.RecordSource = "" Me.id.ControlSource = "" Me.Fname.ControlSource = "" End Sub Private Sub cmdenbld1_Click() Me.Form.RecordSource = "SELECT Tabl_Emp.id, Tabl_Emp.Fname FROM Tabl_Emp; " Me.id.ControlSource = "id" Me.Fname.ControlSource = "fname" End Sub Private Sub Form_Load() Call cmdenbld1_Click End Sub enbld.rar

السلام عليكم ورحمة الله جرب الكود التالي: Sub all() Range("A1").Select ActiveCell = 1 Do ActiveWindow.SelectedSheets.PrintOut ActiveCell = ActiveCell + 14 Loop Until ActiveCell.Value > Range("E2").Value Range("A1").Select End Sub بن علية حاجي

استبدل الكود بهذا Sub all() ' ' Range("a1").Select ActiveCell.FormulaR1C1 = "1" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Do Until ActiveCell.Row > 50 ActiveCell = ActiveCell.Offset(14).Select ActiveWindow.SelectedSheets.PrintOut Loop Range("a1").Select End Sub

تفضل أخي الفاضل تطبيق جديد.rar