Shivan Rekany

على عيني يا سيدي لكن غدا ان شاء الله راح اشرح لك بالصور لان الان انا عم استخدم موبايل تحياتي

اتفضل لكن ما عرفت ما هو المشكلة استعلام سكان 2 مع رقم 3 !! اذا ما تم الوصول الى النتيجتك غدا ان شاء الله راح اشوفه لان ما عندي وقت اليوم Test (8).rar

اتفضل ما تريد Private Sub Form_Load() Dim Re As Integer Dim NKhram As Integer Re = DCount("[EmpName]", "empt") For i = 1 To Re If Me.ÇäÊåÇÁ_ÇáÇÞÇãÉ + 21 <= Date Then NKhram = DateDiff("d", Me.ÇäÊåÇÁ_ÇáÇÞÇãÉ, Date) Me.ÊßáÝÉ_ÇáÇÞÇãÉ = 1220 If NKhram > 90 Then Me.ÇáÛÑÇãÇÊ = (NKhram - 90) * 10 DoCmd.GoToRecord , , acNext Else Me.ÇáÛÑÇãÇÊ = 0 DoCmd.GoToRecord , , acNext End If ElseIf Me.ÇäÊåÇÁ_ÇáÇÞÇãÉ + 21 > Date Then Me.ÊßáÝÉ_ÇáÇÞÇãÉ = 0 DoCmd.GoToRecord , , acNext End If Next i End Sub لكن هناك ملاحظة من الاحسن ان يكتب اسماء الحقول والمربعات النصية بالانكليزية او باللاتينية 123.rar

اتفضل لا يظهر الخطأ حين اذا تاريخ الترقية بيكون فارغة Test (8).rar

لا داعي للشكر علواجب اخي الحبيب تحياتي

في حدث بعد تحديث لرقم القيد واذا تريد ارفع قاعدة بياناتك احنا راح نعمل لك المطلوب ان شاء الله

اليك ما طلبت مع تقدير مدرسة مثال حفظ من مربع نص في نموذج إلى الجدول.rar

اهلا بك اليك هذا الكود me.اسم_الموظف = Dlookup("[اسم_الموظف]","mytable","[رقم_القيد]="& me.رقم_القيد ) و اسف ما نكدر نساعدك اكثر لانك ما ارفقت قاعدة بياناتك بدل ماي تابل ب جدول الموظفين

اخي ريباز اتفضل ما طلبت لكن هناك ملاحظة من الافضل ان نكتب كل الاسماء المربعات النصية و الليبلات بالانكليزية اي لاتينية و نبدأ بالحرف وليس الرقم ملفك بعد تعديل Kurdstan.rar

اتفضل كما تريد حين تفتح النموذج راح يعمل ما تريد 123.rar

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

عفوا اخي على التأخير الرد لكن كان اليوم الجمعة وما افتح النيت كثيرا فيه اخي فتح نموذج الفاتورة في وضع تصميم وحدد رقم الصنف وفي خحدث بعد تحيدث اكتب هذا الكود Me.نص15 = Me.رقم_الصنف.Column(2) لكن انا عندي ملاحظة الجدول الفاتورة ما بها حقل اسم الصنف وما عرفت السبب وتريد بيكون في نموذج الفاتورة اسم الصنف وفي هذه الحالة ما يتم الحفظ الاسم الصنف في قائمة الفاتورة واليك ملفك بعد اضافة الكود الاعلاه فقط 10 (1).rar

وجزاك الله كل خير هل وصلتك المطلوب

لا اخي في نفس الاستعلام وفي عمود العمر وفي نفس الصف اللي احنا كتبنا الكود راح تكتب اكبر من 30 30<

اي ممكن لكن انتظرني حتى بعد يوم الجمعة لاني انا بستخدم موبايل وما افتح نيت كثيرا مع تحياتي

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

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

اخي العزيز ارفق قاعدة بياناتك وان شاء الله راح اعمل لك المطلوب لكن بعد غدا لان غدا يوم الجمعة ما افتح النيت كثيرا

اخي الكريم كما قلت لك احذف كود الحفظ وخليها اللي في مشاركتي السابقة On Error Resume Next DoCmd.GoToRecord , , acNewRec واكتب اي شي حين تضغط على حفظ راح يعطيك رسالة واحدة فقط او اذا تغلق النموذج هم راح ينطيك رسالة واحدة جرب ووافيني بالنتيجة

ما عندي اوفيس 64 لكن احاول اجرب او اعمل المطلوب وانطيك لكي تجرب عليه لكن اليوم تقريبا خلاص دوامي وغدا يوم الجمعة انا ما افتح النيت كثير يعني يوم السبت ان شاء الله مع تقدير

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

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

رخصة من استاذنا القدير ابو حسين ممكن توضيح اكثر ما تريد في الحقيقة انا فما فهمت الموضوع انت استخدمت دالة sum لأي شي للحروف مع الارقام ؟ او تريد ان تتعدد اي تستخدم دالة ديكوانت هل ممكن توضيح لنا ما تريد و في اي حالة تريد ذلك مع تقدير

ما فهمت قصدك "للنوت 64" اخي العزيز كريمو ما عملت شي انا استوردت ثلاث وحدات نمطية من برامج اخر لاستاذتنا ام عهود وكتبنا في زر التصغير هذا الكود Call fSetAccessWindow(0) Dim strPicPath As String 'strPicPath = Application.CurrentProject.Path & "\" & "access.ico" Call sHookTrayIcon(Me.hwnd, "Aziz", strPicPath) مع تقدير

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