طلب اكسس

14 ساعات مضت, Moosak said:

قريبا إن شاء الله .. 😊

طريقة إبداعية جديدة وحصرية لتحديث نسخة الواجهات FE لدى المستخدمين بدون برامج أو أدوات خارجية ..

أكسس فقط .. 😉👌🏼

 

:: ترقبوا :: 

متابع

الله الله

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

شكرا شكرا شكرا

اداة تعمل على تسهيل و تذييل اكواد الاضافة و التحديث و الحذف

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

• من قلّة الخيل شدّو على الچلاب سروج

17 دقائق مضت, palesten said:

يا ابن الحلال يا انا بتكلم هيروغليفى يا حضرتك لا تقرأ المطلوب

اسف على ازعاجك ليس هذا المطلوب

لماذا يتم اضافة الرصيد فى الصندوق لحساب المورد ؟

ولماذا لا يتم الخصم من الصندوق بعد عملية شراء من احد الموردين فى القائمة المنسدلة

راجع هذا المثال رجاء

مثال : محفظة الجيب خاصتك (الصندوق) فيها 100 دولار لو قمت اليوم بشراء شىء ما ب10 دولار نقدا ستبقى فى محفظتك 90 ولو غدا اشتريت سلعة اخرى ب 5 دولار سيتبقى فى محفظتك 85 دولار ولو قمت فى وقت اخر بشراء سلعة ب 20 دولار ولم تدفع ثمنها (دين) لن تنقص النقود فى محفظتك ... ولكن فى وقت لاحق ذهبت الى البائع ودفعت الدين (20) دولار سيتبقى فى محفظتك 65 دولار .. ولنفترض ان والدك اعطاك منحة 50 دولار ووضعتها فى محفظتك سيكون فيها 115 دولار

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

اعتقد فسرت بما يكفى

وان لم تستوعب الطلب ساقوم بعمل موضوع جديد لانه بصراحة توهت وتشتت الموضوع

 

اسلوبك في الحديث غير لائق

الدكتور عمره ما قصر مع احد

20 دقائق مضت, palesten said:

يا ابن الحلال يا انا بتكلم هيروغليفى يا حضرتك لا تقرأ المطلوب

اسف على ازعاجك ليس هذا المطلوب

لماذا يتم اضافة الرصيد فى الصندوق لحساب المورد ؟

ولماذا لا يتم الخصم من الصندوق بعد عملية شراء من احد الموردين فى القائمة المنسدلة

راجع هذا المثال رجاء

مثال : محفظة الجيب خاصتك (الصندوق) فيها 100 دولار لو قمت اليوم بشراء شىء ما ب10 دولار نقدا ستبقى فى محفظتك 90 ولو غدا اشتريت سلعة اخرى ب 5 دولار سيتبقى فى محفظتك 85 دولار ولو قمت فى وقت اخر بشراء سلعة ب 20 دولار ولم تدفع ثمنها (دين) لن تنقص النقود فى محفظتك ... ولكن فى وقت لاحق ذهبت الى البائع ودفعت الدين (20) دولار سيتبقى فى محفظتك 65 دولار .. ولنفترض ان والدك اعطاك منحة 50 دولار ووضعتها فى محفظتك سيكون فيها 115 دولار

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

اعتقد فسرت بما يكفى

وان لم تستوعب الطلب ساقوم بعمل موضوع جديد لانه بصراحة توهت وتشتت الموضوع

 

هل يتقبل هذا الاسلوب @ابوخليل

13 دقائق مضت, jjafferr said:

وعليكم السلام 🙂

 

الخطأ الابسط:

عندكم خطأ في اسم الحقل في المعادلة ، يجب ان تكون بالمقلوب:

واردت اتاكد ان الكلمات العربية ما قلبت الكود :

 

والخطأ الاكبر:

النموذج مرتبط بجدول ، فأي تغيير في بياناته يجعلك تغير بيانات الجدول ،

فلما تدخل رقم الهوية (لسبب مؤقت وهو البحث) في حقل مرتبط في الجدول ، فانت تُخبر نظام قاعدة البيانات بأنك في وضع تعديل:

.

.

فالطريقة الصحيحة ان يكون عندك حقل غير مضمن للبحث ، هكذا مثلا:

.

ثم تستعمل هذا الكود على حدث "بعد التحديث"

