ازهر عبد العزيز

السلام عليكم ... لدي قاعدة بيانات تحوي نموذجين يوجد في النموذج الاول زر عند الظغط علية ينغلق ويفتح النموذج الثاني و توجد صورة داخل النموذج الاول ما اريدة عند الظغط على زر في النموذج الاول يكون هناك مدة زمنية وليكن 4 ثواني قبل الانتقال للنموذج الثاني واريد قبل الانتقال الى النموذج الثاني تختفي الصورة الموجدة في النموذج الاول بشرط يكون الاخفاء مع بداية الظغط على الزر time.accdb

مسفر

صالح حمادي شكرا جزيلا

السلام عليكم ...... لدي نموذج يحتوي على صورة مخفية ويحتوي على مربعين نص اريد اظهار الصورة المخفية بشرط اذا تطابق النص الموجود في المربعين اي عند وجود مثلا رقم 7 في كلا المربعين فان الصورة تكون مرئية اما اذا كان المربعان فارغان او لايتشبهان تكون مخفية new.accdb

اخي kingcode ممكن تشرح الطريقة بصراحة ما عرفت اعملها وياريت طبقها على النموذج الي بالمرفقات وجزاء الله كل خير

السلام عليكم .... لدي قاعدة بيانات تحوي نموذجان نموذج 1 ونموذج 2 وفي النموذج 1 ييوجد زر 1 وزر 2 اريد عندما اضغط على زر 1 يعمل زر 2 على ان تكون الطريقة من خلال منشئ الماكرو وشكرا لكم New Microsoft Access قاعدة بيانات (2).accdb

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

شكرا لكم مسفر و ابا جودى

السلام عليكم لدي نموذج يحتوي على صورتان صورة رقم واحد وصورة رقم اثنان ويوجد زر اريد ان اخفي صورة رقم اثنان وعندما اظغط على الزر الموجود تختفي صورة رقم واحد وتظهر صورة رقم اثنان New Microsoft Access قاعدة بيانات (2).accdb

الاخ ابا جودى اردت صوت محدد من ملف معلين بجوار قاعدة البيانات

السلام عليكم ..... كيف اضيف صوت عند النقر على زر في النموذج New Microsoft Access قاعدة بيانات (2).accdb

ماذا اقول لك ... kanory انت حليت المشكلة بدون استعلام وبدون جداول

اخي جرب هذا الكود وبالتوفيق Private Sub Delete_Click() If MsgBox("åá ÊÑíÏ ÍÐÝ åÐå ÇáÈíÇä", vbOKCancel + vbCritical + vbMsgBoxRight, "ÍÐÝ ") = vbOK Then DoCmd.SetWarnings False DoCmd.RunCommand acCmdDeleteRecord DoCmd.SetWarnings True End If End Sub Private Sub Form_BeforeUpdate(Cancel As Integer) If Not (Me.NewRecord) Then If MsgBox("åá ÊæÏ ÍÝÙ ÇáÊÚÏíá ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÍÝÙ ÇáÊÛííÑÇÊ ¿") = vbNo Then Me.Undo End If Else If MsgBox("åá ÊæÏ ÍÝÙ ÇáÓÌá ÇáÌÏíÏ ¿", vbQuestion + vbYesNo + vbDefaultButton1, "ÓÌá ÌÏíÏ") = vbNo Then Me.Undo End If End If End Sub

السلام عليكم ..... لدي قاعدة بيانات تحوي على نموذج اريد ان اعرف عدد مرات الدخول لهذا النموذج اي ان اول شخص يدخل لهذا النموذج يسجل رقم واحد في مربع الموجود في النموذج وعند دخول مرة ثانية يكون الرقم اثنان وهكذا يزداد كل مرة يتم بها الدخول وشكرا لكم يوجد ملف بالمرفقات للتوضيح New Microsoft Access قاعدة بيانات (2).accdb

السلام عليكم اخواني ..... اريد ان اعرف كيفية حذف مشاركة لي في المنتدى

ابا جودى @

الاخ ابا جودى كيف اضع باسورد على الاكواد

اخي Barna ان من يستخدم قاعدة البيانات موظفين ولا نريدهم ان يستخرجوا جميع البيانات الموجودة في قاعدة البيانات عن طريق الاستيراد

السلام عليكم لدي قاعدة بيانات تحوي معلومات سرية كيف استيطع منع استيراد الجداول منها يوجد مثال في المرفقات New Microsoft Access قاعدة بيانات (2).accdb

السلام عليكم .... قمت بتصميم قاعدة بيانات وعندما ارت ان احفظها باسم اعطاني خيرات من ظمنها حفظ بامتداد accde او accdt اريد ان اعرف ماهو الفرق بين الصيغتين وايهما افضل

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

الاخوة kanory و ابا جودى لم تعمل لدية لا اعرف السبب هل بسبب كوني استخدم اكسس 2016 علما اني طبقت ملاحظتكم بالتفصيل ....

الاخ kanory اين او كيف احدد مسار الملف

السلام عليك اخي أبو آدم شكرا على المجهود الكبير ولكن عندما طبقت المثال المرفق من قبلك اشتغل معي بشكل طبيع ثم ظهرت لي هذة الرسالة تجدها بالمرفقات .

شكراا استاذ kanory