ms-access اكواد - الوصول تاريخ القضية-د / مم تلقت تغيير تلقائيا إلى مم / د





شرح vba (5)


ويتطلب الوصول تاريخا لا لبس فيه. يوصى عموما باستخدام يي / مم / د، بغض النظر عن اللغة. فمثلا:

strSQL="SELECT SomeDate FROM tblT WHERE SomeDate=#" & Format(DateVar, "yyyy/mm/dd") & "#"

لقد قمت بتشفير شيء باستخدام بيان التاريخ في أسيس فبا. كان يعمل بشكل جيد حتى بداية هذا الشهر، ولكن الآن أرى أن التاريخ قد غيرت تلقائيا تنسيق من dd/mm/yyyy إلى mm/dd/yyyy . هل واجه أي شخص آخر نفس المشكلة؟




هذا يعمل:

sentenciaSQL = "UPDATE Numeraciones " & _
"SET Valor = " & Valor & ", " & _
"Fecha = #" & **Format(fecha,"mm/dd/yyyy HH:nn:ss") & "#, " &** _
"Id_Usuario = " & Id_Usuario & _
" WHERE Nombre = '" & Nombre & "'"



جرب هذا الرمز:

stLinkCriteria = "[ProjectDate] Between #" & Format(CDate(Me![txtDateFrom]), "mm/dd/yyyy") & "# And #" & Format(CDate(Me![txtDateTo]), "mm/dd/yyyy") & "#"

وهو يعمل بالنسبة لي.




تنسيق تاريخ سكل الوصول الافتراضي، بغض النظر عن اللغة، هو يوم / يوم / سنة. إذا كنت تستخدم تنسيق تاريخ غير صالح، فسيكون من المفيد محاولة تحويل ذلك إلى تاريخ صالح لك.

لذلك، إذا كنت تستخدم '30 / 09/2008 '، فإنه سوف تعترف كنت تستخدم د / مم / يي، وتحويله بشكل مناسب. ومع ذلك، قيمة مثل '10/01/2008' هي قيمة صالحة مم / د / يي في البداية، لذلك لن يتم تحويلها، وتخزينها بشكل غير صحيح في حال كنت تعني في الواقع د / مم / يي ....

الحل هو دائما تحويل قيم التاريخ إلى سلسلة مم / د / يي قبل استخدامها في عبارات أسيس سكل. عليك أن تكون حذرا بعض الشيء هنا، حيث أن استخدام أقنعة تنسيق التاريخ فبا قد لا تعمل تماما كما كنت تتوقع على غير الولايات المتحدة المحلية (على سبيل المثال "مفيد" تفسير "مم / د / يي" باسم "تنسيق التاريخ القصير المترجمة" )، لذا يرجى اختبار بعناية باستخدام الخاصة بك الوصول / فبا الإصدار.




كل ما تبقى من أساليب لجعل Excel تنتظر في Excel يصبح غير مستجيب تمامًا. الحل لجعل Excel ينتظر مع ضمان واجهة مستخدم متجاوبه هو استدعاء هذا الانتظار Sub مع عدد الثواني للانتظار.

    Sub Wait(seconds As Integer)
      Dim now As Long
      now = Timer()
      Do
          DoEvents
      Loop While (Timer < now + seconds)
    End Sub




ms-access access-vba ms-office