خطا في كود

[khasem]

السلام عليكم 

مانوع الخطأ الذي يظهر في هذا الكود مع تقديري واحترامي

 

[Gamal.Saad]

File Dialog يحتاج لاضافة  Reference :

MicroSoft Office 14 Object Library

ورقم 14 هو اصدار الأوفيس ويتغير حسب ما لديك بنظام التشغيل

[khasem]

6 hours ago, Gamal.Saad said:

File Dialog يحتاج لاضافة  Reference :

MicroSoft Office 14 Object Library

ورقم 14 هو اصدار الأوفيس ويتغير حسب ما لديك بنظام التشغيل

هذا هو الكود استاذ جمال 

Dim varItem As Variant
    Dim strPath As String
    Dim objFilePicker  As FileDialog
    Dim db As Database
    Dim rst As DAO.Recordset
    Dim strUnitNumber As String
    
    Set db = CurrentDb()
    Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker)
    
    With objFilePicker
        'Setup file dialog
        .AllowMultiSelect = False
        .ButtonName = "Select"
        .InitialView = msoFileDialogViewList
        .title = "Select File"
        
        'add filter for all files
        With .Filters
         .Clear
         .Add "All Files", "*.mdb,*.accdb,*.xlsx"
        End With
        .FilterIndex = 1
        'disply dilog boxe
        .Show
    End With
    
    If objFilePicker.SelectedItems.Count > 0 Then
        
        m_strFileName = objFilePicker.SelectedItems(1)
        Me.txtImportFile = m_strFileName

[أبوبسمله]

مشاركه مع اخى واستاذى @Gamal.Saad جزاه الله كل خير 💐

اخى الفاضل @khasem ما هو اصدار الاوفيس الذى لديك ؟

سيتم استدعاء المكتبه الذى اشار الاستاذ جمال اليك عليها كالتالى وتختلف من اصدار لاصدار يعنى فوق 14 ولدى 16 لان الاوفيس لدى 2016

 

ويمكن بدل استدعاء المكتبه

Dim objFilePicker  As FileDialog

Dim objFilePicker  As object

بالتوفيق اخى

[khasem]

1 hour ago, أحمد الفلاحجى said:

مشاركه مع اخى واستاذى @Gamal.Saad جزاه الله كل خير 💐

اخى الفاضل @khasem ما هو اصدار الاوفيس الذى لديك ؟

سيتم استدعاء المكتبه الذى اشار الاستاذ جمال اليك عليها كالتالى وتختلف من اصدار لاصدار يعنى فوق 14 ولدى 16 لان الاوفيس لدى 2016

 

ويمكن بدل استدعاء المكتبه

Dim objFilePicker  As FileDialog

Dim objFilePicker  As object

بالتوفيق اخى

اساتذتي الكرام 

الاستاذ جمال والاستاذ احمد الفلاحجي 

لم تضبط معي عمليه الاستيراد

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

 

غياب 2020.rar

[Barna]

جرب الملف ....

 

BA.mdb

[khasem]

23 minutes ago, Barna said:

جرب الملف ....

 

BA.mdb 1.22 MB · 0 downloads

اشتاذي الفاضل

السلام عليكم 

المفروض الاسماء تاتي الى جدول    

Tablex            وليس     Table1 

كما في الصوره

ما الفائدة من وجود  الجداول 

    Tablex        ,          Table

تم تعديل يونيو 6, 2020 بواسطه khasem

[Barna]

6 دقائق مضت, khasem said:

اشتاذي الفاضل

السلام عليكم 

المفروض الاسماء تاتي الى جدول  

Table1

كما في الصوره

ما الفائدة من وجود  الجداول 

    Tablex        ,          Table

انا لم اتدخل في الكود وانما تعديلي للمشكلة الموجودة في بداية موضوعك أخي الكريم .... هذا هو كودك وفعله .....

16 ساعات مضت, khasem said:

السلام عليكم 

مانوع الخطأ الذي يظهر في هذا الكود مع تقديري واحترامي

 

 

[khasem]

4 minutes ago, Barna said:

انا لم اتدخل في الكود وانما تعديلي للمشكلة الموجودة في بداية موضوعك أخي الكريم .... هذا هو كودك وفعله .....

 

استاذنا الفاضل

انا مشكلتي في الكود لان لم يعمل معي

    كذلك وجدت جدولين اضافيين هما 

   Tablex    و    Table              

تم تعديل يونيو 6, 2020 بواسطه khasem

[Barna]

الكود يعمل معي في الملف المرسل لك .... هل جربت الملف ولم يعمل معك ؟؟

[khasem]

Just now, Barna said:

