د.كاف يار

تفضل هذا المثال مثال للطباعة.mdb

هل ارقام المرضى متسلسلة ؟؟؟

اخي الكريم للاسف لم استطع ان افتح المرفق لأنه من اصدرا 32 بت لكن تفضل هذه الطريقة ضع في حدث عند الضغط على ازرار الطباعة مع مراعاة تغيير اسم التقرير و المعايير كما انك تستيطع انشاء قائمة بالتقارير و عمل طباعة حلقة تكرارية و افضل لك هذه الطريقة اذا كان عدد التقارير كبير DoCmd.OpenReport "report1", acViewPreview, , "[ID]=" & Me.ID DoCmd.OpenReport "report2", acViewPreview, , "[ID]=" & Me.ID

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

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

تفضل هذا الكود يقوم بنسخ القاعدة بالكامل مع النماذج و كل شئ 'تم وضع اسم المجلد الخاص بك فقط انسخ الكود و الصق Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "BackUp\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

اخي الكريم دعنا نتكلم من ناحية حسابية بعض مكونات السجل المحاسبي دلفتر الاستاذ هنالك ما يسمى رصيد افتتاحي او رصيد اول في كل سنة ما لية يتم ترحيل الرصيد اي لا يكون السجل المالي متراكم بدون اغلاق لذا من الأمور البديهية ان تكون الجداول لديك طبقا للسجلات المحاسبية ارجوا ان تتطلع على هذا الرابط المرفق من خلاله ستتمكن من انشاء سجلات محاسبية صحصحة بوابة المحاسبة

لم ادخل في موضوع الاتصال على طول اخي الكريم اقرأ جيدا الخطوة الأولى ( كيف يمكنني الاتصال بقاعدة البيانات من خلال صفحت الويب ؟؟؟ ) سوف اتحدث عن نفسي 1- قمت بانشاء حساب على موقع somee 2- انشأت قاعدة بيانات على نفس الموقع من نوع SQL و هو مجاني 3- قمت بتصدير قاعدة بيانات الاكسس على قاعدة البيانات في الموقع ** ملاحظة ( ليس من الضروري ان تقوم بانشاء قاعدة بيانات على نفس الموقع فأنت تستطيع ربط الصفحة بقاعدة بيانات الاكسس ) 4- بعد الانتهاء من اجراءات قاعدة البيانات ستجدون ادناه اكواد الاتصال بقاعدة البيانات لا يمكنك التصمم بالاكسس على صفحات الويب نهائيا ما تقوم بتصميمه على الاكسس هي تقريبا متشابهة جدا ما تقوم بتصميمه على صفحة الويب انصحك بقراءة الموضيع المتعلقة ببرمجة ASP بلغة VB أو #C

بماء انه يوجد تفاعل للموضوع سأقوم بشرح موجز عن ما صرحت به فمن الردود يتضح ان بعض الاخوة قد فهمي كلام خطأ ما قصدته انك تستطيع تنفيذ تصميمك على نماذج الاكسس بنسبة تصل الى 90 % على صفحات ويب كذلك كونك على علم باستخدام SQL في الاضافة و الحذف و التعديل فأنت مؤهل لاستخدام Microsoft Visual Basic الخطوة الأولى ( كيف يمكنني الاتصال بقاعدة البيانات من خلال صفحت الويب ؟؟؟ ) سوف اتحدث عن نفسي 1- قمت بانشاء حساب على موقع somee 2- انشأت قاعدة بيانات على نفس الموقع من نوع SQL و هو مجاني 3- قمت بتصدير قاعدة بيانات الاكسس على قاعدة البيانات في الموقع ** ملاحظة ( ليس من الضروري ان تقوم بانشاء قاعدة بيانات على نفس الموقع فأنت تستطيع ربط الصفحة بقاعدة بيانات الاكسس ) 4- بعد الانتهاء من اجراءات قاعدة البيانات ستجدون ادناه اكواد الاتصال بقاعدة البيانات استدعاء مكتبة الاتصال Imports System.Data Imports System.Data.SqlClient الاتصال بقاعدة البيانات Public con As New SqlConnection("Data Source=[اسم قاعدة البيانات على الموقع].mssql.somee.com;Persist Security Info=True;User ID="اسم المستخدم";Password= كلمة المرور") Public ds As New DataSet Public da As New SqlDataAdapter Public dt As New DataTable نبدء هنا بجلب و ارسال البيانات محاكاة انشاء صفحة تسجيل دخول x2= اسم الجدول x3= اسم العمود في الجدول و النفترض - اسم المستخدم x4= اسم الحقل في الصفحة - اسم المستخدم x5= اسم الحقل في الصفحة - كلمة المرور x4= اسم العمود في الجدول و النفترض - كلمة المرور da = New SqlDataAdapter("SELECT * FROM X2 WHERE X3='" & 4X.Text & "' AND X5='" & X6.Text & "' ", con) da.Fill(dt) اذا كان عدد السجلات التي تم جلبها في جملة الاستعلام اعلاه هو 1 If da.Fill(dt) = 1 Then قم بجلب البيانات ... البيانات التي سيتم تمريرها بين صفحات الويب مثال لجلب اسم المستخدم الذي تم تسجيل الدخول به dt(0)("User") لتمرير اسم المستخدم بين الصفحات Session("USERNAME") = dt(0)("User") Else Labe.Text = "اسم المستخدم او كلمة المرور خطأ" End If اعزائي بما انكم قادرين على التعامل مع SQL و اكواد الاكسس فلن تجد صعوبة في انشاء موقع الكتروي و بصورة سهلة جدا من اراد البدء في انشاء اول موقع الكتروني فاليبادر بانشاء موضوع جديد و البدء في الاستفسار كيف تبدء 1- قم بتثبيت Microsoft Visual Basic ( ان حاليا استخدم الاصدار 2012 ) 2- قم بانشاء حساب على الموقع اعلاه somee

تفضل اخي الكريم للاسف ما افهم الجدول المرسل من قبلكم و قمت باضافة بعض البيانات store_universty_Backup.rar يتم كتابة الرقم عن طريق النموذج الذي تم انشائه

تفضل التعديل اخي الكريم store_universty_Backup.rar

في اعتقادي انه حتى الان لا يوجد تطبيق يفتح نماذج الاكسس الافضل ان تقوم بإنشاء صفحات ويب بنفس تصميم نماذج الاكسس لديك بعدها تستطيع رفع تلك على الصفحات على اي استضافة مجانية مع قاعدة البيانات كانت لدي نفس المشكلة و قمت بعمل نفس الحل مرفق رابط الموقع فقط للاطلاع طبعا هذا الرابط متوافق فقط مع الهواتف اما اجهزة الحاسب الآلي لا و هذا بناء على طلب العميل فقط باضافة الكود التالي للتصميم و بناء جميع العناصر بكامل حجم مساحة العمل <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