ادراج تاريخ اليوم اوتوماتيكي

Private Sub Tetxbox_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 114 Then Me.Tetxbox = Now()

End Sub

نظرا لان العربي غير واضح بالرسالة سارسل لك مرفق

جرب المرفق

علما بان كل مفتاح بلوحة المفاتيح له رقم علي سبيل المثال المرفق F3 رقمه هو 114

انتر رقمه 13

1.rar

مشكور جداً أخي

ولكن كيف أن أعرف أرقام لوحة المفاتيح هل لديك ملف به اسماء ازرار لوحة الفاتيح وبما يقبلها من ارقام وماذا لو وضعنا بدل 114 كلمة F3 أعتقد أن الوضع لن يتغير وسيعطي نفس النتيجة وهناك أيضا أن النتيجة تعطيني مع التاريخ وقت وانا لا أريد وقت أريد تاريخ فقط كما موضح 29/5/2006

أسف علي الاطالة ومشكور جدا يا أخي

أخي العزيز لقد تم تجربة الاتي ووجدت الملاحظات التالية

1 - تم وضع كلمة date فقط بدل من now لتعطيني التاريخ فقط بدون الوقت

2- عند استبدال رقم 114 بدل من f3 لايتم استجابة المفتاح باللوحة لماذا ؟؟؟؟؟

3 - مشكور جدا لو ارسلت لي مسميات المفاتيح بالارقام

شكرا

اخي العزيز

افحص المرفق وستعرف كيفية التغيير

كما ارجو منك البحث فى المساعدة علي كلمة KeyCode وسيعرض لك جميع الاكواد

اخوك فى الله

1.rar

-waf

أخي العزيز

تقابلني بعض من المشاكل وهي كالتالي ،،،

1 - هذا الكود لا يفي بالغرض

if keycode = 114 then text1 = now ()

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

2 - وهذا الكود يعمل

if keycode = 114 then text1 = time

ويعطي نتيجة وهي الوقت وهذا المطلوب لا اريدة

3- وهذا الكود الذي اريده ولكن لايعطي المطلوب ولا يعمل فأنا لا أعرف هل هذا الكود خطأ أم ما هو الموضوع مع العلم أني كل ما أريدة في التكست بوكس التاريخ فقط لا غير

if keycode = 114 then text1 = date

شكرا

بعد أذن صاحب الاجابة علي الموضوع عندي حل يمكن يكون مفيد

اولا غير تنسيق البوكس وخليه yyyy/mm/dd

وبدل now غيره لـ date

انا عملت كده وأشتغل معايا والمرفق انا غيرت فيه طبعا بعد اذن أ/ احمد صاحب المرفق الاصلي

والله الموفق

1.rar

مشكووووور جدأ جدااً

فعلا هذا ما كنت أريدة

للمرة الثانية شكرا جدا علي المعلومات الجميلة

ما زال عندي مشكلة في كتابة التاريخ بالضغط علي زر F3 لادراج التاريخ اوتوماتيك

برجاء من خبراء الاكسس المساعدة في تلك المشكلة

مرفق مثال تم كتابة بة الكود الصحيح علي ما اعتقد ولم يعمل

____.rar

للتذكرة اليكم احبائي لينك المثال الذي اريد عند الضغط علي مفتاح F3 من لوحة المفاتيح ليتم ادارج التاريخ

للتذكرة اليكم احبائي لينك المثال الذي اريد عند الضغط علي مفتاح F3 من لوحة المفاتيح ليتم ادارج التاريخhttp://www.up4world.com/download.php?id=EZKe8KXShBTNrh2XAbuA

مرفق اللينك

http://www.up4world.com/download.php?id=EZKe8KXShBTNrh2XAbuA

السلام عليكم

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

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

لذلك استخدمت now() بدل date() لذلك اعد بناء الجداول والنمازج بحيث لا تحتوي علي ثوابت مثل

date - now - year - day - ABS - INT -

كل هذه اسماء دلات بالاكسس

الحمد لله الذي لا يحمد علي مكره سواه

____.rar

أخي الحبيب

مشكور جداً ولكن ليس هذا ما أريده

أريد ادراج التاريخ فقط بدون الوقت وفي نفس الوقت يتم تحديث هذا التاريخ بالجدول في ريكورد جديد

أرجو أن أكون قد اوضحت الموقف

شكراَ

السلام عليكم

ان تسمية حقل التاريخ date هو خطأ فى بناية النموزج والجدول لذلك عند كتابتك للدالة date() تختفي الاقواس وقد تم حجز الاسم date بواسطة الاكسس لهذا الحقل وليس للدالة

الحل

جرب فى نوزج اخر او اعد انشاء النموزج وتجنب تسمية الحقول باسماء دلات فى الاكسس

ارجو من الله ان يصلك ما قصدته

اخي الفاضل محمد فؤاد

السلام عليكم ورحمة الله وبركاته

اليك الكود الكامل لهذه العملية ويوضع هذا الكود في حدث عند ضغط المفتاح للاسفل للحقل MyDate

