تنسيق في استعلام لقاعدة بيانات

[Tarekfathallah]

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

الاستعلام Query1 يعطي المعلومات المطلوبة ما اريده ازالة الاسطر 

Query1

"محافظة	قضاء	""البلدة او الحي""	""طائفة الائحة""	الجنس	"" ""	"" """
و ترتيب السطر الذي يحوي محافظة : قضاء: البلدة او الحي: طائفة اللائحة :الجنس   مقابل كل اسم : الشهرة : اسم الاب : اسم الام :تاريخ الولادة .....  كما يجب ان يقابله القاعدة كبيرة جدا وفيها عدة مناطق حوالي 14 جدول  وطلب اخير كيفية ازالة " من الحقول والاسطر  بمعنى آخر اسماء الحقول ستكون   الشهرة : الاسم : اسم الاب  ........   قضاء : محافظة : البلدة : طائفة اللائحة : الجنس ... --------------   للرفع -------------------------
"البقاع	""البقاع الغربي""	الخياره	""روم ارثوذكس""	ذكر	"" ""	"" """
"الشهرة	الاسم	""اسم الاب""	""اسم الام""	""تاريخ الولادة""	""رقم السجل""	المذهب"

tarek.rar

تم تعديل يوليو 21, 2017 بواسطه tarek_f26180

[Tarekfathallah]

السلام عليكم بانتظار الردود   اريده كما في ملف الاكسيل مع ازالة "" 

------------------    للرفع -----------------

M1_BKAWEST111.rar

تم تعديل يوليو 21, 2017 بواسطه tarek_f26180

[Tarekfathallah]

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

-----------------   للرفع -------------

[jjafferr]

وعليكم السلام

 

تفضل

 

الاشارة " يمكن الاشارة اليها برقمها ، والذي هو (chr(34 

وهذا لباقي ارقام وحروف الكمبيوتر: http://www.asciitable.com/

فعليه ، نستخدم الامر Replace لإزالة هذه الاشارات ، هكذا:

Field1: Replace([Field_xyz],chr(34),"")

 

والنتيجة

 

جعفر

687.tarek.accdb.zip

[Tarekfathallah]

اخي واستاذنا جعفر ادامك الله 

الرجاء المساعدة كما هو مرفق في ملف الاكسيل 

--------------    للرفع -------------

Desktop.rar

[jjafferr]

حياك الله اخي طارق

 

يمكنك جلب بيانات الاكسل الى الاكسس ، ثم القيام بالعمل مثل ما عملته لك ،

اذا تلاحظ في الاستعلام ، فانا كررت نفس العملية لجميع الحقول ،

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

 

جعفر

[Tarekfathallah]

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

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

فلو سمحت وتكرمت علي ان تنظر الى المرفق الاكسيل جيدا من السطر 1 الى السطر 1371    ومن السطر 1372 الى الاخير 

اريد ان يصبح الكل كما هو في المرفق اكسيل من 1 الى 1371 ولكن يرجى الانتباه ان القاعدة كبيرة وفيها حوالي 15 جدول وكل جدول فيه لا يقل عن 93486 سجل 

ملاحظة مهمة  : يجب محي سطر الشعرة والاسم واسم الاب واسم الام و .....  من الجداول ومحي سطر المحافظة والقضاء والبلدة او الحي والجنس و ......    كذلك كما في مرفق الاكسيل  

------------------   للرفع ---------------------

Desktop.rar

[jjafferr]

أخي طارق ، انا وانت لا نتكلم على نفس الموجه ، لهذا السبب تضيع الكثير من التفاصيل

ولكن هذه المرة وبعد عناء ، اعتقد بأني فهمت اللي تريد

 

هل تريد نسخ البيانات هكذا:

.

جعفر

[Tarekfathallah]

السلام عليك اخي جعفر 100/100 تمام 

--------------------   للرفع ------------------

[Tarekfathallah]

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

