اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

amrdipo2003

02 الأعضاء
  • Posts

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

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

مشاركات المكتوبه بواسطه amrdipo2003

  1. Just now, صابر بصير said:

    معلش يافندم هو حضرتك عملت ايه 
    ايه التغيير اللي تم في البرنامج ؟؟ @amrdipo2003

    حضرتك معملتش حاجة انا اديت 50 ج لشهر 1 60 ج شهر 2 70 ج شهر 3 فالجدول

    حضرتك كنت مدى نفس الاجر لشهر 1 و 3 عشان كده كان بيجيب نفس الاجر

  2. قم بعمل استعلام به كل البيانات وقم بعمل فورم به حقول نص تحتوى على اسماؤ المتغيرات المطلوبة (الاسم  و الدرجة والمرتب وهكذا) فى الاستعلام اعمل انشاء وضع اسف كل حقل حقل الفورم المنش مسبقاً سيتم طباعة التقرير عند الاختيار من الفورم

    جرب كده ده حط رقم 1 والاسم mohamed وشوف النتيجة

     

    Database2.rar

    • Like 1
  3. يتم عمل حقل فى جدول فاتورة المشتريات باسم trhel نوعه yes/no القيمة الافتراضية no 

    2- يتم انشاء نموزج فواتير المبيعات ويتم عمل حدث عند الخروج بجعل قيمة الحقل ترحيل الى نعم ثم invisible 

    3- يتم وضع زر تعديل الفاتورة ويتم وضع حدث عند النقر input box   برجاء ادخال كلمة المرور عند ادخال الكلمة صحيحة يتم تغيير قيمة الحقل ترحيل الى no

    فيتم عمل التعديل

  4. نعم يتم عمل حقل يسمى يالترحيل checkbox عند الخروج من شاشة الفواتير يتم عمل تفعيل لهذا الحقل ويتم الخروج من شاشة تسجيل الفاتورة ويتم عمل invisible للحقل وعند الرجوع للتعديل فى الفاتورة يتم خروج مربع نصى يطالب بادخال كلمة السر لارستجاع checkbox  للتعديل 

    • Like 1
  5. السلام عليكم ورحمة الله 

    لدى جدول به ثلالث اعمدة 1- اسم الموظف 2- كود الوردية 3- فارغ

    اريد عمل وحدة نمطية تقوم بالأتى:- عندما يكون كود الوردية 3 ثم الذى يليه 1 فقط

    يقوم الموديول بتحديث العمود الثالث الفارغ بقيمة 1 امام كود الوردية 3 و 1 الذى يليه فقط 

    تقسيم الاسم1.rar

  6. Option Compare Database

    Public Function HorizontalName(fld2 As Variant) As String

       Dim SQLx, Hname As String
       Dim rs As DAO.Recordset

        SQLx = "select q1.kind ,q1.dec from q1 order by q1.[kind],q1.A_no;"

       Set rs = CurrentDb.OpenRecordset(SQLx, dbOpenSnapshot)
           rs.MoveFirst
        Do While Not rs.EOF
       If rs!kind = fld2 Then

    Hname = Hname & "¡" & rs!Dec
    End If
           rs.MoveNext
             Loop
         

       If Hname <> "" Then
        HorizontalName = Right(Hname, Len(Hname) - 1) 
        Else
        HorizontalName = Hname
        End If
        Set rs = Nothing

    End Function

     

×
×
  • اضف...

Important Information