اذهب الي المحتوي
أوفيسنا

ليث ليث

02 الأعضاء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    80

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

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

 نوع المحتوي 

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

    Datasheet form

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم

    لدي فورم اعمل عليه Datasheet form في المرفق وكما هو مؤشر عليه باللون الاحمر عند تحديد سطر في هذا الفورم فان السطر بشكل تلقائي يتم تلوينه باللون الازرق هل بالامكان الغاء هذا اللون او تغييره
    الامر الثاني هل استطيع اخفاء علامة التحديد المؤشر عليها بالدائرة السوداء

    تحياتي

    Screenshot 2021-12-15 211349.jpg

    مساعدة حول الكومبوبوكس

    في قسم الأكسيس Access

    قام بنشر

     

    19 ساعات مضت, kanory said:

    استبدل مصدر الصف في الكمبو بهذا  

    
SELECT *  FROM (SELECT Table1.item, Table1.main_unit FROM Table1)  AS kan UNION SELECT * FROM (SELECT Table1.item, Table1.med_unit FROM Table1) AS kan1;

     

    صديقي هل بالامكان وضع هذه الجملة في المثال المرفق بدون ظهور اسم المادة
    اريد ان تظهر الوحدات فقط
    حاولت ولم افلح

    حفظ ملف في ملف متغير

    في قسم الأكسيس Access

    قام بنشر

    السلام عليكم في الملف المرفق نموذجين

    النموذج الاول form_assestant يتم فيه ملا الحقول وعند الضغط على الزر يتم انشاء فولدر ويقوم بفتح الفورم الثاني details 

    عند فتح الفورم detail وتبعئة البيانات والضغط على زر حفظ اريد عند الضغط على زر حفظ ان يتم حفظ الملف في الفولدر الذي تم انشاوه

    علما بان الفولد اسمه متغير يعتمد على الحقول

     

    2 - Copy.accdb

    web browser control

    في قسم الأكسيس Access

    قام بنشر

    12 ساعات مضت, أبو عبدالله الحلوانى said:

    السلام عليكم 

    ممكن حضرتك تصور رسالة الخطأ وترفعها هنا

    المرفق يعمل لدي بشكل جيد!

    وهل الخطأ يظهر بالمرفق بالأعلي أم عند التجربة علي برنامجك؟ 

    صديقي في البداية كان يظهر ان هناك خطا ولكن بعد المحاولة لعدة مرات اصبح يعمل ولكن عند الحفظ اذهب الى المجلد الذي حفظت به لا اجد شيئا اي انه لابحفظ الملف

    ارجو المساعدة لاني مضطر كثيرا الى هذا الملف ولم افلح في الوصول الى حل 

    Private Sub Command48_Click()
    Dim file As Office.FileDialog
    Dim filepath As String

    Set file = Application.FileDialog(msoFileDialogSaveAs)
    With file
           .Title = "save pdf"
           .AllowMultiSelect = False
           .InitialFileName = Me.ID_contract
           
           
           
           If .Show Then
            filepath = _
    Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
    Call MsgBox(filepath, vbInformation, "Save Path")
            Else
            Exit Sub
           End If
    End With

    End Sub

    هذا الكود ايضا يعمل ونظهر نافذة الحفظ لكنه ايضا لايحفظ شيئ

×
×
  • اضف...

Important Information

  I accept