ناقل

اصنع زر في النموذج وضع فيه هذا الكود بارك الله فيك ...... بعد اختيار السجلات اضغط على الزر ليفتح لك استعلام وبه السجلات المختارة On Error GoTo Err_cmdRunQuery1_Click Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim strSQL As String, strWhere As String Dim i As Integer Set db = CurrentDb strSQL = "SELECT Data_Tech.* FROM Data_Tech " strWhere = "Where a1 IN( " For i = 0 To SearchList.ListCount - 1 If SearchList.Selected(i) Then strWhere = strWhere & "'" & SearchList.Column(0, i) & "', " End If Next i strWhere = Left(strWhere, Len(strWhere) - 2) & ");" strSQL = strSQL & strWhere db.QueryDefs.delete "qryMyQuery" Set qdf = db.CreateQueryDef("qryMyQuery", strSQL) DoCmd.OpenQuery "qryMyQuery", acNormal, acEdit Exit_cmdRunQuery1_Click: Exit Sub Err_cmdRunQuery1_Click: If Err.Number = 3265 Then Resume Next Else MsgBox Err.Description Resume Exit_cmdRunQuery1_Click End If تفضل مرفقك بعد التعديل عليه واضافة الزر .... طبق اعلمنا بالنتيجة ..... بيانات التوجبه (1).rar

لا تحتاج معذرة بين الاخوة ولكن انظر الصورة .... بارك الله فيك

مين سعيد ...... !!!!!😂😂😂😂

قصدق يكون ملف الاكسل متواجد على سطح المكتب والبرنامج في مكان اخر ؟؟؟؟ لان البرنامج الذي لديك هو نقل البيانات الى الملف وليس تكوين ملف جديد ّ!!!!! على كل حال جرب وضع ملف الاكسل على سطح المكتب والبرنامج في مكان اخر ..... تفضل التعديل ... aaa.rar

طيب حددت بعدين ؟؟؟؟ اشرح بالكامل رجاءا

هذا الموضوع ممكن يفيدك ......

نعم يصلح ولكن انتبه جيدا للتعديلات !!!!!!

هل تريد تصدير الصفوف المختارة في ملف اكسل واحد ..... ام تريد ترحيل كل صف الى ملف اكسل مستقل ؟؟؟؟ ( الرجاء ارفاق ملفك )

عدل مصدر النموذج الرئيسي والفرعي

وبارك فيك ز...

تم يعطيك العافية ..................................

اشكرك استاذي الفاضل ولن ظهرت لي هذه الرسالة .....

تفضل ...... تصدير للاكسيل.rar

اخي الكريم جمع ام عدد (يعني كم عدد تكرار) هناك فرق بين الجمع وعدد التكرار لانه التبس علي .... بارك الله فيك

وهذه مشاركة مع استاذنا الفاضل عبداللطيف .... Copy_.accdb

تفضل ..... nabil.accdb

نعم اكتب الرسالة في الحدث .... وعند فتح النموذج تفتح الرسالة اولا ثم عند الاغلاق يفتح النموذج

ضع نص الرسالة في حدث عند فتح النموذج

ممكن مرفق مصغر للمطلوب للتطبيق

وهذه طريقة اخرى حسب حقول الجدول المعطى رقم ونص وتاريخ ..... تفضل ناقل.rar

ممكن مرفق بسيط لفهم المطلوب

جرب كدة ....... DoCmd.OpenForm "Form1", , , "TDes LIKE ""*" & Nz(Me.SB_Num.Value, "0") & "*"" or " _ & "TName LIKE ""*" & Nz(Me.SB_Name.Value, "0") & "*"" or " _ & "TName LIKE ""*" & Nz(Me.SB_Name.Value, "") & "*"" and TDes LIKE ""*" & Nz(Me.SB_Num.Value, "") & "*"""

هذا الموضوع يفيدك كثير ...

ما في فرق ولكن هذه اوامر وتلك اوامر فقط مثل استخدام الامر عن طريق الكود أو الماكروا .... وكل الدروب تؤدي الى عكا

جرب كده ..... asd.accdb