الكود يعمل معي في الملف المرسل لك .... هل جربت الملف ولم يعمل معك ؟؟

نعم استاذ لكن تذهب اسماء الطلاب  الى جدول 

Tablex       

والمطلوب ان تذهب الى  

Table1       

[Barna]

24 دقائق مضت, khasem said:

نعم استاذ لكن تذهب اسماء الطلاب  الى جدول 

Tablex       

والمطلوب ان تذهب الى  

Table1       

جرب ووافيني بالنتيجة .....

 

BA.mdb

[khasem]

10 minutes ago, Barna said:

جرب ووافيني بالنتيجة .....

تمام استاذ ربي يحفظك

لكن مافائدة وجود الملف 

Temp

 

BA.mdb 1.22 MB · 0 downloads

 

[Barna]

جدول Temp جدول مؤقت لاستيراد البيانات له من الاكسس قبل الحاقه للجدول الاساسي ...

تم تعديل يونيو 6, 2020 بواسطه Barna

[khasem]

7 minutes ago, Barna said:

جدول Temp جدول مؤقت لاستيراد البيانات له من الاكسس قبل الحاقه للجدول الاساسي ...

يسلم عمرك استاذ ربي يحفظك

والشكر موصول للاساتذة  جمال سعد ومحمد الفلاحجي

جعل الله أعمالكم في ميزان حسناتكم وأنار بها طريقكم نحو التوفيق والصلاح في الدنيا والآخره

[Barna]

واياك أخي قاسم .... بالتوفيق

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا 💐

والشكر موصول للاستاذ جمال @Gamal.Saad و محمد @Barna 💐

واذا سمح اخوانى واساتذتى بالاستفسار بالنسبه لاستعمال الاوبجيكت كما اشرت سابقا لتذكرى مره قد قال اخى ومعلمنا العزيز جعفر استعمال الاوبجيكت يغنينا عن استعمال المكتبات ولكن عند تجربتها لم تعمل وعند استعمال المكتبات تعمل وبالبحث وجدت ان الاشاره للاوبجيكت لوحده ليس كافى بل يستخدم بعض المتغيرات ايضا ولعل اخواننا واساتذتنا يوضوحون

 

[Barna]

3 ساعات مضت, أحمد الفلاحجى said:

 

واذا سمح اخوانى واساتذتى بالاستفسار بالنسبه لاستعمال الاوبجيكت كما اشرت سابقا لتذكرى مره قد قال اخى ومعلمنا العزيز جعفر استعمال الاوبجيكت يغنينا عن استعمال المكتبات ولكن عند تجربتها لم تعمل وعند استعمال المكتبات تعمل وبالبحث وجدت ان الاشاره للاوبجيكت لوحده ليس كافى بل يستخدم بعض المتغيرات ايضا ولعل اخواننا واساتذتنا يوضوحون

اعتقد ان مثال الاستاذ قاسم ليس دليلا للتجربة لان الملف كان فيه مشكلة ... جرب على مثال اخر واكد لنا التجربة.

تم تعديل يونيو 6, 2020 بواسطه Barna

[أبوبسمله]

منذ ساعه, Barna said:

اعتقد ان مثال الاستاذ قاسم ليس دليلا للتجربة لان الملف كان فيه مشكلة ... جرب على مثال اخر واكد لنا التجربة.

جزاك الله خيرا اخي محمد إن شاء الله سوف اجرب غدا بإذن الله واوافيك بالنتيجة 

💐🌷🌹

[khasem]

2 hours ago, أحمد الفلاحجى said:

جزاك الله خيرا اخي محمد إن شاء الله سوف اجرب غدا بإذن الله واوافيك بالنتيجة 

💐🌷🌹

الاساتذة الافاضل 

السلام عليكم 

هل استطيع التاشير على كل المكتبات ام عند الحاجة اليها

لانه حصلت عندي نفس المشكلة السابقة 

كما في المرفق 

 

temp.rar

تم تعديل يونيو 6, 2020 بواسطه khasem

[أبوبسمله]

8 ساعات مضت, khasem said:

السلام عليكم 

هل استطيع التاشير على كل المكتبات ام عند الحاجة اليها

وعليكم السلام اخى قاسم

عند الحاجه الى المكتبه والله اعلى واعلم

اخى واستاذى محمد @Barna تم التجربه على نفس المثال المرفق منك وازاله الاشاره للمكتبه من الريفرنس

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

msoFileDialogFilePicker = 3 من الرابط التالى

https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogtype

msoFileDialogViewList = 1 من الرابط التالى

https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogview

 