لذلك لا استطيع التكلم مع حضرتكم على نفس الموجة لأنني لا اعرف المسميات ولا اعرف تركيب الموديولات والماكروهات والاوامر واكثر الاستعلامات 

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

بانتظار مساعدتك وردودك ادامك الله 

-----------------   للررفع -----------------------

[Tarekfathallah]

اخي جعفر بانتظار حضرتك لو سمحت 

------------------   للرفع --------------

[jjafferr]

حيالله اخوي طارق

 

اقتباس

ذلك لا استطيع التكلم مع حضرتكم على نفس الموجة لأنني لا اعرف المسميات ولا اعرف تركيب الموديولات والماكروهات والاوامر واكثر الاستعلامات 

 

مو هذا القصد ، القصد التوضيح ، مثل الصورة اللي ارفقتها انا وشرحت كل الموضوع

 

جعفر

 

[Tarekfathallah]

مشكور اخي جعفر حياك الله 

نرجو من حضرتكم المساعدة لو سمحت بطريقة برمجية لاكمال قاعدة البيانات لو سمحت 

-----------------   للرفع ---------------------

[jjafferr]

تفضل

 

ضع بياناتك التي في ملف الاكسل في الجدول: M1_BKAWEST_Original

ثم افتح النموذج Form1 ، وانقر على الزر Fix imported Excel

وسترى النتيجة في الجدول: M1_BKAWEST

 

وهذا هو الكود الذي يقوم بالعمل:

Private Sub cmd_Fix_Click()
On Error GoTo err_cmd_Fix_Click


    Dim rstS As DAO.Recordset
    Dim rstD As DAO.Recordset
    
    Set rstS = CurrentDb.OpenRecordset("Select * From M1_BKAWEST_Original")
    Set rstD = CurrentDb.OpenRecordset("Select * From M1_BKAWEST")
    rstS.MoveLast: rstS.MoveFirst
    RCs = rstS.RecordCount
    
    For i = 1 To RCs
    
        If rstS!Field1 = "محافظة" Then
            rstS.MoveNext
            
            Field8 = rstS!Field1
            Field9 = rstS!Field2
            Field10 = rstS!Field3
            Field11 = rstS!Field4
            Field12 = rstS!Field5
            
            rstS.MoveNext
            rstS.MoveNext
        End If
        
        rstD.AddNew
            
            rstD![الشهرة] = Replace(rstS!Field1, Chr(34), "")
            rstD![الاسم] = Replace(rstS!Field2, Chr(34), "")
            rstD![اسم الاب] = Replace(rstS!Field3, Chr(34), "")
            rstD![اسم الام] = Replace(rstS!Field4, Chr(34), "")
            rstD![تاريخ الولادة] = Replace(rstS!Field5, Chr(34), "")
            rstD![رقم السجل] = Replace(rstS!Field6, Chr(34), "")
            rstD![المذهب] = Replace(rstS!Field7, Chr(34), "")
            rstD![محافظة] = Replace(Field8, Chr(34), "")
            rstD![قضاء] = Replace(Field9, Chr(34), "")
            rstD![البلدة او الحي] = Replace(Field10, Chr(34), "")
            rstD![طائفة اللائحة] = Replace(Field11, Chr(34), "")
            rstD![الجنس] = Replace(Field12, Chr(34), "")
            
        rstD.Update
        
        rstS.MoveNext
    Next i
    
Exit_cmd_Fix_Click:

    rstS.Close: Set rstS = Nothing
    rstD.Close: Set rstD = Nothing
    
    MsgBox "Done"
    
Exit Sub
err_cmd_Fix_Click:
    
        If Err.Number = 3021 Then
            Resume Exit_cmd_Fix_Click
            
        ElseIf Err.Number = 94 Then
            Resume Next
            
        Else
            MsgBox Err.Number & vbCrLf & Err.Description
        End If
    
End Sub

 

جعفر

691.tarek.accdb.zip

[Tarekfathallah]

اخي جعفر مشكور 100 بالمية هذا هو المطلوب اتعبتك 

----------------   للرفع ----------------

[jjafferr]

حياك الله