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

نجوم المشاركات

  1. kkhalifa1960

    kkhalifa1960

    الخبراء


    • نقاط

      3

    • Posts

      2223


  2. Foksh

    Foksh

    أوفيسنا


    • نقاط

      3

    • Posts

      4288


  3. منتصر الانسي

    منتصر الانسي

    المشرفين السابقين


    • نقاط

      1

    • Posts

      1172


  4. ابوخليل

    ابوخليل

    أوفيسنا


    • نقاط

      1

    • Posts

      13455


Popular Content

Showing content with the highest reputation on 12/04/25 in all areas

  1. تفضل أخي الكريم / ملفك بعد التعديل وتوسيع النطاق في العمل . وأرجو منك الإهتمام بمواضيعك وأغلاق ما يستحق الإغلاق إشعاراً للقارئ بأن الموضوع قد تم حله والإجابة عليه . فتفاعلك يعكس فكرك . UnMatched123.zip
    1 point
  2. مهو علشان أعرف أفكر وانا بفطر، شجعنا بالهدف المنشود لنحدد الوسيلة التي سنسير بها 😉 . على العموم ، بالنسبة للمطلوب الأول هذه وجهة نظري بالتعديل :- Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim rst As DAO.Recordset2 Dim strFilePath As String Set rs = CurrentDb.OpenRecordset("SELECT progIcon FROM tblEnDc") If Not rs.EOF Then Set rst = rs.Fields("progIcon").Value If Not rst.EOF Then strFilePath = CurrentProject.Path & "\" & rst.Fields("FileName").Value If Dir(strFilePath) <> "" Then Kill strFilePath rst.Fields("FileData").SaveToFile strFilePath RelinkIsIco = strFilePath End If rst.Close: Set rst = Nothing End If rs.Close: Set rs = Nothing End Function مطلوب المسار الوهمي بعتمد تنفيذ فكرته على ماهية حاجتك له وغايتك وهدفك منه .
    1 point
  3. صباح الفل اخي فادي الغاية هي الوصول الى الهدف لا تتهرب .. سوف امهلك الى ما بعد الافطار
    1 point
  4. الدالة تصبح Function RelinkIsIco() As String Dim rs As DAO.Recordset Dim rsA As DAO.Recordset2 Dim fPath As String Dim tempPath As String ' فتح السجل Set rs = CurrentDb.OpenRecordset("SELECT progIcon FROM tblEnDc") If Not (rs.EOF And rs.BOF) Then Set rsA = rs.Fields("progIcon").Value ' Recordset خاص بالمرفقات If rsA.RecordCount > 0 Then rsA.MoveFirst ' تحديد مسار مؤقت في Windows Temp tempPath = Environ$("TEMP") & "\" & rsA!FileName ' استخراج الملف من المرفقات إلى المسار المؤقت rsA!FileData.SaveToFile tempPath RelinkIsIco = tempPath End If rsA.Close End If rs.Close Set rs = Nothing End Function واستدعاؤها Private Sub cmdShar_Click() Me.img1.Picture = RelinkIsIco() End Sub
    1 point
  5. اخي الكريم ، انت الآن تنتقل الى موضوع جديد ، لذا راجياً منك إغلاق هذا الموضوع لتحقيقه المطلبين الأولين ، وافتح موضوع جديد بهذا الطلب ، بحيث يكون عنوانه مثلاً:- إضافة السجلات الغير موجودة من جدول الى جدول آخر
    1 point
  6. مرفق لك المثال بعد استخدام ماكرو البيانات جرب تعديل حقلSlabs الي في جدول Receiving_Bundle وشاهد كيف ستتغير قيمة الحقل Slabs_in_Bundle في جدول SAW حيث يقوم ماكرو البيانات بما يشبه الـ Trigger في انظمة قواعد البيانات الكبيرة مثل Sql Server و Oracle وغيرها ولكن المشكلة الوحيدة هي ان هذا النوع من الماكرو لن يعمل الا مع اكسس 2010 ومابعده (صراحة غير متأكد من انه يعمل مع اكسس 2007) والاكيد انه لن يعمل مع ماقبل 2007 تحياتي Database.accdb
    1 point
  7. على هيئه ماسج أم بالفورم أم ....... وضح من فضلك .
    1 point
  8. تفضل استاذ @RAIANESAMI طلبك حسب ما فهمت بالمرفق . ووافني بالرد . DDFinding Differences.rar
    1 point
×
×
  • اضف...

Important Information