محمد طاهر

START RUN COMMAND لتفعيل ال Dos Prompt ثم edit c:m.doc فيفتح فى وضع ال EDIT و تكتب فيه ثم تحفظه

الاخ محسن ثبت بالتجربة أن الامثلة تفقد أما صفحات المنتدي فلها نسخ احتياطية و لا مانع من الامثلة (عند الحاجة طبعا ) و لكن الاهم هو أن ننشر و نكتب التفاصيل فضلا عن أن الفائدة تكون اكبر بالتجربة ، أما المثال الجاهز ، ففي رأي أنه آخر حل و مكانه عندما يكون الموضوع …

جرب هذه Function ROUNDTO(MYNO As Double, MyFraction As Double) Dim MYBASE As Double, MYREM As Double MYNO = MYNO * 100 MyFraction = MyFraction * 100 MYREM = MYNO Mod MyFraction 'MsgBox "rem : " & MYREM MYBASE = MYNO - MYREM 'MsgBox "Base : " & MYBASE If MYREM …

لا أعتقد بوجود دالة جاهزة حاولت عمل دالة علي السريع و لم أنجح بعد و ساحاول ثانية قريبا باذن الله

من خصائص مربع النص Format تنسيق Fixed or Standard أو اكتب 0.00

لنفرض انك فى حاجة لاظهار آخر يوم فى الشهر المناظر لأي تاريخ و ليكن التاريخ اسمه Mydate أي اسم الحقل أو اسم مربع النص فمثلا اذا كان موعد سداد قسط معين آخر الشهر فتحسب تاريخ السداد عن طريق الدالة سالفة الذكر ، بعد وضعها فى موديول عام اذا كان استخدامها عاما أو فى…

Private Sub Text5_BeforeUpdate(Cancel As Integer) If (IsNull(Forms![FORM2]![Text5])) Then MsgBox "MSG TEXT", 64, " ERROR MESSAGE" Cancel = True SendKeys "{esc}" Exit Sub End If End Sub او بصفة عامة لوقف الحركة بعد ال ENTER أدوات TOOLS خيارات OPTIONS KEYBOARD M…

ليس فى ال INPUTBOX و لكن أردت ذلك فعليك بعمل فورم صغير لتتمكن من التحكم فيها

استخدم تحرير لمشاركتك السابقة لتري طريقة الكتابة

فى حدث عند الفتح للفورم أو عند أي حدث مناسب للتصميم فى حالة البيانات فى فورم فرعي If Forms![FORMNAME]![SUBFORMNAME].Form.RecordsetClone.RecordCount = 0 Then MsgBox "لا يوجد بيانات", vbCritical, "رسالة تحذير" Cancel = True SendKeys "{ESC}" Exit Sub End If فى حا…

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

مشكور يا طارق و بعد اذنك حاشرحها ;) ;) ;) الفكرة باختصار تتلخص فى ايجاد الشهر التالي فان كان الشهر هو ديسمبر (12) يكون التالي هو واحد و السنة = السنة +1 و الا فالتالي هو رقم الشهر +1 و لا يوجد تغيير فى السنة و بعد الحصول علي الشهر التالي يتم الحصول علي آخر يوم…

جدول الموظفين يكون مربوط بجدول الدورات فى الاستعلام و نوع العلافة اظهر كل محتويات جدول الموظفين ( و يتم تحدديها بالنقر المذدوج علي خط العلافة) ثم تختار من الجدولين ما تريد أن يظهر من حقول وفي خانة المعايير أو Criteria لرقم الكورس أو اسمه ( و يفضل الرقم) تكتب I…

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

If (IsNull(Forms![c_data]![COPY_NM])) Then MsgBox "يجب ادخال مسار الملفات ", 64, " رسالة خطأ" Forms![c_data]![COPY_NM].SetFocus Exit Sub End If

بالنسبة للطريقة الثانية ان كنت تريد ادخال بداية الاسم فقط فاكتب Like [ENTER NAME] & "*" بالنسبة لطريقة الاخ ماكس فهي تعمل بنجاح EXP1: InStr([NAME];[ENTER NAME OR PART])

خبرتي فى الاكسس أكبر بكثير منها فى البيزيك و السؤال الاول مشترك أما الباقي فلا و أتركهم لمن هم أدري مني

توجد خاصية من خصائص مربع النص فى تبويب تنسيق FORMAT اسمها READGIN ORDER أي اتجاه القراءة فغيرها أيضا اختار نوع التنسيق PERCENT و عدد الارقام العشرية 2

طريقة جميلة و هذه أخري فى خانة المعايير cRITERIA لحقل الاسم ضع الجملة الآتية Like "*" & [ENTER NAME] & "*" و يمكنك اختيار الفرز أم لا كما تريد

'للكتابة الي ملف '======================================================= 'نكتب كلمة السر فى مربع نص اسمه 'pASS 'وننفذ الامر من زر اسمه 'AUTHO_P ' لنفرض اسم ملف النص هو 'mm.txt Private Sub AUTHO_P_Click() Rem If Not IsNull(Trim(Me![PASS])) Then Dim fs, a, x Se…