Private Sub btnLocateFile_Click()

    Dim varItem As Variant
    Dim strPath As String
    
   'Dim objFilePicker  As FileDialog تم تبديل هذا السطر بالتالى
    Dim objFilePicker  As Object
    
    Dim db As Database
    Dim rst As DAO.Recordset
    Dim strUnitNumber As String
    
    Set db = CurrentDb()
    
   'Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) تم تبديل هذا السطر بالتالى
    Set objFilePicker = Application.FileDialog(3)
    
    With objFilePicker
        'Setup file dialog
        .AllowMultiSelect = False
        .ButtonName = "Select"
        
       '.InitialView = msoFileDialogViewList    تم تبديل هذا السطر بالتالى
        .InitialView = 1
        
        .title = "Select File"
        
        'add filter for all files
        With .Filters
         .Clear
         .Add "All Files", "*.mdb,*.accdb,*.xlsx"
        End With
        .FilterIndex = 1
        'disply dilog boxe
        .Show
    End With
    
    If objFilePicker.SelectedItems.Count > 0 Then
        
        m_strFileName = objFilePicker.SelectedItems(1)
        Me.txtImportFile = m_strFileName
        
    End If

End Sub

جزاك الله خيرا اخى واستاذى محمد وجمال وجعفر 💐

BA.mdb

[khasem]

1 hour ago, أحمد الفلاحجى said:

وعليكم السلام اخى قاسم

عند الحاجه الى المكتبه والله اعلى واعلم

اخى واستاذى محمد @Barna تم التجربه على نفس المثال المرفق منك وازاله الاشاره للمكتبه من الريفرنس

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

msoFileDialogFilePicker = 3 من الرابط التالى

https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogtype

msoFileDialogViewList = 1 من الرابط التالى

https://docs.microsoft.com/en-us/office/vba/api/office.msofiledialogview

 

Private Sub btnLocateFile_Click()

    Dim varItem As Variant
    Dim strPath As String
    
   'Dim objFilePicker  As FileDialog تم تبديل هذا السطر بالتالى
    Dim objFilePicker  As Object
    
    Dim db As Database
    Dim rst As DAO.Recordset
    Dim strUnitNumber As String
    
    Set db = CurrentDb()
    
   'Set objFilePicker = Application.FileDialog(msoFileDialogFilePicker) تم تبديل هذا السطر بالتالى
    Set objFilePicker = Application.FileDialog(3)
    
    With objFilePicker
        'Setup file dialog
        .AllowMultiSelect = False
        .ButtonName = "Select"
        
       '.InitialView = msoFileDialogViewList    تم تبديل هذا السطر بالتالى
        .InitialView = 1
        
        .title = "Select File"
        
        'add filter for all files
        With .Filters
         .Clear
         .Add "All Files", "*.mdb,*.accdb,*.xlsx"
        End With
        .FilterIndex = 1
        'disply dilog boxe
        .Show
    End With
    
    If objFilePicker.SelectedItems.Count > 0 Then
        
        m_strFileName = objFilePicker.SelectedItems(1)
        Me.txtImportFile = m_strFileName
        
    End If

End Sub

جزاك الله خيرا اخى واستاذى محمد وجمال وجعفر 💐

BA.mdb 1.38 MB · 0 downloads

استاذي الفاضل احمد الفلاحجي

الم تلاحظ الملف المرفق  بعد الصورة المرفقة 

تكررت عندي نفس المشكلة التي قام بحلها الاستاذ محمد باران

temp.rar

[أبوبسمله]

اخى قاسم

انا كنت بشتغل على اول ملف ارفقه اخى واستاذى العزيز محمد لتجربه استخدام الاوبجيكت فقط

ماهى المشكله ؟

7 دقائق مضت, khasem said:

تكررت عندي نفس المشكلة التي قام بحلها الاستاذ محمد باران

ارفق صوره للمشكله وملف الاكسيل المستخدم مع الملف الاخير الذى ارفقته

[khasem]

16 minutes ago, أحمد الفلاحجى said:

اخى قاسم

انا كنت بشتغل على اول ملف ارفقه اخى واستاذى العزيز محمد لتجربه استخدام الاوبجيكت فقط

ماهى المشكله ؟

ارفق صوره للمشكله وملف الاكسيل المستخدم مع الملف الاخير الذى ارفقته

تفضل استاذنا الفاضل 

 

Desktop.rar

[AlwaZeeR]

السلام عليكم ورحمة الله وبركاته

المشكلة حسب الصورة الاخيرة ان جدول temp غير موجود

بمعنى يتم حذفه قبل الانشاء وهذا يحدث فقط عند الخطأ

لتجاوز هذه المشكلة 

ضع امر تجاوز الخطأ

On Error Resume Next

اول الكود واكمل بشكل طبيعي