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

السلام عليكم نزولا عند رغبة احد الاصدقاء برنامج تسجيل الاقساط اوتوماتيك نقوم بتسجيل بيانات العميل كاملة ثم نكبس على الاقساط نفتح لنا شاشة جديدة نكبس على تسجيل الاقساط فتنزل الاقساط اوتوماتيك عند دفع القسط نقوم بتحويل الحالة من لم يتم الدفع الى تم الدفع ثم تكبس على تحديث بعد الدفع نستطيع الحصول على كشف حساب للعميل أتمنى لكم الفائدة واتس أب 00962787787573 اقساط.accdb

حتّى لا يضيع الــ Commend Button أو اذا قمت بتحديد نطاق من الخلايا (او حتى خلية واحدة) بعيداً عنه فأنه يتبعك اينما ذهبت بواسطة هذا الكود Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim col%: col = Target.Columns.Count Dim lastcel As Range: Set lastcel = Target.Rows(1).Cells(col) Application.EnableEvents = False With Me.Shapes.Range(Array("SALIM_BTN")) .Left = lastcel.Left + lastcel.Columns.Width + 5 .Top = lastcel.Top .Width = 130 .Height = 28 End With Application.EnableEvents = True End Sub جرب هذا الملف Floting_Btn.xlsm

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

فورم الصادر والوارد اكسل الفيديو الصور الملف فورم الصادر والوارد اكسل.rar

اووووووووووووووووووووووووووووووووووو تمام التمام شكرا جزيلا اخي الكريم مع العلم اني كنت جرب هذه [الملاحظات]="تم تاجيل موعد العقد الى الشهر القادم من هذا العام" عند الحدث بس ما كانت تركز شكرا اخي

انظر هذا Microsoft Access Database جديد.accdb

السلام عليكم تفضل المرفق به الشرح والمعادلات المطلوبة الشكاوى.xlsm

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

في حصائص الزر ضع PrintObject=False

لاحظ الاستعلام ..... وبعدها تم تشغيل الاستعلام عن طريق حدث تحت الزر

السلام عليكم ورحمة الله اعذرني للتأخر في الرد لأنه كان عندي مشكل في المنتدى وقت تم حله الآن... الملف قمت بالتعديل عليه منذ الصباح وأدرجه لك الآن في المرفقات... أرجو أن تفي هذه التعديلات الغرض المطلوب... بن علية حاجي Table (1).xlsx

هلا وضعت مثال مصغر ... ليسهل على الزملاء وعلينا المساعده

السلام عليكم أخي محمد جرب الكود بهذه الطريقة غير به ما تحتاج حسب حاجتك: Dim i As Integer For i = 1 To Me.t4 DoCmd.RunSQL "INSERT into tbl(id, nn, ff) VALUES (" & Me.hh.Form![id] + i & ",'" & Nz(Me.hh.Form![t2], "") & "'," & Me.hh.Form![t3] & ");" Next i Me.Refresh و هذا المرفق يوضح ذلك tt.rar

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

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

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