د.كاف يار

هذا كود جلب الوقت من الانترنت " توقيت جرينتش " Dim UTCDateTime As String Dim arrDT() As String Dim http As Object Dim UTCDate As String Dim UTCTime As String Const NetTime As String = "https://www.time.gov/" On Error Resume Next Set http = CreateObject("Microsoft.XMLHTTP") On Error GoTo 0 http.Open "sa", NetTime & Now(), False, "", "" http.Send UTCDateTime = http.getResponseHeader("date") [Text1] = UTCDateTime

اذا تفضل هذا التعديل Prog2233.mdb

تفضل هذا التعديل اخي الكريم Prog2233.mdb

تفضل اخي العزيز المبيعات.rar

تفضل هذا التعديل الحاق من النموذج الي الجدول.accdb

تفضل هذا المثال اخي الكريم مثال الترقيم مع التاريخ.mdb

تفضل التعديل اخي الكريم pdf - imge.accdb

تفضل هذا التعديل اخي الكريم Ex8-30.rar

تفضل هذا مثال مثال لنقل البيانات.mdb

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

بعد كل نوع فقط ضع 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

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

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