الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

إليكم (كود) يضيف أصفار قبل الأرقام....

مغلق
بدأه حديث الزمان في 1 أغسطس 2004 · 3 رد · 696 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

....

أحيانا يحتاج أحدنا لإضافة أصفار قبل الأرقام التي تظهر عادة في سندات القبض والفواتير وغيرها.

إليكم هذا الكود...

Dim y
y = "000000"
ynet = Mid(y, 1, 6 - (Len(S) - 1)) & S

ولدي سؤال : كيف يمكن استدعاء التاريخ من (سيرفر) شبكة داخلية وليس من جهازي؟

هذا مثال على الكود

#2

لم يتم تحميل الملف سأحاول مرة أخرى

AddZeroooz.rar

#3

الأخ حديث الزمان ..

جزاك الله خيراً على الفائدة ونفع بك

بالنسبة لسؤالك .. فيمكنك تخزين التاريخ الحالي في جدول في القاعدة الموجودة في السيرفر من داخلها

#4
اقتباس
بالنسبة لسؤالك .. فيمكنك تخزين التاريخ الحالي في جدول في القاعدة الموجودة في السيرفر من داخلها

الأخ / أحمد الحربي

هل تقصد الدالة

Date()

في القيمة الافتراضية للحقل ؟

إن كان كذلك فإن البرنامج سوف يرجع تاريخ الجهاز الذي تم إدخال السجل الجديد منه

الحقيقة لقد بحثت كثيرا عن ( كود ) معين يعمل كـ

 Call

لتاريخ السيرفر ، ولكن دون جدوى

ثم آثرت استخدام الحيلة ، وهي كالتالي :

أن أعمل برنامج أكسس بنموذج واحد يفتح عند ( Statup ) للسيرفر ، والنموذج به كود في حدث عداد الوقت يقوم بتحديث حقل تاريخ في جدول في قاعدة البيانات التي سوف يستخدمها الموظفون المستخدمون والتحديث يكون إلى

اقتباس
Date()
، وإذ البرنامج مركب على السيرفر فإن التاريخ المحدث سيكون تاريخ السيرفر.

وأما عن استدعاء ذلك التاريخ إلى أي حقل تاريخ جديد في النماذج التي يستخدمها الموظفون من أجهزتهم فدالة

اقتباس
Dlookup
سوف تقوم بالواجب .

شكرا لمساعدتك

هذا الموضوع مغلق.

مواضيع مشابهة