ترحيل خارج قاعدة البيانات مع امكانية تغير مكان الملف

[ابوصلاح]

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

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

البرنامج.rar

[Barna]

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

Dim fpathz As Variant
Dim fil As String
    With Application.FileDialog(3)
        .Title = "Choose File"
        .Filters.Clear
        .Filters.Clear
        .Filters.Add "All Files", "*.*"
        .AllowMultiSelect = False
        .InitialFileName = ""
     If .Show = -1 Then
         fpathz = .SelectedItems(1)
     End If
     End With
'DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tb_redy_rateb ( id_imp, tmonth, tyer, school, tnam, national_iD, old_asis, new_asis, elawa14, elawa15, edafya, egtemaya, hafz25, adaaa, badlteatcher, kader, ekama, shamel, add_nesab1, add_nesab2, add_nesab3, add_nesab4, masthkak, mastktaa, safy ) IN '" & fpathz & "' SELECT * " & vbCrLf & _
"FROM tb_redy_rateb;"
'DoCmd.SetWarnings True

 

[ابوصلاح]

استاذ محمد البرناوي طبتم بخير 

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

[Barna]

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

 

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

 

البرنامج.rar

[ابوصلاح]

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

[محمد التميمي]

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

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

Dim fpathz As Variant
Dim fil As String
    With Application.FileDialog(3)
        .Title = "Choose File"

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

لاكن نريد من جنابكم الكريم اضافة  (ملح وبهارات ) على طبخة الكد اللذيذة هذه لتصبح شهية جداً

من بعد اذن صاحب السؤال اخي ابو صلاح

من بعد اذنك استاذي العزيز اضف لنا تعديل كالاتي :

1- اذا كانت جميع السجلات المرحلة موجودة في الجدول الخارجي لا يقوم بالترحيل وينبهك برسالة تحذير "بعدم التنفيذ لكون السجلات موجودة او مرحلة مسبقاً " .

2- اذا كانت جزء من السجلات وليس جميعها موجودة في الجدول الخارجي لا يقوم بالترحيل لهذه السجلات الموجودة وينبهك برسالة  تحذير "ان بعض السجلات لا يمكن ترحيلها لكونها موجودة او مرحلة مسبقاً " ويقوم بترحيل السجلات الجديدة الغير مرحلة فقط .

هي فكرة لا اكثر ولاكن الاستفادة منها كبيرة جداً

واعتذر عن الاطالة مع الشكر الجزيل😡😡😡

 

 

البرنامج.rar

تم تعديل سبتمبر 1, 2020 بواسطه محمد التميمي

[Barna]

9 ساعات مضت, محمد التميمي said:

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

لاكن نريد من جنابكم الكريم اضافة  (ملح وبهارات ) على طبخة الكد اللذيذة هذه لتصبح شهية جداً

من بعد اذن صاحب السؤال اخي ابو صلاح

من بعد اذنك استاذي العزيز اضف لنا تعديل كالاتي :

1- اذا كانت جميع السجلات المرحلة موجودة في الجدول الخارجي لا يقوم بالترحيل وينبهك برسالة تحذير "بعدم التنفيذ لكون السجلات موجودة او مرحلة مسبقاً " .

2- اذا كانت جزء من السجلات وليس جميعها موجودة في الجدول الخارجي لا يقوم بالترحيل لهذه السجلات الموجودة وينبهك برسالة  تحذير "ان بعض السجلات لا يمكن ترحيلها لكونها موجودة او مرحلة مسبقاً " ويقوم بترحيل السجلات الجديدة الغير مرحلة فقط .

هي فكرة لا اكثر ولاكن الاستفادة منها كبيرة جداً

واعتذر عن الاطالة مع الشكر الجزيل😡😡😡

مبدأيا يمكن عمل فكرتك باحدى طريقتين :

1- نجعل الاكسس قبل الالحاق يتأكد سجل سجل ( هل هو موجود او لا ) واعتقد هذه الطريقة تأخذ وقت وخاصة اذا كانت السجلات كثيرة

2- نجعل الاكسس يحصر السجلات الموجود في الجدولين وفي حال وجود مكرر يظهرها لنا في نموذج وسؤالنا هل نريد الحاق هذه الاسماء المكررة ام لا اذا اذا كان ليس هناك تكرار في السجلات يقوم بالحاق السجلات دون اظهار النموذج

 

وقد تكون هناك طرق اخرى .....

[محمد التميمي]

شكراً استاذ  محمد وضحت الصورة بارك الله بك

[ابوصلاح]

شكرا للجميع على المشاركات الجميله افادكم الله