ناقل

بس انت قلت في البداية بدون اكواد 😆

ده اختبار ولى ايه .... طيب هناك طرق طبعا منها ... وضع هذا في تنسيق الكمبوبكس .... @;"رقم الموظف"

اعتقد لو فتحت موضوع جديد وادرجت مرفق او مثال للمطلوب لكان افضل ... بارك الله فيك ..

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

هل هذه الصورة المطلوبة ؟؟؟؟

استخدم هذا الكود :::: If DCount("[ser]", "find", "[name_1] ='" & Me![myfind] & "' ") > 0 Then MsgBox "هذا الشخص موجود", vbCritical, "عملية خاطئة" Else MsgBox "الاسم غير موجود" End If

استاذي الفاضل @ابو جودي مستحيل ازعل منك .... تعرف ليش لانك انسان ذو خلق عالي وقلب يحب الجميع .... اسأل الله ان يرزقك الفردوس الاعلى ... امين

ما شاء الله تبارك الله اعانك الله استاذنا على المهمة ... تستاهل ...

عدلها بهذا الشكل ... If ComPlat.Value = "Twitter" And Me.comType = "Click" Then TargetPlas.Value = [Forms]![PlatPrice]![NP1] * 0.5 ولكن .... ملاحظة يجب ان يكون النموذجين مفتوحين ......!!!!!!!

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

ممكن .... طيب استبدل الشيفرة بهذا ..... On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.Emp_ABSCENT = False Then Dim Dday As Integer Dday = Weekday(Date_today) If Dday = 5 Then Me.txtTimeIn.Value = Time Me.txtTimeOut = "03:00:00 م" Else Me.txtTimeOut = "04:00:00 م" Me.txtTimeIn.Value = Time End If Else Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly

حياك الله .... واياك

طيب أهلا عمر .... جرب هل هذا ما تريد ؟؟ On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.Emp_ABSCENT = False Then txtTimeIn.Value = Time Else txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الحضور بنجاح بنجاح", vbOKOnly حضور وانصراف موظفين.accdb

طيب اخ عمر ... هلا بك اعتقد ان لديك في البرنامج جدول خاص لترحيل الحضور والغياب ؟؟ اذا كان كذلك ... يمكن عمل استعلام الحاق بشرط نعم/لا اما اذا كانت الاجابة .. لا .. اي ليس هناك جدول خاص للحضور والغياب ... ارجو ارفاق مثال مبسط للنظر فيه ... ومحاولة حل ذلك ... حياك الله ... ملاحظة دائما لا تعتب من عدم رد اخوانك في المنتدى ... قدر ظروفهم ... قدر محاولة فهم السؤال ... لكن لا تتوقع تجاهلهم لسؤال سائل طالما ان بمقدورهم الرد ... وكثيرا وضع مرفق مبسط يغني عن طرح صفحات من الشرح ... اشكر لك سعة صدرك ..

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

وعليكم السلام في النموذج ... حدث عند مفتاح للاسفل ... ضع هذه الشيفرة وجرب .... واعلمنا بالنتيجة ... On Error GoTo HandleErrors Me.KeyPreview = True Select Case KeyCode Case vbKeyLeft SendKeys "^{TAB}", True Case vbKeyRight SendKeys "+{TAB}", True Case vbKeyDown SendKeys "^{PGDN}", True Case vbKeyUp SendKeys "^{PGUP}", True End Select Exit Sub HandleErrors: Select Case Err.Number Case 2105 KeyCode = 0 Case Else MsgBox "Error: " & Err.Number & " " & Err.Description End Select أو جرب هذا ايضا ..... On Error Resume Next Select Case KeyCode Case vbKeyDown If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Case vbKeyUp If KeyCode = vbKeyUp Then DoCmd.GoToRecord , , acPrevious End If If KeyCode = vbKeyDown Then DoCmd.GoToRecord , , acNext End If Case vbKeyReturn KeyCode = 0 End Select

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

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

اهلا استاذي @Eng.Qassim الحقيقة وباختصار ان اداة WebBrowser في الاكسس عند استخدامها لفتح بعض مواقع الانترنت ... فبعضها تفتح ولكن غير منسقة وبعضها الاخر مثل مثالي السابق تظهر رسالة ان المتصفح غير مدعوم ... فلذلك عندما رأيت استاذنا @أبو إبراهيم الغامدي موضوعة واستخدامه لتلك الوسوم ... طرحت تساؤلي حول الموضوع ... لعلنا نتجاذب الحوار للوصول الى حل ..... بارك الله فيكم جميعا على التفاعل .....

أهلا بك استاذ @أبو إبراهيم الغامدي بعض المواقع عند فتحها عن طريق متصفح الويب في الاكسس تظهر رسالة مفادها ان المتصف غير مدعوم ... فهل يمكن تلافي مثل هذه الرسائل بحيث يمكن فتحها بالمتصفحات المدعومة داخل نموذج الاكسس .... انظر الصور والمرفق كمثال ... عرض صفحة الويب في الاكسس.accdb

للرفع ....

بارك الله فيك اخي @ابو جودي تظهر معي رسائل ربما لعدم تنصيب الميديا لدي ....

بارك الله فيك اخي الحبيب @ابو جودي لعل استاذنا القدير @أبو إبراهيم الغامدي يجد الوقت الكافي لتعليمنا بعض مفردات ذلك العلم .... اكن له شاكرا ... والمجال مفتوح للجيمع .....

ورد في حديث اخونا جفعر عبارات أردت ان استفسر فن طريقة ادائها وخاصة كما ذكر اخي @jjafferr وفي الوقت الذي كانت جميع اعمالنا المستخدمة عن طريق الانترنت اكسبلورر IE كادت ان تموت ، واذا انت تعطيتها الحياة عن طريق المتصفح الجديد ادج Edge هل من الممكن معرفة الطريقة استاذ @أبو إبراهيم الغامدي @jjafferr ؟؟؟؟

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