اذهب الي المحتوي
أوفيسنا

دروب مبرمج

الخبراء
  • Posts

    204
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    4

كل منشورات العضو دروب مبرمج

  1. كلمة فنان او معلم او محترف قليلة في انسان عظيم مثلك يشرفني بأن احتفظ بهذه الشفرة في مكتبتي
  2. نعم النص العربي يحتاج الى تشفير لحظات و يكون عندك التعديل تفضل التعديل و هذا هو كود التشفير المستخدم لتمرير النصوص عبر الويب Function EncodeQP2(s As String) As String Dim i As Long Dim p1 As Long Dim p2 As Long Dim r As String Dim n As Long For i = 1 To Len(s) n = AscW(Mid(s, i, 1)) If n < 128 Then r = r & "%" & Hex(n) ElseIf n < 2048 Then p1 = n \ 64 r = r & "%" & Hex(p1 + 192) p2 = n Mod 64 r = r & "%" & Hex(p2 + 128) Else End If Next i EncodeQP2 = r End Function sms (1).accdb
  3. هل سيتم اضافة الأيام فعلاً خاصة لو ان العمود نصي !؟ مجرد رأي يحتمل الكثير من الخطأ استخدام دوام التاريخ DateAdd بإعتقادي أنها تحمي المبرمج من الخطأ على الاقل من وجهة نظري و لكل شيخ طريقته في العلاج
  4. اسعدتني بمرورك العطر و الجميل و زخات كلمات التي تنهمر على القلب كزخات المطر شكرا لك معلمي @ابوخليل تفضل طلبك في المرفقات قد تجد بعض الأخطاء لكن حتما سنتجاوزها مع الأيام لأنني مازلت اتعلم و اتدرب و يمكن بعد فتح البرنامج عرض صفحت ويب من خلال المتصفح الافتراضي لديك لعرض النتائج مع اخطاء اقل web.mdb
  5. هذا ليس نموذج مصغر اذا يرجى تحديد اسم جدول الأصناف + جدول حركة الأصناف ( الداخل و الخارج ) لأن المعادلة المستهدفة اجمالي عدد الأصناف الموردة - اجمالي عدد الأصناف المسحوبة او المباعة = المخزون المتبقي
  6. كثير من تصاميم HTML نتمنى ان تكون موجودة في الاكسس و ربما يصبح الحلم حقيقة عما قريب اضع بين يديكم فكرة ! فكرة جدول مبني بلغة HTML مع تلوين الاسطر عند المرور عليها آمل ان تنال على استحسانكم web.mdb
  7. تفضل هذا لتعديل بطريقة مختلفة راح يكون اكثر تفاعلية و راح تشعر بأن الكود يفهم طلبك و تطلعاتك جرب و اعطيني انطباعك القروض والديون2024.rar
  8. اضافة كلمة DISTINCT لجملة الإستعلام تمكن من عرض القيم بدون تكرار يعني لو في الجدول بيانات متكررة اكثرة من مرة راح يعرضها مرة وحدة فقط طريقة الإستخدام SELECT DISTINCT [Company] FROM [Orders] بهذه الجملة سيتم عرض جميع الشركات في جدول الطلبات بدون تكرار اسم الشركة هذا الموقع جعلته المرجع الخاص بي لجميع جملة الإستعلام SQL https://www.w3schools.com/sql/sql_distinct.asp
  9. المعادلة صحيحة طبيعي اذا مثلا طلعت اجازة اليوم ما راح ترجع بنفس اليوم مثلا انت موظف و قدمت على طلب اجازة يوم واحد فقط تبدء من تاريخ : 16/05/2023 ما راح ترجع في نفس اليوم راح ترجع ثاني يوم يعني تاريخ نهاية الإجازة في : 17/05/2023 لكن لو حبيت انها تنتهي في نفس اليوم فقط تقدر تضيف (+1) للمعادة و بتكون الاجازة تبدء و تنتهي في نفس اليوم
  10. عندك مشكلة في اللغة غيير اعدادات اللغة في جهاز من خلال الاعدادات الاقليمية و امورك طيبة بإذن الله اختر اللغة العربية - المملكة العربية السعودية و بتحصل الرموز الي في الرسالة ظهرت بشكلها الطبيعي و اكيد و حتما راح يفيدنا اخونا @ابوخليل لأن هذي المشكلة او مره تمرني كذلك خبرتي بسيطة في الأوفيس و الاكسس بشكل خاص
  11. استخدم هذا الكود Dim SetSql As Variant, varFilter As Variant SetSql = Null varFilter = Null '--------------- جزء فلترة النموذج حسب القائمة المسندلة ---------------- varFilter = (varFilter) & "[natnump] =" & Me.name1.Column(0) With Me.Form If Not IsNull(varFilter) Then .DataEntry = False: .Filter = varFilter: .FilterOn = True Else .FilterOn = False End If .Requery End With '--------------- جزء تغيير مصدر النموذج الفرعي ---------------- If Len(txtyear) = 0 Or IsNull(txtyear) Then Me.äãæÐÌ_ÝÑÚí_gadamat_ishraf2.SourceObject = "Table.alaqat" Else Me.äãæÐÌ_ÝÑÚí_gadamat_ishraf2.SourceObject = "Query.qry_alaqat" End If السجل الاشرافي.rar
  12. اضف المكتب التالية و في اسفل محرر الأكود الصق الشفرة التالية Public Function Choose_Folder() As String On Error Resume Next Dim FolderPath As String, Addfile As Object With Application.FileDialog(msoFileDialogFolderPicker) .Show Choose_Folder = .SelectedItems(1) End With End Function و ضع ازرار بجوار مربع النص و الصق الكود التالي به [مكان الحفظ] = Choose_Folder و سيكون مربح الحوار بهذا الشكل فقط اختر الفولدر و اضغط موافق و سيتم تخزين موقع الفولدر في مربع النص تفضل برنامجك بعد التعديل و لتصفح الملفات و اختيار الملفات استخدم الكود التالي Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = True .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then Dim fPath As Variant For Each fPath In .SelectedItems Debug.Print fPath Next Else Exit Sub End If End With الاذاعةقبل الكود.accdb
  13. تفضل الصق هذه الشفرة في سجل الأكواد Module1 Public Function Get_Last_PRICE(ITEM_CODE As String) As Double On Error Resume Next Get_Last_PRICE = Nz(DLast("PURSHASED_PRICE", "ITEMS", "[ITEM_CODE] Like '" & ITEM_CODE & "'"), 0) End Function و في صفحة المبيعات و صفحة المشتريات في حدث عند التغيير ضع الكود التالي [ITEM_PRICE] = Get_Last_PRICE([ITEM_CODE]) وهذه هي النتيجة لم استطع ارفاق التعديل بسبب كبر حجم الملف
  14. تفضل حساب عدد ايام الإجازات الفعلية بدون اجازات نهاية الإسبوع + الإجازات الرسمية حسب جدول الإجازات WM2000.mdb
  15. للأسف يا صاحب الموضوع و عت نفسك في زاوية ضيقة و حصرت طلب المساعدة على عضو واحد و قد نفذت منه جميع الحلول نصيحة : اجعل طلباتك دائما للعموم لكي تأخذ اكثر من شكل للمساعدة و المشورة حين تكثر الحلول يسزداد استيعابك و فهمك لبيئة التطبيق الذي تريد انشائه نصيحة اخرى : لا تستعمل اي كود لا تعريف كيف يعمل و لا تفهم اقسامه خذا الأكواد و حاول ان تفهمها لكي تستطيع معالجة المشكلات التي من المحتمل ان تواجهك اثناء التطبيق
  16. شلون قياسي ؟ هل تقصد مثل ميزان الحرارة او شريط التقدم ؟
  17. حاولت و حاولت المساعدة لكن عجزت اعرف وين التاريخ بالضبط لجل نطبق عليه الفلتر و ثاني شغلة الكود سهل و مقدور عليه لكن انت وين بالضبط تحتاج city تكون موجودة احس ماهي منطقية كذلك تصميم جدولك فيه اخطاء كثير مثلا لو بغيت تلغي او تضيف منتج راح تضطر تعديل في تصميم الجدول و كل الأكواد مبنية على الجدول الاساسي انتبه الشغل الصحيح و السليم يدوم و يسهل التعامل معاه و تقدر تعرض البيانات بدون الحاجة الى كود من خلال العرض الجدولي وهذي نصيحة في النهاية شارك بمثال واضح لجل نقدر نساعدك و الجميع يشارك في الحلول العضو الي ساعدك واضح ان تواجده قليل
  18. هيا جرب هذا الفلتر ممكن يفي بالغرض تبحث بجزء من الاسم المساعدة في الكومبو بوكس.zip
×
×
  • اضف...

Important Information