Private Sub srch_Card_AfterUpdate()
    
    Dim X As Long
    Dim i As String
    Dim xSplit() As String

    X = Me.srch_Card.Text
    'i = DLookup("[aa] & '|' & [bb] & '|' & [cc]", "BeneficiaryT", "[رقم الهوية]=" & X)
    i = Nz(DLookup("[الاسم] & '|' & [اسم الاب] & '|' & [العائلة]", "BeneficiaryT", "[رقم الهوية]=" & X), "There_Are_No_Records_Here")
    
    If i <> "There_Are_No_Records_Here" Then
    
        xSplit = Split(i, "|")
        i = xSplit(0) & " " & xSplit(1) & " " & xSplit(2)
        
        MsgBox "رقم الهوية" & " ( " & X & " ) " & " تم تسجيله مسبقاُ" & "بأسم" & " " & i, vbCritical, "  تنبيه"
        Me.card.SetFocus
        DoCmd.FindRecord X, , , , , , True
        DoCmd.GoToControl "srch_Card"
        Me.srch_Card.SetFocus
        
    Else
        MsgBox "لا يوجد سجل لهذه الهوية", vbCritical, "  تنبيه"
        Exit Sub
    End If

End Sub

.

 

وتلاحظ اني لم استدعي البيانات من الجدول 3 مرات باستعمال 3 اوامر Dlookup ، وانما استدعيتها مرة واحدة (هذا جدا مهم خصوصا لما تكون قاعدة بياناتك مقسمة وعلى السرفر ويستعملها اكثر من مستخدم ، فيجب ان تقلل من زياراتك للجدول ، حتى تخفف العبء عليها وعلى الشبكة) 🙂

 

جعفر

كم انت رائع يادكتور جعفر

25 دقائق مضت, walid7799 said:

حالا ولكن استحلفك الله انتظرنى

آرجوا ان تكون اكثر مرونه في طلباتك

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

امر غير لائقي اخي الكريم

مجرد نصيحة اخ 

ارسل رسالة لادارة المنتدى 

او انسى الحساب

في رأي حتى لو ما لغيته و مانك رغبان تكمل استمرار الحساب او الغائه لا يترتب عليك مسؤلية مالية او جنائية اتوكل على الله و انساه نصيحتي لك

في ٢٨‏/١٠‏/٢٠٢١ at 01:53, د.كاف يار said:

ابو زهرة موضوعك جدا سهل و بسيط للغاية

تستطيع تحديث البرنامج بالكامل لدى جميع المستخدمين بإستخدام لوحة الأوامر CMD

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

اتفضل هذا المثال

الفكرة بإختصار

بعد ما تخلص من جميع تعديلاتك تقوم تنشئ نسخة مماثلة من آخر التعديلات يعني نسخة احتياطية

و تحطها في مجلد خاص بالتحديثات بحيث يدخل المستخدم و ياخذ نسخة من التحديث 

و يستبدل النسخة الي عنده بالنسخة المحدثة 

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

سيتم انشاء ملف نصي يتحوي على جميع هذه الأوامر و سيتم ارساله لشاشة الأوامر CMD

 

Pro.zip 78.16 kB · 50 downloads

اواجه مشكلة مع اوفيس 2003

رسالة خطأ اظن تفرق المكتبات عن الاصدار الاحدث 

هل من حل للمشكلة ؟

في ١٢‏/١٢‏/٢٠٢١ at 16:07, د.كاف يار said:

تفضل

 

sendemail2.zip 47.19 kB · 30 downloads

شكرا ليك اخي

4 ساعات مضت, ابو جودي said:

ضع الكود الاتى قى الاستعلام مع تغيير اسم الجدول TblName   باسم الجدول تبعك 

MyNum: DCount("ID","TblName","ID <=" & [ID])

 

شكرا لك يادكتور

51 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل بدون التقييد بتصميم الأكسل

و على نفس التصميم

 

 

 

تصدير اكسل.zip 58.07 kB · 2 downloads

يعمل باحترافيه

56 دقائق مضت, د.كاف يار said:

المرفق ليس الا مثال 

لكن تفضل هذا التعديل

تم تشفير بيانات تسجيل الدخول الى البريد الإلكتروني

كما يجب من اعدادات الايميل تمكين دخول البرامج الأقل أمانا

