اذهب الي المحتوي

صالح حمادي

أوفيسنا
  • Content Count

    1,486
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    28

صالح حمادي last won the day on نوفمبر 8

صالح حمادي had the most liked content!

السمعه بالموقع

1,362 Excellent

عن العضو صالح حمادي

  • الإسم الفعلي
    فريق الموقع
  • تاريخ الميلاد 25 فبر, 1988

البيانات الشخصية

  • Gender (Ar)
    ذكر
  • Job Title
    أستاذ
  • بلد الإقامة
    الجزائر
  • الإهتمامات
    البرمجة بالأكسس

اخر الزوار

3,188 زياره للملف الشخصي
  1. السلام عليكم مشكور على الإجتهاد و الفكرة و أقدم إعتذاري الشديد لعدم المساهمة معك كما وعدتك مسبقا لأنني أواجه مشاكل كبيرة في العمل حاليا. مما جعلني مشتة الذهن و عدم الجلوس أمام الجهاز إلا قليلا.
  2. السلام عليكم هذه طريقة للحصول على الوقت و التاريخ الحاليين للأنترنت حسب توقيت غرينتش نستخدم هذه الوحدة النمطية: 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()
  3. الأستاذ @Elsayed Bn Gemy حضر و جهز كل شيء من قبل جزاه الله عنا كل خير تابع هذا الرابط:
  4. نعم أخي قاضي لقد قرأت المشاركة و تاريخها شكرا مرة أخرى لكن لا يجب أن ننسى أن الطريقتين مختلفتين
  5. ربما وضع كود في قاعدة البيانات يقوم بتحديث أحد الكائنات و القاعدة مفتوحة للقراءة فقط و ليس للقراءة و الكتابة
  6. ليس في كل مرة. عند الاستخدام الأول فقط و تستطيع تفعلها كما تشاء
  7. نعم بارك الله فيك يا ابا جودي أنا أول مرة أرى هذا الموضوع
  8. السلام عليكم السطر الأول للتصدير إلى أكسل و السطر الثاني للإستيراد من الأكسل قم بالبحث في المنتدى سوف تجد العديد من المواضيع و الأمثلة على ذلك DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "اسم الجدول", "المسار الكامل للملف", False, "اسم الورقة"
  9. غير في كود الشرط إذا كان مربع الحالة يساوي شغال يفتح النموذج و إذا كان لا يساويها لا يفتح
  10. المرفق يشتغل عندي بشكل جيد أوفيس 2010 نواة 32بت ونداوز 7 نواة 32 بت
  11. وضعته أنا لكي أحدد به نهاية التاريخ و بداية العبارة شغال أو متوقف أين ظهرت لك هذه العبارة
  12. أنا أستخدم 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("الرابط المباشر للملف النصي")
×
×
  • اضف...