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

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

عزيزي alakeeto

أولاً موضوعك مهم جداً ، ولكن لا أعلم مدى معرفتك بالأكسيس ، على كل عزيزي يمكنك أن تنقل هذا الكود إلى برنامج الأكسيس الذي عندك ،

ملاحظة : إن شاء الله يكون عندك علم بالأكسس :)

عزيزي إنشئ زر وضع به هذا الكود :

  
Option Compare Database
Option Explicit


Public Sub MakeLabels(LabelTable As String, OutFileName As String)
    Dim aktDB As DATABASE
    Dim aktRS As Recordset
    Dim fs As New FileSystemObject
    Dim Outfile As TextStream

    Dim currVar As String
    Dim currVal As String
    Dim currVarlab As String
    Dim currValLab As String
    Dim lastVar As String
    Set aktDB = CurrentDb
    Set aktRS = aktDB.OpenRecordset(LabelTable, dbOpenDynaset)
    Set Outfile = fs.OpenTextFile(OutFileName, ForWriting, True)     
    aktRS.MoveFirst
    lastVar = ""
    Outfile.Write ("VARIABLE LABELS")
    Do While Not aktRS.EOF
        currVar = aktRS("Varname")
        currVarlab = aktRS("Varlabel")
        If currVar <> lastVar Then
            Outfile.WriteLine
            Outfile.Write ("  " & currVar & " '" & currVarlab & "'")         
        End If
        lastVar = currVar
        aktRS.MoveNext
    Loop
    Outfile.WriteLine (".")
    Outfile.WriteLine
    Outfile.Write ("VALUE LABELS")
    aktRS.MoveFirst
    lastVar = ""
    Do While Not aktRS.EOF
        currVar = aktRS("Varname")
        If lastVar <> "" Then currVar = "/" & currVar         
        currVal = CStr(aktRS("Value"))
        currValLab = aktRS("Vallabel")
        If currVar <> lastVar Then
            Outfile.WriteLine
            Outfile.WriteLine ("  " & currVar)
            Outfile.Write ("    " & Format(currVal, "0000") & " '" & currValLab & "'")         
        Else
            Outfile.WriteLine
            Outfile.Write ("    " & Format(currVal, "0000") & " '" & currValLab & "'")         
        End If
        If lastVar = "" Then currVar = "/" & currVar         
        lastVar = currVar
        aktRS.MoveNext
    Loop
    Outfile.WriteLine (".")
    aktRS.Close
    Outfile.Close
    Set aktRS = Nothing
    Set aktDB = Nothing
    Set Outfile = Nothing
    Set fs = Nothing

End Sub

في هذا الكود إعتبرنا أنه عندنا في الجدول هذه الحقول : Varname - Varlabel - Value - Vallabel

ويمكنك أخي الكريم أن تقرأ الملف المرفق وهو أيضاً طريقة أخرى للتحويل من أكسيس إلى SPSS

AccessToSpss.rar

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

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

عزيزي alakeeto

إليك حلاً بسيطاً إن شاء الله تعالى

أخي الكريم ،إبحث هنا في المنتدى عن طريقة تحويل الجداول في الأكسيس إلى ملف إكسيل

بعد تحويل الجداول في قاعدة بياناتك إلى إكسيل ، في برنامج ال SPSS يمكنك إستيراد معلومات من ملف إكسيل ، إذاً إن شاء الله تتم العملية بنجاح

وإذا أردت أخي الكريم ، أرفق قاعدة بياناتك لأعدل لك عليها ، وتصبح جاهزة لإرسال المعلومات :)

ملاحظة : هل عندك أخي خلفية عن لغة الإنكليزي ؟؟

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

وبعض المواقع شددت على افضلية نوع CSV وليس Xls

حيث ان النوع الاول ينقل البيانات مجهزة لتخزن في برنامج اخر لسجلات

http://209.85.229.132/search?q=cache:gg-YS71N8SAJ:psych.unl.edu/930/documents/Moving%2520data%2520from%2520Access%2520to%2520SPSS.ppt+conver+access+data+to+spss&cd=1&hl=ar&ct=clnk&gl=ps

هذا رابط شرح بالبوربوينت..اتمنى ان يفيد.. "انجليزي" لم اجد سواه

همام

الف شكر الله يوفقكم ويبارك فيكم