Private Sub MyDate_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF3 Then
Dim zaValue As String
zaValue = Format(Now, "yyyy/mm/dd")
Me.MyDate = zaValue
End If
End Sub

وهذا مثال مرفق

zaDATE.rar

اختكم

زهره

وفقك الله يا باشا

واحلي صباح علي الدكتورة زهرة - زهرة المنتدي والمنتديات - جمعـــــــــــاء :-)

اختنا أ/ زهرة

طبعا حل حضرتك هو حل عباقرة المحترفين

لكن بما اني ماذلت احبو في عالم الاكسس فانا حليت الموضوع بطرق المبتدئين

وهو اني غيرت تنسيق المربع

مش عارف لو كان ده برضه حل ينفع ولا فيه حالات مش هيشتغل معايا

ارجوا الافادة

ولكم جميعا تحياتي

وعليكم السلام ورحمة الله وبركاتة

أولاً الاخت زهرة

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

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

ثانياً الاخ العزيز

ahamied

شكراً علي معوماتك الجميلة وسوف اضع في الاعتبار فيما سوف هو قادم عدم تسمية الحقول باسماء محجوزه لدوال الاكسس

شكرا الاخت زهرة

وانتظري رد نهائي بعد تجربة المثال الذي وضعتية في الموضوع المذكور

التجربة نجحت بإكتساح

شكراًُ الاخت زهرة

شكراً جميع الزملاء

اخي العزيز الف شكر لك وجاري التحميل

وجزاك الله خيرا

يا شباب

السطر التالي ما به هل هو لا يعمل بالشكل الصحيح

If KeyCode = 114 Then Me.Txtdate.Text = Now
 Me.Txtdate = Format(Me.Txtdate, "dd/mm/yyyy")

أفيدونا

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

dd/mm/yyyy

اخي الفاضل ابو ساره

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

طبعا انا لست من الشباب ( للمعلومية فقط ) :lol:

بكل تأكيد سوف يعمل الكود وغصب عليه لأنه مقدم من ابو ساره ( يعني ما يبغى لها كلام ) :)

طبعا لا يوجد بالكود الخاص بك اي خطأ او مشكله وقد تم استبدال الكود السابق في المثال بكودك الحالي ويعمل بكامل طاقته النوويه :)

zaDATE.rar

ملاحظة : طبعا الموضوع قديم وقد تم حل المشكله من زمان ولكن الأخ المشارك الجديد nahas نهاس وضع له مشاركه فإرتفع الموضوع هنا .

أختي الغاليه زهره

كنت أظن أن الشباب يطلق على الرجال والنساء معاً هذا خطأ مني المعذرة

اقتباس

بكل تأكيد سوف يعمل الكود وغصب عليه لأنه مقدم من ابو ساره ( يعني ما يبغى لها كلام )

لا لا أنت تبالغين ياما كتبت من الأكواد بعضها يا دوبي تسببت في إيقاف البرنامج كلياً

اقتباس

طبعا لا يوجد بالكود الخاص بك اي خطأ او مشكله وقد تم استبدال الكود السابق في المثال بكودك الحالي ويعمل بكامل طاقته النووي

والله ما سألت إلا لأتأكد بعد ما شفت الكود الذي كتبتيه أعتقدت أن ما أفعله خطأ واستفسرت حتى أتلافى أخطائي

بارك الله فيك أختي الفاضلة

الأخ الكريم ابو سارة السلام عليكم ورحمة الله وبركاته وبعد تعلمنا انه فى نهاية قاعدة IF ان ننهى الكود ب End If ولكن الكود الذىأخى معذرة لإنقطاع الخط نكمل بإأخى معذرة لإنقطاع الخط نكمل بإذن الله تعالى ولكن الكود لم ينتهى كما تعلمنا وقد امنت الأخت الكريمة على ذلك فى الكود الذى كتبته فى المثال السابق فهل من تعليق كى نتعلم السبب فى عدم إنهاء الكود بكلمة end ifولكم منى الدعاء

اقتباس

تعلمنا انه فى نهاية قاعدة IF ان ننهى الكود ب End If فهل من تعليق كى نتعلم السبب فى عدم إنهاء الكود بكلمة end if

اخي الفاضل اتقان

السلام عليكم ورحمة الله وبركاته

وكل عام وانتم بخير

نسمي هذه الحالة IF الشرطية الصغرى عندما ننهي الجملة بشكل مختصر عندما لا يوجد اي تعبير اضافي بعد كلمة Then فلا نحتاج الى قفل الجملة في نهاية الكود بتعبير End IF لأن الجملة تم اكتمالها لأنها اخذت الصيغة ( اذا .... فإن ... ) .

اما اذا اردنا ان نضيف عدة معايير بعد كلمة Then في عدة سطور ففي هذه الحالة يجب ان ننهي الجملة الشرطية بتعبير End IF في نهاية الكود وفي هذه الحالة يكون لدينا متسع من الخيارات لكي نضيف تعبيرات اضافية مثل Else IF او Else وتعني عدى ذلك فيكون في هذه الحالة انهاء الجمل الشرطية بتعبير End IF