صالح حمادي

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

السلام عليكم هذه طريقة للحصول على الوقت و التاريخ الحاليين للأنترنت حسب توقيت غرينتش نستخدم هذه الوحدة النمطية: Function GetUCTTimeDate() As String 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 "GET", NetTime & Now(), False, "", "" http.send UTCDateTime = http.getResponseHeader("Date") UTCDate = Mid(UTCDateTime, InStr(UTCDateTime, ",") + 2) UTCDate = Left(UTCDate, InStrRev(UTCDate, " ") - 1) UTCTime = Mid(UTCDate, InStrRev(UTCDate, " ") + 1) UTCDate = Left(UTCDate, InStrRev(UTCDate, " ") - 1) GetUCTTimeDate = UTCDate & " " & UTCTime End Function و نقوم باستدعاء الناتج هكذا MsgBox GetUCTTimeDate()

الأستاذ @Elsayed Bn Gemy حضر و جهز كل شيء من قبل جزاه الله عنا كل خير تابع هذا الرابط:

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

ربما وضع كود في قاعدة البيانات يقوم بتحديث أحد الكائنات و القاعدة مفتوحة للقراءة فقط و ليس للقراءة و الكتابة

ليس في كل مرة. عند الاستخدام الأول فقط و تستطيع تفعلها كما تشاء

نعم بارك الله فيك يا ابا جودي أنا أول مرة أرى هذا الموضوع

بارك الله فيك أخي الكريم @SEMO.Pa3x

السلام عليكم السطر الأول للتصدير إلى أكسل و السطر الثاني للإستيراد من الأكسل قم بالبحث في المنتدى سوف تجد العديد من المواضيع و الأمثلة على ذلك DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة"

غير في كود الشرط إذا كان مربع الحالة يساوي شغال يفتح النموذج و إذا كان لا يساويها لا يفتح

الجواب متواجد هنا

المرفق يشتغل عندي بشكل جيد أوفيس 2010 نواة 32بت ونداوز 7 نواة 32 بت

وضعته أنا لكي أحدد به نهاية التاريخ و بداية العبارة شغال أو متوقف أين ظهرت لك هذه العبارة

أنا أستخدم 3 طرق لقراءة ملفات النصوص أونلاين الطريقة الأولى: هي نفسها الطريقة التي تستعملها أنت أخي. الطريقة الثانية: و هي كالتالي: Function ReadURLFile(sFullURLWFile As String) As String On Error Resume Next Dim oHttp As Object Set oHttp = CreateObject("MSXML2.ServerXMLHTTP") Call oHttp.Open("GET", sFullURLWFile, False) Call oHttp.send 'Check for any errors reported by the server If oHttp.Status >= 400 And oHttp.Status <= 599 Then ReadURLFile = "" Else ReadURLFile = oHttp.responseText End If Error_Handler_Exit: On Error Resume Next Call oHttp.Close Set oHttp = Nothing Exit Function End Function نستدعي هذه الدالة بالشكل التالي: Dim d As String d = ReadURLFile("الرابط المباشر للملف النصي") الطريقة الثالثة: كالتالي: Function ImportTxtWeb(UrlTxtFile As String) As String Set ie = CreateObject("InternetExplorer.application") qurl = UrlTxtFile ie.navigate qurl ' t = Timer ' timeout = False 'On Error GoTo terreur Do DoEvents Loop Until ie.ReadyState = 4 Set doc = ie.Document ImportTxtWeb = doc.body.innertext End Function نستدعي هذه الدالة بالشكل التالي: Dim d As String d = ImportTxtWeb("الرابط المباشر للملف النصي")

جرب هذه النسخة بإمتداد mdb Active.rar

شكرا جزيلا أستاذنا الغالي

اذن انتظر البرنامج الفتوح من عند الاستاذ السيد جمال

لقد قمت بنقل البيانات و النماذج لملف معمول على أكسس 2003 جرب هذه المرة Active22.rar

و هل قارئ البصمة تتحكم فيه مباشرة من الأكسس أم هناك برنامج وسيط بينهما

لقد عملته على نسخة 2003 نعم و أنا تدور في رأسي الكثير من الأسئلة حول استخدامها و يسرني كثيرا أن أشترك معكم في هذا العمل هذا مرفق الملف بنسخة 2003 active file.rar

أولا: قمت بإضافة حقل فارغ اسمه تجميع فصل لإستخدامه لتجميع في التقرير ثانيا: في خصائص تجميع فصل رأس غيرت خاصية تكرار المقطع إلى نعم ثالثا: جعلت عرض العمود في إعدادات الصفحة 9.7سم

السلام عليكم إليك هذه الطريقة بدون تكرار الكتابة أي طريقة مخالفة لمثال أخونا محمد قائمة فصل منقسمة علي جاني الورقة.rar

بعد فصل الأنترنت أغلق البرنامج نهائيا ثم أعد تشغيله لقد قمت بتغيير العبارت جرب الآن

ماذا وجدت في المرفق الذي أرسلته لك أخي السيد

مرحبا أخي الهدف هو التعلم و الإستفادة من بعضنا البعض و سوف توضع المرفقات مفتوحة إن شاء الله لكن نريد التجربة و رؤية الملاحظات أولا ثم نضع الملف