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

الردود الموصى بها

قام بنشر

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

Dim DataExp As String

  For Each varItm In SearchList.ItemsSelected
'",  DataExp = DataExp & "[" & Me.SearchList.ItemData([varItm]) & "]
" ' " &  DataExp = "SELECT * FROM Data_Tech WHERE [a1] = ' " & Me.SearchList.Column(0, [varItm]) 
  
Next varItm

Set QFEx = CurrentDb.CreateQueryDef("Qtoexport", DataExp)
DoCmd.OutputTo acOutputQuery, "Qtoexport", acViewPreview
"DoCmd.DeleteObject acQuery, "Qtoexport

searchlist ده الليست فيو او الليست بوكس

data_Tech  ده اسم الجدول عندي في قاعدة البيانات

قام بنشر (معدل)

لا اريد في ملف اكسيل واحد انا كل مشكلتي منحصرة في كود التحديد من الليست بوكس 

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

بيانات التوجبه.rar

تم تعديل بواسطه ahmed_2040
قام بنشر
16 دقائق مضت, ahmed_2040 said:

لا اريد في ملف اكسيل واحد انا كل مشكلتي منحصرة في كود التحديد من الليست بوكس 

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

قام بنشر
3 ساعات مضت, ahmed_2040 said:

اريد ترحيل البينات المحددة في الليست بوكس الي استعلام جديد او الي ملف اكسيل 

والكلام ده مرفق في الملف

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

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

قام بنشر

السلام عليكم 

حضرتك استاذ ورئيس قسم والله 

حضرتك حلتلي مشكلة حيرتني اسبوعين 

الكود ده هو المطلوب بالظبط 

بارك الله فيك 

 

قام بنشر
33 دقائق مضت, ahmed_2040 said:

السلام عليكم 

حضرتك استاذ ورئيس قسم والله 

حضرتك حلتلي مشكلة حيرتني اسبوعين 

الكود ده هو المطلوب بالظبط 

بارك الله فيك 

 

بل انا تلميذ وطالب علم اتعلم من الاساتذة امثالكم 

بارك الله فيك ....

قام بنشر

كل الشكر لك وللمساعدة التي قدمتها الي 

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

مرفق ملف للتوضيح

Untitled.png

بيانات التوجبه نهائي معدل.rar

قام بنشر

مشكلتك تكون في هذا السطر

     DTPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
     curPath = DTPath & "\salah- " & Format(Date, "dd-mm-yyyy") & ".xl'sx"

لم سيتطع التعرف على تنسيق ملف الإخراج xl 

و الصحيح xls  / xlsx

تفضل التعديل

بيانات التوجبه نهائي معدل.accdb

  • Like 1
قام بنشر

يا سلام عليك استاذ وربنا 

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

قام بنشر

بعد التجربة وجدت ان تجهيز ملف الاكسيل بياخد وقت طويل جدا لا نشائة 

قما السبب ؟؟

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information