السلام عليكم
هل يمكن نقل بيانات من اكسل الى اكسس
مرفق اكسل واكسس
كيف يمكن نقل بياناتى من اكسل الى اكسس
هناك العديد من المصادر حول ذلك عبر الانترنت:
http://databases.about.com/od/tutorials/ss/convert_excel_to_access_2010_database.htm
http://www.opengatesw.net/ms-access-tutorials/Excel-to-Access.htm
ينقل الموضوع إلى قسم Access العام.
Do as I say, not as I do
We are Anonymous. We are Legion. We don't forgive. We don't forget
المرفقات
جزاك الله خير
اتمنى اشاهد كود نقل البيانات
وهل بالامكان نقل البيانات بالفجول بيسك6
تم تعديل هذه المشاركة بواسطة الحبيب99 في 20 أغسطس 2012 في 20:35
الحبيب99 كتب:جزاك الله خير
اتمنى اشاهد كود نقل البيانات
وهل بالامكان نقل البيانات بالفجول بيسك6
اخي الفاضل
لمشاهدة كود نقل البيانات من الأكسيل الى الأكسيس بإمكانك فتح النموذج في وضع التصميم ثم الذهاب الى زر الأمر الخاص بنقل البيانات عند حدث النقر على زر الأمر وسيظهر لك الكود التالي
Private Sub CmdImport_Click()
Dim lngColumn As Long
Dim xlx As Object, xlw As Object, xls As Object, xlc As Object
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim blnEXCEL As Boolean
Dim strSQL As String
blnEXCEL = False
On Error Resume Next
Set xlx = GetObject(, "Excel.Application")
If Err.Number <> 0 Then
Set xlx = CreateObject("Excel.Application")
blnEXCEL = True
End If
Err.Clear
On Error GoTo 0
xlx.Visible = False
Set xlw = xlx.Workbooks.Open(Application.CurrentProject.Path & "\EXCEL.xls", , True)
Set xls = xlw.Worksheets("Sheet2")
Set xlc = xls.Range("B5")
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("tblTemp", dbOpenDynaset, dbAppendOnly)
Do While xlc.Value <> ""
rst.AddNew
For lngColumn = 0 To rst.Fields.Count - 1
rst.Fields(lngColumn).Value = xlc.Offset(0, lngColumn).Value
Next lngColumn
rst.Update
Set xlc = xlc.Offset(1, 0)
Loop
rst.Close
Set rst = Nothing
dbs.Close
Set dbs = Nothing
Set xlc = Nothing
Set xls = Nothing
xlw.Close False
Set xlw = Nothing
If blnEXCEL = True Then xlx.Quit
Set xlx = Nothing
MsgBox " تم استيراد البيانات من ملف الأكسيل بنجاح ", vbInformation, "استيراد البيانات"
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q1"
DoCmd.OpenQuery "Q2"
DoCmd.SetWarnings True
DoCmd.OpenTable "student"
End Subبالنسبة لسؤالك عن تنفيذ ذلك من خلال الفيجول بيسك فهنا نحن في المنتدى متخصصين قواعد بيانات فقط ولكن لو رغبت بعمل ذلك اذهب الى قسم الفيجول بيسك في المنتدى وأسال هناك فقد يجيبك اعضاء القسم على سؤالك
قسم الفيجول بيسك 6 وما قبلها
بالتوفيق
الحبيب99 كتب:ربي يسعدك اختي الكريمة
استفسار
هل يمكن استيراد البيانات من الاكسل بشروط
مثلا في ملف الاكسل المرفق
اريد استيراد اسماء اللذين جنسيتهم سعودي فقط
تفضل اخي الكريم
الملف بعد التعديل بناء على طلبك
لكي تقوم بإختيار الجنسية السعودية فقط ( او اي جنسية تختارها )
افتح الإستعلام Q1 في عرض التصميم ثم اكتب الجنسية المطلوبه
الآن اغلق واحفظ الإستعلام
افتح النموذج ثم اضغط على زر الأمر الخاص بإستيراد البيانات من الأكسيل وستكون النتيجة بهذا الشكل
تم استيراد الجنسية السعودية فقط
بالتوفيق
المرفقات
تسلمي اختي
اقصد اختيار الجنسية من واجهة البرنامج
وليس من داخل الاستعلام
لأنه بتكون عندي جنسيات كثير
هل بالامكان
المرفقات
الله يوفقكم ويسعدكم في الدنيا والآخرة