• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

alaaaboulela

اعضاء
  • عدد المشاركات

    359
  • تاريخ الانضمام

  • تاريخ اخر زياره

مشاركه بواسطة alaaaboulela


  1. السلام عليكم

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

    وهل الافضل والاسهل اضافة سجل من نموذج ام استعلام  أو جدول مع شرح الفروقات والتفضيلات لو تكرمتم ..

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

    اضافة سجل من نموذج في نموذج اخر بمجرد الضغط عليه.rar

    0

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

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

    اما لو في حل للمشكلة فسأنتظره معك ..

    0

  3. السلام عليكم

    تم بفضل الله حل المشكلة واصلاح الكود

    اليكم الكود الصحيح

    Private Sub code_AfterUpdate()Me.item = DLookup("[item]", "itemcard", "[code] = " & [code])Me.salesprice = DLookup("[salesprice]", "itemcard", "[code] = " & [code])End Sub

    ملحوظة الكود وجدته ضمن ابداعات ا/ جعفر 

    1

  4. السلام عليكم

    الاستاذ / خضر

    مشكور على الفيديو الرائع ..

    قمت بتطبيق الدالة على ملف بنفس المسميات ولكن يبدو ان هناك شيء خطأ في الملف او الدالة 

    برجاء التكرم منكم او احد الاساتذة الافاضل  بالتعديل على الملف ...

    salesdlookup.rar

    0

  5. السلام عليكم

    في الإكسيل ليس هناك مشكلة يمكنك حل المشكلة من خلال دوال 

    roundup التقريب لأعلى رقم صحيح او جزء من عشرة او مائة او الف

    rounddown التقريب لأقل رقم صحيح او جزء من العشرة والمائة والالف 

    أما الأكسيس فجرب الدالتين التاليتين - منفوووووول من موقع اجنبي 

    Dim numvalue As Double numvalue = [Value]  'where [Value] is the field name on the form containing the value to be rounded.  'Checks If the value has anything after the decimal point 'if it does then stop the routineIf (numvalue - Int(numvalue)) = 0 ThenExit Sub   'otherwise, remove the decimal part of the value and add 1 to it to round it up.Else     numvalue = Int(numvalue) + 1     MsgBox numvalue ' display the new value          '[Value] = numvalue     ' remove the ' from in front of the [Value] to make it the rounded up number     End If

    الدالة الثانية - الانسب لك بعد التعديل عليها

    'Method 2 suggested by MDmackillop. Using the Round function. 'set the number variable as a double precision number.Dim numvalue As Double numvalue = [Value]  'where [Value] is the field name on the form containing the value to be rounded.  'Checks If the value has anything after the decimal point 'if it does then stop the routineIf (numvalue - Int(numvalue)) = 0 Then Exit Sub   'otherwise, add 0.05 to the value which will force the round function to round it up.Else     numvalue = Round(numvalue + 0.05)     MsgBox numvalue ' display the new value          '[Value] = numvalue     ' remove the ' from in front of the [Value] to make it the rounded up number     End If 
    0