د.كاف يار

بعد كل نوع فقط ضع OR

تفضل هذه اخي الكريم مجرد فكرة New Microsoft Access قاعدة بيانات.accdb

اخي الكريم للطباعة مباشرة DoCmd.OpenReport "اسم التقرير" و من طريقة عرض التصميم للتقرير اذهب الى اعدادات الصفحة و اتبع التالي لتحديد الطابعة

تفضل الملف بعد التعديل اخي الكريم سيتم قراءة آخر ثلاث احرف من النهاية الطرفية لأي رابط مدخل pdf - imge.accdb

العفو اخي الكريم مرورك هو الأجمل .... شكرا لك

ابشر اعطيني شوية وقت و اتمنى من الاخوان مشاركتنا بالفكرة و الحلول

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

الاخوة الاعزاء تجدون ادناه فكرة مبدئية لعمل معرض صور من روابط صورة خارجية آمل ان يحوز على رضائكم معرض صور فكرة مبدئية.mdb

اخي الكريم تفضل الطريقة قم بإدراج اطار صورة الصق هذا الفكشن في اي مكان داخل VBA Public Function DownloadImage(ByVal URL As String) As String On Error GoTo catch Dim oWinHTTP As Object Dim FileNumber As Integer Dim Destination As String Dim buffer() As Byte DoCmd.Hourglass True Destination = CurrentProject.Path & "\tmp." & Mid$(URL, InStrRev(URL, ".") + 1) Set oWinHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") oWinHTTP.Open "POST", URL, False oWinHTTP.send If oWinHTTP.Status = 200 Then FileNumber = FreeFile Open Destination For Binary Lock Read Write As #FileNumber buffer = oWinHTTP.ResponseBody Put #FileNumber, , buffer Close #FileNumber DownloadImage = Destination End If DoCmd.Hourglass False finally: Erase buffer Set oWinHTTP = Nothing Exit Function catch: DoCmd.Hourglass False MsgBox "Error number" & Err.Number & vbCrLf & "Description : " & Err.Description, vbExclamation, "DownloadImage()..." Close 'close all open files Resume finally End Function بعد ان يتم تحميل الصورة و تخزينها في الذاكرة المؤقته يتم استدائها بنفس الرابط الذي تم تحميلها من من خلال الكود التالي Me.picture1.Picture = DownloadImage("http://stylis7.com/up/uploads/images/stylis7-4e2761ce34.png") تفضل المثال مثال لجلب الصورة من رابط.mdb

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

نعم اخي الكريم ضع الكود في حدث عند النقر

تفضل الكود اخي الكريم dim x1 x1= "مسار الصورة" Kill (x1)

تفضل هذا المثال اخي الكريم تصدير و استيراد.accdb

اخي الكريم ارفق مثال لما تريد حتى تصل الى الحل الذي تطمح اليه

اخي الكريم ابدء انت بإنشاء برنامج و نحن هنا في خدمتك ابدء ببناء الجداول و من ثم النماذج و من ثم التقارير و اذا صعب عليك امر نحن في خدمتك

تفضل هذا المثال مثال للطباعة.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 يتم كتابة الرقم عن طريق النموذج الذي تم انشائه