د.كاف يار
-
Posts
1681 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
60
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو د.كاف يار
-
تفضل التعديل اخي الكريم store_universty_Backup.rar -
هل هناك طريقة لتشغيل برنامج اكسس على الجوالات ؟؟
د.كاف يار replied to عبد اللطيف سلوم's topic in قسم الأكسيس Access
في اعتقادي انه حتى الان لا يوجد تطبيق يفتح نماذج الاكسس الافضل ان تقوم بإنشاء صفحات ويب بنفس تصميم نماذج الاكسس لديك بعدها تستطيع رفع تلك على الصفحات على اي استضافة مجانية مع قاعدة البيانات كانت لدي نفس المشكلة و قمت بعمل نفس الحل مرفق رابط الموقع فقط للاطلاع طبعا هذا الرابط متوافق فقط مع الهواتف اما اجهزة الحاسب الآلي لا و هذا بناء على طلب العميل فقط باضافة الكود التالي للتصميم و بناء جميع العناصر بكامل حجم مساحة العمل <meta name = "viewport" content = "width=device-width; initial-scale=1.0; maximum-scale=1.0; user-scalable=0"/> الموقع الذي تم تصميمه مع العلم بأن هذا الموقع مرتبط قاعدة بيانات اكسس -
تفضل هذا التعديل اخي الكريم Private Sub add_Click() If IsNull(Me.Title) Or IsNull(Me.iso) Then MsgBox "xxxxxxxxxxxxx " 'MsgBox Exit Sub Else Dim Rs As DAO.Recordset Set Rs = CurrentDb.OpenRecordset("unread") Rs.AddNew Rs!id = id Rs!Title = Title Rs!User = User Rs!Date = Date Rs!Time = Time() Rs!subj = subj Rs!Attachment.Fields("FileData").Value = Attachment Rs.Update Set Rs = Nothing Me.Title = "" Me.MsBox = "" MsgBox "Done " DoCmd.Close End If End Sub مرفق مثال على ذلك اضافة الصور.accdb
-
اخي الكريم يبدو انه لا يمكن تعديل قياسات الموقع الالكتروني من خلال متصفح الاكسس لكن هنالك اقتراح توجد العديد من المواقع و البرامج لتصميم صفحات الويب بلغة HTML اقترح عليك استخدام الفرونت بيج فهود احد اصدارات اوفيس القديمة 2003 و سهلة الاستخدام عند انشاء صفحة قم وضع الصورة التي ترغب بها و ضع في رأس الصفحة <head> <meta name = "viewport" content = "width=device-width; initial-scale=1.0; maximum-scale=1.0; user-scalable=0"/> يقوم هذا الكود بتحجيم جميع العناصر داخل الصفحة بما يتناسب مع اي مقاس للشاشة في العادة نقوم باستخدامه لانشهاء موقع ويب يتناسب مع الهواتف المحمولة و الاجهزة اللوحية شكرا
-
اخي الكريم مع الابقاء على نفس الجداول ينبغي عليك توريد كميات الاصناف في جددول InvoiceTT تحت بند "شراء" تم اضافتها مع كل عملية اضافة / حذف للاصناف سيتم تحديث المخزون تلقائيا مرفق التعديل InvoiceSale_8.accdb
-
كذلك الكمية المتاحة يجب ان تأتي من سجل الحركة كحركة دخول او شراء
-
اخي الكريم بعد الاطلاع البرنامج المرفق لاحظت وجود اخطاء برجمية كثيرة أي ان البناء غير صحيح دعنا نبدء بتنظيم البرنامج حتى يعمل بالصورة البرمجية الصحيحة كما انه توجد عناصر تحكم انت لست بحاجة اليها كما هو موضح في الصورة كذلك العمليات الحسابية التي ضمن الكود تستطيع الاستغناء غنها سيتم عن قريب ارفاق النسخة المعدلة اخي الكريم يجب دمع الجدولين InvoiceHT و InvoiceTT تحت مسمى جدول الحركة لكي تستطيع بناء مخزون صحصيح
-
اخي الكريم اقصد ماهي الجداول التي تريد ان تقوم بتجميع البيانات منها عند تصفحي لقاعدة البيانات وجدت الجدول operation_store و اعتقد انه خاصة لحركة الدخول و الخروج فقط قم بتحديد اي من الجداول التي تريد بناء التقرير عليها
-
اخي الكريم عمل تقرير بالكميه الموجوده بالمخزن وتقريربحركه الدخول والخروج ماهي الجداول التي بها المعلومات اجمالي حركة الدخول - اجمالي حركة الخروج = الكمية الموجودة تستطيع بناء التقرير و استخدام دالة DSUM
-
اتبع التالي لاضافة العنصر حسب الاصدار لديك
-
اخي الكريم اضف مشغل Media Player من الواضح اختلاف الاصداري بيننا تسبب في مشكلة بعد اضافة العنصر فقط قم بتعديل الكود كود تصفح الملفات Dim Addfile As Object Set Addfile = Application.FileDialog(3) With Addfile .AllowMultiSelect = False .InitialFileName = "" .Filters.Clear .Filters.Add "All Files", "*.*" If .Show = True Then xFile = Trim(.SelectedItems(1)) [مربع النصف الذي سيتم تخزين المسار به] = xFile Else Exit Sub End If End With اضف الكود التالي لتشغيل العنصر هذا الكود السابق و الذي يختلف فيه اصدار MediaPlayer WindowsMediaPlayer4.URL = [SoundPath] الكود الجديد [اسم عنصر التحكم الذي تم اضافته بدلا عن السابق].URL = [SoundPath]
-
اخي الكريم يوجد خطأ في معادلة حساب الاجازة السنوية دعنا نفترض ان الاجازة السنوية للموظف عبدالله هي أساس 21 يوم اجازة اعتبارية + ايام العطل الرسمية ليصبح الاجمالي هو 30 يوم في السنة تاريخ تعيين عبدالله هو : 2000/01/01 التاريخ الحالي هو : 2005/01/01 عدد سنوات العمل للموظف عبدالله هي : 5 سنوات = ( 60 شهر ) عبدالله يستحق شهريا 2.5 يوم × 60 = 150 يوم من تاريخ التعيين و حتى تاريخ طلب الاجازة و يكون الرصيد ناقص هذه المدة في حال تم الاستفادة من رصيد سابق قبل مروري و دمتم و الجميع في رعاية الله و حفظه ,,, ,
-
تفضل التعديل اخي الكريم MP3_WAV_Player_SEMO_Pa3x.accdb
-
اخي الكريم طلبك موجود ضمن الكود و لست بحاجة لانشاء رسالة اخرى في حال ان الاتصال فشل سوف تظهر الرسالة ادناه VBA.MsgBox "Error " & err.Number & " (" & err.Description & ")" لكن تستطيع اضافة رسالة في حال نجاح الاتصال و لا انصح بها لأنه في كل الاحوال سيتم استخدام الكود في نموذج الواجهة الرئيسية ففي كل مرة يتم الدخول للواجعة سوف تظهر رسالة تفيد بنجاح الربط و هذا غير منطقي شكرا لك...
-
اخي لدي مشروع قريب من الذي لديك قد تجد فيه ما يفيدك تفضل في المرفقات برنامج شئون الموظفين.rar
-
طلب كيف يتم إظهار أو إخفاء التقرير بناء على الاختيار في النموذج
د.كاف يار replied to حامل المسك's topic in قسم الأكسيس Access
تفضل هذه فكرة اخرى إخفاء أو إظهار التقرير.accdb -
اخي الكريم بالاضافة الى الخطوات اعلاه اجعل حدود النموذج رفيع و سيكون الاطار يحتوي فقط على التسمية التوضيحية
-
قيمة مربع عنصر التحكم = لا لو اردت تخصيص ايقونة بصورة من عندك هذا موقع يحول الصورة الى ايقونة Free online file converter
-
اخي الكريم هذا كود بسيط لعملية الربط المهم ان تكون قاعدة البيانات في نفس مسار البرنامج انشئ موديل و الصق التالي مع التعديل كما هو موضح Option Compare Database Option Explicit Public Function updateTableLinks() On Error GoTo updateTableLinks_Err Dim varThis As Variant Dim strBEFileSpec1 As String dim x x=CurrentProject.Path & "\" & "اسم قاعدة البيانات"& ".mdb" ' او ضع مسار قاعدة البيانات strBEFileSpec1 = x For Each varThis In CurrentDb.TableDefs With varThis If Trim(Nz(.Connect)) Like ";DATABASE=*" Then .Connect = ";DATABASE=" & strBEFileSpec1 .RefreshLink End If End With Next varThis updateTableLinks_Exit: Exit Function updateTableLinks_Err: If Err.Number > 0 Then Resume Next Else MsgBox Err.Description Resume updateTableLinks_Exit End If End Function في حدث عند الفتح في نموذج الواجهة استدعي Call updateTableLinks
-
للأسف طلبك غير واضح اشرح باختصار و ابشر بالحلول
-
الاخوة الاعزاء تجدون في المرفقات فكرة في طور التطوير لعمل قوائم بأبسط الطرق و بالأدوات المتاحة آمل المزيد من اقتراحاتكم شكرا لكم ... . برنامج شئون الموظفين.rar
-
- 4
-
-
جميل جدا الأن امام ابو يارا تقريبا طريقتين هذه هي فائدة المشاركة في الردود تتيح للعضو اختيار ما يراه ابسط الحلول
-
تفضل اخي الكريم teest.accdb
-
اخي حاول ان تستخدم طرق بسيطه بناء على الصورة اعلاه إن اسهل طريقه هي ان تضع في معيار الاستعلام للنموذج full [forms]![search]![empnumper] بناء عليه لن يتم عرض اي سجل سوى المتوافق مع السجل في صفحة البحث و حتى تضبط الأمور اكثر في تبويب الخصائص > غير ذلك > دورة السجل = السجل الحالي
-
خطأ ماهو كذ كتابة الشرط ماهي الدالة التي تريد استدعائها لتحقيق الشرط
