UserUser2

محتاج اعمل خصم مئوي بعد تجميع حقل المطلوب + الاضافى + الرسوم بعد كتابه نسبه الخصم فى تيكست الخصم يظهر قيم الخصم ثم الحساب النهائي بعد الخصم Fd.accdb

لا كل المطلوب انه يكتب فى ال Text18 كلمه High بشكل تلقائى لو احتوى على اي جزء من الكلمه

اشكرك على تعبك من فضلك ممكن تطبقه على الكود المرفق فى الملف If [Text16].Text Like "*Over*" Or [Text16].Text Like "*>*" Or [Text16].Text Like "*Positive*" Then [Text18] = "HIGH" End If If [Text16].Text Like "*LESS THAN*" Or [Text16].Text Like "*<*" Or [Text16].Text Like "*Negative*" Then [Text18] = "LOW" End If

هل ممكن استخدام داله like داخل الكود هذا هو المطلوب

وعليكم السلام شكرا لردك المستخدم مش هيكتب الكلمه بالظبط مثلا هو كتب Positi بدل ما يكتب Positive او less بدل less than اللى محتاجه لو الكلمه تحتوى على اي مقطع من الحروف المكتوبه ينفذ الامر

UP @ابو جودي استاذ @jjafferr استاذ @ابوخليل استاذ

كيفيه استخدام داله Like داخل الكود محتاج بعد التحديث لحقل Text16 لو يحتوى على اى مقطع من الكلمات الموجوده داخل الكود ينفذ الامر مثل Less او THEN بدل الكلمه كامله مرفق مثال ABO.mdb

ممكن مثال من فضلك

محتاج كود يلغى ظهورها

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

كيفيه الغاء ظهور هذا النافذه بالكود

اشكرك بعتذر عن التاخير هجرب وارد على حضرتك

شكرا لتعبك اكيد جربت الجزء اللى حضرتك اشرت اليه كل دوره ان عند وجود 00:00:00 يغير لون الحقل

ليس له علاقه

المشكلة مش فى الصوت الساعه بتفضل شغالة مش بتقف بتكمل بالسالب مثل الصورة بالاعلى

نفس المشكلة

عند الوصل للوقت المطلوب تظهر الساعه بالشكل المرفق فى الصورة ولا يصفر مرفق الكود المستخدم Private Sub Form_Timer() Dim Hours As String Dim Minutes As String Dim Seconds As String Dim MilliSec As String Dim msg As String Dim ElapsedMilliSec As Long ElapsedMilliSec = Me.Text15.Value - (GetTickCount() - StartTickCount) + _ TotalElapsedMilliSec Hours = Format((ElapsedMilliSec \ 3600000), "00") Minutes = Format((ElapsedMilliSec \ 60000) Mod 60, "00") Seconds = Format((ElapsedMilliSec \ 1000) Mod 60, "00") MilliSec = Format((ElapsedMilliSec Mod 1000) \ 10, "00") Me!ElapsedTime = Hours & ":" & Minutes & ":" & Seconds & ":" _ & MilliSec If Me!ElapsedTime = "00:00:00:00" Then Me.[test Name].BackColor = RGB(225, 0, 0) PlaySound Application.CurrentProject.Path & "\sounds\test.WAV" DoCmd.Restore TotalElapsedMilliSec = TotalElapsedMilliSec + _ (GetTickCount() - StartTickCount) Me.TimerInterval = 0 TotalElapsedMilliSec = 0 Me!ElapsedTime = "00:00:00:00" Me!btnStartStop.Caption = "start" Me.btnReset.Enabled = True End If

محتاج الكود يتنفذ على التقرير ايضا من فضلك

ممكن تنفيذه من فضلك على المثال المرفق بالاعلى @ابوبسمله

شكرا لوقت حضرتك الكود مفيش فيه شرط كود الاختبار (testcode) بيعرض اخر نتيجة وفقا لــ ID فقط وكيفية تنفيذها فى التقرير last result_1.accdb

القيمه هتظهر فى الفورم فى خانه اخر نتيجه last result.accdb

هيكون "5"

.... كيفية تنفيذ ذلك