Eng.Qassim

مشاركة مع استاذي @ابوخليل Public Function RoundNmber(Rou As Double) As Double If Rou - Int(Rou) < 0.5 Then RoundNmber = Int(Rou) + 0.5 Else RoundNmber = Int(Rou) + 1 End If End Function

عمل جميل استاذنا @kkhalifa1960 رغم اني الجأ الى الايقونات من النت ...لكن فكرتك جميلة وسريعة

فعلا خطوط جميلة عاشت الايادي استاذ @Moosak

عن اذن اخي استاذ @ناقل جربه مع اول نموذج يغتح عند فتح القاعدة وفي حدث عند التحميل تضع InstallFonts

شكرا لجميل دعائك اخي الكريم.. بصراحة انا لم ابحث في ماهية البرنامج وكيفية عمله...ما انتبهت اليه فقط رسالة الخطأ سأحاول لاحقا ان اسعفتني حالتي الصحية ..عافاكم الله من كل سوء

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

وعليكم السلام 1-ربما هناك مشكلة تواجه Office 2016 مع اصدارات ال Windows الحديثة... حاول الترقية الى Office 365 2- جرب الكود التالي في حدث عند التغيير للكومبوبوكس ولاحظ هل يحدث تغيير عند الفلترة؟ Private Sub ComboBox_Change() Me.ComboBox.Dropdown End Sub

السلام عليكم.. بعد اذن اساتذتي الكرام @Barna ... والاخ العزيز الاستاذ محمد عصام @ابو جودي الذي تمنيت ان اراه في مصر الحبيبة لاني كنت هناك قبل عدة ايام على كل حال... اخي العزيز @كريمو2... الخطأ يظهر لان حقل تاريخ المنحة فارغ او Null ضع الكود التالي للتحقق من فراغ حقل التاريخ: ' التحقق من منحة الحج f = DCount("year(Menha_Date)", "Mena7", "EmployeeID=" & Me.EmployeeID) If f >= 1 And Me.Menha_ID = "11" Then If IsDate(Me.Menha_Date) Then MsgBox "هذا المنخرط (ة) استفاد بمنحة الحج لسنة : " & Year(Me.Menha_Date), vbExclamation, "تنبيه" Else MsgBox "يرجى وضع التاريخ في حقل تاريخ المنحة.", vbCritical, "خطأ" End If Me.Undo Exit Sub End If تحياتي للجميع

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

السلام عليكم... شاهد هذا الفيديو ..قد تجد فيه ما ينفعك

فيديو جميل .....شكرا لمجهودك وجزاك الله خيرا

نعم استاذ ..في تلك الحالة سوف لن يتم ادخال الرقم الى الجدول المرتبط Private Sub genu_BeforeUpdate(Cancel As Integer) If Left(Me.genu.Value, 2) = "17" Then MsgBox "غير مسموح ادخال الرقم 17", vbExclamation, "ادخال خاطيء" Cancel = True Me.genu.Undo End If End Sub

الكود الذي اشار اليه استاذنا محمد عصام @ابو جودي يعمل على النواة 32 بت اما اذا اردت تحويله الى نظام يعمل على 64 بت ..في رأيي تعمل نسخة ثانية ..فتصبح الدالة كما يلي : Private Declare ptrsafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long 'طبعا هناك برامج متقدمة تستطيع فيها ان يعمل نفس البرنامج على 32 بت او 64 بت ..مثل #If VBA7 And Win64 Then 'x64 Declarations Private Declare PtrSafe Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #Else 'x32 Declaration Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _ "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long #End If تحتاج منك الاطلاع والقراءة ..وهناك الكثير في المنتدى مما تطيب لها نفسك تحياتي دكتور

استاذي العزيز @ابو البشر الفكرة جديدة علي ... وهو ابداع من حضرتك ...كيف ل abo1 ان يعد من جديد وهو غير مرتبط بأي شيء ؟ ممكن توضيح الفكرة لو سمحت

وعليكم السلام.. استخدم هذه الشفرة للزر المزدوج Private Sub cmd3_Click() If Me.cmd3.Caption = "مقبول" Then Me.cmd3.Caption = "مرفوض" Me.txt1.SetFocus Me.txt1.Text = "مقبول" ElseIf Me.cmd3.Caption = "مرفوض" Then Me.cmd3.Caption = "مقبول" Me.txt1.SetFocus Me.txt1.Text = "مرفوض" End If End Sub نسيت شغلة..قم بتسمية الزر cmd3 ..والتسمية التوضيحية "مقبول"