ابو ميرال

صباح الخير عندي اكثر من صندوق وكل صندوق يختلف وقت تغذيته بالنقد عن الاخر والمده المحددة 10 الى 13 يوم واحتاج رسالة تلقائيه تظهر مثلا : ان الصندوق رقم 10 يحتاج تغذية وايضا بعد كما يوم حان تغذية الصندوق رقم 11 وايضا يظهر رسالة ان الصندوق رقم 11 يحتاج تغذية وكذلك الصناديق الاخر بشكل دوري ومستمر ايضا طبقت الكود المرسل من ابو عبدالله لكن لايعمل او اني وضعته بشكل خاطي والف شكر لكم استاذتي الصندوق.rar

صباح الخير عندي اكثر من صندوق وكل صندوق يختلف وقت تغذيته بالنقد عن الاخر والمده المحددة 10 الى 13 يوم واحتاج رسالة تلقائيه تظهر مثلا : ان الصندوق رقم 10 يحتاج تغذية وايضا بعد كما يوم حان تغذية الصندوق رقم 11 وايضا يظهر رسالة ان الصندوق رقم 11 يحتاج تغذية وكذلك الصناديق الاخر بشكل دوري ومستمر ايضا طبقت الكود المرسل من ابو عبدالله لكن لايعمل او اني وضعته بشكل خاطي والف شكر لكم استاذتي الصندوق.rar

صباح الخير كود تلقائي ايضا عندي اكثر من صندوق وكل صندوق يختلف وقت تغذيته بالنقد عن الاخر والمده المحددة 10 الى 13 يوم واحتاج رسالة تلقائيه تظهر مثلا : ان الصندوق رقم 10 يحتاج تغذية وايضا بعد كما يوم حان تغذية الصندوق رقم 11 وايضا يظهر رسالة ان الصندوق رقم 11 يحتاج تغذية وكذلك الصناديق الاخر ايضا طبقت الكود المرسل من ابو عبدالله وماهو راضي يعمل الشغل شوي معقده بالنسبه لي والف شكر لك

صباح الخير كود تلقائي ايضا عندي اكثر من صندوق وكل صندوق يختلف وقت تغذيته بالنقد عن الاخر والمده المحددة 10 الى 13 يوم واحتاج رسالة تلقائيه تظهر مثلا : ان الصندوق رقم 10 يحتاج تغذية وايضا بعد كما يوم حان تغذية الصندوق رقم 11 وايضا يظهر رسالة ان الصندوق رقم 11 يحتاج تغذية وكذلك الصناديق الاخر والف شكر لك

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

البرنامج حجمه كبير ورفعته على رابط

نفس الكود طبقته ونفس المشكلة Private Sub b1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error GoTo err_Form_MouseMove '... Me.a1.Visible = True Me.a2.Visible = False Me.a3.Visible = False Me.a4.Visible = False Me.A5.Visible = False Me.a6.Visible = False Me.a7.Visible = False Me.a8.Visible = False Me.a9.Visible = False '... Exit_Form_MouseMove: Exit Sub err_Form_MouseMove: If Err.Number = 2165 Then 'ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Form_MouseMove End If End Sub

تمام ابعدل الكود واشوف

يعطيك العافية انا استخدم on error resume next وتمام الان الرسالة ماظهرت لكن عندما افتح النموذج واخرج منه وانتقل الى النموذج التالي لازال النموذج الاول مفتوح على اني وضعت كود واذا رجعت عليه بالفارة يختفي Private Sub تفصيل_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) On Error Resume Next Me.a1.Visible = False Me.a2.Visible = False Me.a3.Visible = False Me.a4.Visible = False Me.A5.Visible = False Me.a6.Visible = False Me.a7.Visible = False Me.a8.Visible = False Me.a9.Visible = False End Sub

مسا الخير استاذه عملت قوائم منسدلة وعندما انتقل ويمر موشر الفارة على الازرار في البداية تظهر رسالة لا يمكنك اخفاء عنصر تحكم يتضمن التركيز run-time error 2165 وش الحل شكرا

اريد وضع كود يظهر تلقائي بدون تدخل مني

الف شكر لك سوف اطبق الكود هل واشوف هل يعطي نفس النتيجة

مساء الخير يااستاذه عاوز كود يظهر اشعارات تلقائية مرتبط بالتاريح يظهر عند اقتراب انتهاء المهلة يعني غذيت الصندوق بمبلغ معين والصندوق محكوم كل 10 ايام يتغذى بالمبلغ اريد شعار او رسالة من اكسس قبل انتهاء ال 10 ايام تذكرني بتغذية الصندوق 🤗والف شكر لكم

صباح الخير جمعة مباركة اسف تم ارفاق اكسس نسخة - البرنامج العقاري برنامج عقاري.rar

احسن الله عزاكم وانا لله وانا اليه راجعون

مساء الخير الاخوة الزملاء الكود ادناه يعمل على نسخة 32 اوفس والجهاز عندي 64 والاوفس ايضا 64 2019 هل من تعديل على الكود ادناه وكيف يكون الكود بعد التعديل امل مشاركتكم وشكرا لكم🙂 Option Explicit Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 Private Declare PtrSafe Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hwnd As Long, _ ByVal nCmdShow As Long) As Long Function fSetAccessWindow(nCmdShow As Long) 'Usage Examples 'Maximize window: ' ?fSetAccessWindow(SW_SHOWMAXIMIZED) 'Minimize window: ' ?fSetAccessWindow(SW_SHOWMINIMIZED) 'Hide window: ' ?fSetAccessWindow(SW_HIDE) 'Normal window: ' ?fSetAccessWindow(SW_SHOWNORMAL) ' Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err 0 Then 'no Activeform If nCmdShow = SW_HIDE Then 'MsgBox "Cannot hide Access unless " _ & "a form is on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If Else If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then 'MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp True Then 'MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If End If fSetAccessWindow = (loX 0) End Function

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

هلا ابو ياسين واسعد الله صباحك بكل خير يمكن ابو ياسين توضح اكثر واكون شاكر لك

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

مساء الخير  عملت معيار لكل فاتورة لكن ظهر مشكلة اخرى هي ان حركة البضاعة مايظهر فيها نوع الفاتورة لا شراء ولا بيع حتى التاريخ غير ظاهر حتى رقم الفاتورة ارفقت لك الملف والف شكر حبيبي اتعبتك معي اخي عبداللطيف xzxz.rar

xzxz.rar مساء الخير عملت معيار لكل فاتورة لكن ظهر مشكلة اخرى هي ان حركة البضاعة مايظهر فيها نوع الفاتورة لا شراء ولا بيع حتى التاريخ غير ظاهر حتى رقم الفاتورة ارفقت لك الملف والف شكر حبيبي اتعبتك معي اخي عبداللطيف

مساء الخير اخي عبداللطيف مازل عندي مشكلة بعد الانتهاء من فاتورة المشتريات وعملت فاتورة المبيعات ظهرت الحركات الي في فاتورة المشتريات في فاتورة المبيعات وش الحل والف شكر حبيبي المحل.rar

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

يسلموا حبيبي الله يرضك عليك الف شكر اخي عبداللطيف