محسن سرحان قام بنشر مارس 7, 2015 قام بنشر مارس 7, 2015 اخوانى بعد بحث مرير وجدت قاعدة ارفاق بيانات من جدول خارجى المطلوب لو عندى فولدر فيه 10او 20 او 50 قاعدة بيانات باسماء مختلفة لكن بهم نفس الجدول بنفس الاسم كيف يمكن ارفاق كل الجداول من كل القواعد من نفس القولدر في نفس اللحظة وشكرا
jjafferr قام بنشر مارس 7, 2015 قام بنشر مارس 7, 2015 وعليكم السلام أخي محسن كيف يمكن ارفاق كل الجداول من كل القواعد من نفس القولدر في نفس اللحظة اذا كان قصدك استيراد السجلات الى برنامجك ، فالرجاء ارفاق: 1. برنامجك الذي تريد ان تستورد اليه السجلات (اعتقد انه هو الذي ارفقته سابقا) ، وتذكر اسم الجدول اللي تريد الاستيراد له ، 2. المجلد وفيه مجموعة من الملفات والتي نريد استيراد سجلاتها الى البرنامج في الرقم #1. جعفر
محسن سرحان قام بنشر مارس 7, 2015 الكاتب قام بنشر مارس 7, 2015 اخي العزيز جعفر اشكرك من اعماق قلبي 1- اسم الجدول هو data_kids 2- عندي فولدرعل الe اسمه جداول البيانات به مجموعة من قواعد البيانات به جدول بنفس الحقول والاسمdata_kids
jjafferr قام بنشر مارس 7, 2015 قام بنشر مارس 7, 2015 أخي محسن انزلت برنامجك ، فلم اجد فيه جدول data_kids !! كيف اعرف اسماء الحقول؟ انا طلبته منك ليساعدني لحل الموضوع!! جعفر
أفضل إجابة jjafferr قام بنشر مارس 7, 2015 أفضل إجابة قام بنشر مارس 7, 2015 تفضل إضغط على زر الاستعراض ، تطلع لك نافذة اختيار المجلد اللي فيه قواعد بياناتك ، ثم اضغط على استيراد ، فيقوم باستيراد بيانات الجدول data_kids من جميع هذه الملفات التي بصيغة mdb و accdb وقاعدة البيانات اللي ما يلاقي فيها الجدول ، ما يعبرها وهذا الكود اللي يقوم بعملية الاستيراد: Private Sub cmd_import_Click() On Error GoTo err_cmd_import_Click 'loop through the listbox items For i = 0 To Me.lst_Files.ListCount - 1 'import the data to the table sqAdd = "INSERT INTO data_kids" 'sqAdd = sqAdd & " IN '" & Application.CurrentProject.Path & "'" sqAdd = sqAdd & " select * From data_kids" sqAdd = sqAdd & " IN '" & Me.lst_Files.ItemData(i) & "'" 'Debug.Print sqAdd 'execute the append SQL DoCmd.RunSQL sqAdd Next i MsgBox "Done" Exit Sub err_cmd_import_Click: If Err.Number = 3078 Then 'table not found in the mdb Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 10.1.Import_Table_Data.mdb.zip
محسن سرحان قام بنشر مارس 8, 2015 الكاتب قام بنشر مارس 8, 2015 عبقري عبقري عبقري اشكر يا احسن خبير اكسس وهو المطلوب وزيادة شكرا اخي العزيز
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.