kkhalifa1960

9 دقائق مضت, الحلبي said:

اين جدول اسماء المستخدمين وما اسمه لكى يتضح لى اسماء المستخدمين جمعيا وكلمة السر لهم

Data1

اقدم لكم برنامج حساب أيام العمل أو الاجازات بين تاريخين ..........  (اختيار أيام العمل الاسبوعية + العطل الرسمية)  مفتوح المصدر. .

اليكم المرفق . 

DDDayWork.rar

اقدم لكم برنامج تحفيظ اسماء الله الحسنى للكبار والصغار مفتوح المصدر. .

اليكم لينك المرفق . 

https://www.mediafire.com/file/1hrvf0h938769yq/GodNames.v1.1.rar/file

13 ساعات مضت, salah.sarea said:

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

استاذ @gavan هذا طلب السائل .

أم.. هل انت تريد التطبيق على السجلات الجديدة ؟. هنا الكود سيتغير . واذا كان الامر كذلك .

حتى لا أركب على عمل استاذ @Foksh نترك له ذلك بعد تحديد طلبك .

تحياتي وعيدكم مبارك .

اقدم لكم برنامج مطعم كلاسيكي مفتوح المصدر. به بعض الكودات من أعمال بعض المنتسبين بمنتدانا (أفسينا)..... (به 33 طاولة طعام + دليفري + تيك أواي) ....والمهتم سيكتشف مابه ....... وأي استفسار أنا حاضر .

اليكم لينك المرفق . 

https://www.mediafire.com/file/j0qasl6mlv1ju3x/CoffeShop.rar/file

استاذ @محمد سعيد رشاد اذا كان طلبك مهم ارسل القاعدة . لدي البرنامج مفعل .

اساتذتي بعد اذنكم لمسة بسيطة على مرفق أستاذنا @عبد اللطيف سلوم .

test24-1.rar

عودا حميدا استاذ جعفر @jjafferr

رمضان مبارك وكل عام وانت بخير 

مشاركة مع استاذ @ابوخليل تفضل استاذ @aliwindows محاولتي حسب مافهمت . اليك الشرح والمرفق .ووافني بالرد .

DD500.rar

مشاركة مع استاذ @Moosak تفضل استاذ @منير ربيع محاولتي حسب مافهمت . اليك الشرح والمرفق بعد التعديل .

صرف مهام خارجية.rar

.

تفضل استاذ @kams3008 محاولتي حسب ما فهمت (اضغط استيراد الطابعات . البرنامج بيستبدل الموجود بالطابعات لديك ) اليك الشرح والمرفق .

واذا كان هذا طلبك لاتنسى الضغط على أفضل اجابة .

Add Printers.rar

مشاركة مع استاذ @Foksh .......... تفضل استاذ @بلال اليامين محاولتي حسب مافهمت (البحث برمجياً بجميع الحقول) .

واضافة من عندي برمجة الزر تحديد الكل (ليصبح تحديد/عدم تحديد) جربه بيفيدك .

19 (2).rar

تفضل استاذنا .

Private Sub CmdAccepted_Click()
Me.y1 = "مقبول"
Me.y1.ForeColor = RGB(0, 155, 0)
End Sub

Private Sub CmdRejected_Click()
Me.y1 = "مرفوض"
Me.y1.ForeColor = vbRed
End Sub

Private Sub CmdAcceptedRejected_Click()
If Me.y1 = "مقبول" Or Me.y1 = "" Then
Me.y1 = "مرفوض"
Me.y1.ForeColor = vbRed
Me.CmdAcceptedRejected.Caption = "مقبول"
Me.CmdAcceptedRejected.BackColor = RGB(0, 155, 0)

Else
Me.y1 = "مقبول"
Me.y1.ForeColor = RGB(0, 155, 0)
Me.CmdAcceptedRejected.Caption = "مرفوض"
Me.CmdAcceptedRejected.BackColor = vbRed

End If
End Sub

مشاركةً مع استاذنا @AlwaZeeR تفضل أخي مرفق حصلته بمكتبتي .

All extensions in web browser.rar

تفضل استاذ @rachedi طلبك بالمرفق والشرح  بطريقتان .  زر واحد أو زران . ووافني بالرد .

DDTest113.rar

تفضل استاذ @العبيدي رعد المرفق بعد التعديل حسب مافهمت . ووافني بالرد .

تسديدات الافراد-1.rar

جزاك الله كل الخير والى الأمام والتقدم دائماً .

ولي لمسة بسيطة كي ينتفع بها الكل وهي تحريك النموذج بكتابة القيم بــ (Left,Top) بالسنتيمتر .

waadcenterform-1.rar

تفضل أستاذ @العبيدي رعد محاولتي حسب ما فهمت . ووافني بالرد . اليك الشرح (مرة قبل تحديث حقل التاريخ - ومرة بواسطة زر أمر) والمرفق .

DDTestDate.rar

تفضل أخي حلك هنا واليك الشرح والمرفق بطريقتان بزر أمر أو كما طلبت .

Private Sub Form_Current()
If Len(Me.Text1 & "") = 0 Then
MsgBox "أدخل المبيعات", vbCritical
Else
MsgBox "OK", vbInformation
End If
End Sub

DDTest112-2.rar

يا أخي الفاضل مجرد ملاحظة على كودك  then (("اسم الجدول","اسم الحقل")Dlookup)if isnull .أنت عاكسهم !! ,وبين (isnull) و (والقوس) لايوجد مسافة .

يعمل عندي بشكل جيد ولا يوجد مشاكل  أوفيس 2010 32 بت

حاضرين أخي وفي أي وقت . رمضان كريم .

تفضل استاذ @tiger wanted الكود والشرح .

Private Sub Command0_Click()
If IsNull(DLookup("Salary", "Table1")) Then
MsgBox "أدخل المبيعات"
End If
End Sub

تفضل استاذنا @abouelhassan طلبك بالمرفق . ولا تنسى الضغط على أفضل اجابة حتى نغلق هذا الموضوع .

MahdiPermissionsTemp.rar