myaccount.google

بعد التمكين قم بإضافة الايميل و كلمة المرور لقاعدة البيانات

صورة من الإيميل 

صورة الشهادة

12839.pdf 164.5 kB · 2 downloads

 

Course certificates -Mohd+Moosa.zip 114.16 kB · 0 downloads

يعمل بصورة ممتازة فعلا وجدت ان جيع الايميلات قد ارسلت اليك😂😂😂 شكرا لك 

هل يمكن حماية ملف التحديث بكلمة مرور 

لجل نمنع احد من التلاعب فيه

في ٣١‏/١٠‏/٢٠٢١ at 15:10, د.كاف يار said:

استبدل الكود في حدث عند الفتح بالتالي

On Error Resume Next
If DCount("*", "UPDATES", "[Select]=False") <> 0 Then
    Call NewUPDATE
Else
    Kill CurrentProject.Path & "\UpdateFile.cmd"
End If

 

ممتاز نجح

بعد اذن الدكتور يبدو انه مشغول

اطع على كود فتح التقرير في النموذح تجد فلتر

 تستطيع الفرز من خلاله

والله اعلم

ممتاز

هل يمكن ان يكون التحديث لنموذج محدد فقط

عمل احترافي لكن الالوان هي ذائقة لكل فرد 

الألوان بها عتمة شديدة

2003 يعمل على جميع الاصدارات حسب علمي

لكن اتوقع تواجه مشكلة بين 32 و 86 و 64

في ٢٩‏/١٠‏/٢٠٢١ at 23:54, Eng.Qassim said:

وعليكم السلام

انظر للمرفق اخي

 

إدارة الاختبارات والقبول.accdb 736 kB · 4 downloads

متمييز دائما

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

في ٢٨‏/١٠‏/٢٠٢١ at 01:53, د.كاف يار said:

ابو زهرة موضوعك جدا سهل و بسيط للغاية

تستطيع تحديث البرنامج بالكامل لدى جميع المستخدمين بإستخدام لوحة الأوامر CMD

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

اتفضل هذا المثال

الفكرة بإختصار

بعد ما تخلص من جميع تعديلاتك تقوم تنشئ نسخة مماثلة من آخر التعديلات يعني نسخة احتياطية

و تحطها في مجلد خاص بالتحديثات بحيث يدخل المستخدم و ياخذ نسخة من التحديث 

و يستبدل النسخة الي عنده بالنسخة المحدثة 

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

سيتم انشاء ملف نصي يتحوي على جميع هذه الأوامر و سيتم ارساله لشاشة الأوامر CMD

 

Pro.zip 78.16 kB · 12 downloads

شكرا لك لأكثر من ثلاث سنوات ابحث عن حل سهل و مفهوم بهذي الطريقة

ماهو السؤال

حمي الوطيس

اجتمعوا عمالقة البرمجة

4 دقائق مضت, Eng.Qassim said:

اخي العزيز @Ahmed_J نصف الحل هو فهم السؤال

وحضرتك لم تطرح السؤال بشكل مفصل .. وطرح الاستاذ @د.كاف يار في محله ..

سأساعدك في الطرح حتى يتمكن الاخوة فهم السؤال ..

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

فمثلا الدرجة الخامسة تتزايد سنويا بمقدار 6000 دينار لغاية المرتبة الخامسة ليصبح 453

والدرجة الرابعة تتزايد سنويا بمقدار 8000 دينار لغاية المرتبة الخامسة ليصبح 541

وهكذا لبقية الدرجات

مع وافر احترامي

كنت ناطر ردك يا سعادة المهندس

نظرة المهندس لا تخيب ابدا مثل ما قال دكتورنا كاف

اتمنى توضح اافكرة شنهي الجداول الي نحتاجها لأني كنت محتاج هذي الفكره و بحثت كثير ما وجدتها

8 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل

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

 Public Function Subsalary(TotalSalary As Double, Levelsalary As Double) As Double
 Dim SRank As Double, SGrade As Double
    SRank = DLookup("RankSalary", "Rank", "RankNO=" & TotalSalary)
    SGrade = DLookup("GradeSalary", "Degree", "GradeNO=" & Levelsalary)
 Subsalary = SRank + SGrade
 End Function

 

salary.accdb 1008 kB · 1 download

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