سؤال بخصوص تعديل قيم خلايا فى ورقة اكسل من خلال فورم اكسس

[ابو جودي]

السلام عليكم ورحمة الله تعالى وبركاته 
اساتذتى الكرام 
السؤال كما فى عنوان الموضوع هل يمكن تعديل قيم خلايا فى ورقة عمل اكسل من خلال قاعدة بيانات اكسس
مرفق ملف اكسل وقاعدة بيانات اكسس 
الخلايا فى ملف الاكسل ذات اللون الاحمر فى الورقة الاولى بعنوان input data اريد التحكم فى بياناتها من خلال فورم الاكسس المرفق هل يمكن ذلك 
جزاكم الله خيـــــــــــرا

qs.rar

[jjafferr]

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

 

اذا تتبعت خطوات البرنامج في الرابط التالي ، فستعرف كيف تتحكم في الاكسل ، وستحقق المراد 

 

جعفر

[ابو جودي]

4 دقائق مضت, jjafferr said:

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

 

اذا تتبعت خطوات البرنامج في الرابط التالي ، فستعرف كيف تتحكم في الاكسل ، وستحقق المراد 

 

جعفر

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

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

للعلم انا اتعامل مع ما يقرب من 1000 شيت اكسل وللاسف ملزم بتلك الهيئة ويصعب تحويلهم لاكسس
فهل يمكن تحقيق تغيير قيم الحقول من فورم بالاكسس  فى الصفحة الاولى لملف الاكسل كل حقل بما يقابله من فورم الاكسس  لانها تتغير فى باقى صفحات الاكسل بناء على قيمتها من الصفحة الاولى لنفس الملف فى جميع الصفحات

[jjafferr]

2 ساعات مضت, ابا جودى said:

فهل يمكن تحقيق تغيير قيم الحقول من فورم بالاكسس

نعم يمكن ، ولكن بطريقة غير مضمنه ،

يعني نقرأ البيانات بزر ، ونحفظ البيانات بزر 

 

بس السؤال هو ، لماذا تريد ان تغير البيانات من الاكسس ؟

 

جعفر

[jjafferr]

تفضل 

 

هذا النموذج ، بزر استيراد بيانات اول صفحة ، وزر حفظ البيانات في الاكسل:

 

والكود (لاحظ اسم ومسار ملف الاكسل ، في الحدثين):

Option Compare Database

    Dim ExcelApp As Object  'Excel.Application
    Dim WkBk As Object  'Excel.Workbook


Private Sub cmd_Import_From_Excel_Click()
    
    File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls"
    
    Set ExcelApp = CreateObject("Excel.Application")
    Set WkBk = ExcelApp.Workbooks.Open(FileName:=File_Path)

    'With WkBk.Sheets("input data")
    With WkBk.Sheets(1)
    
        Me.Control_No = .Range("B2").Value
        Me.SN = .Range("B3").Value
        Me.DATE = .Range("B4").Value
        Me.TS_Name = .Range("B5").Value
        Me.Component_PN = .Range("B7").Value
        Me.Description = .Range("B8").Value
        Me.JIC_NO = .Range("B10").Value
        Me.JIC_Rev_NO = .Range("B11").Value
        Me.JIC_Rev_Date = .Range("B12").Value
        Me.CMM_JIC_Approval = .Range("B13").Value
        Me.CMM = .Range("B14").Value
    
    End With

    If Not (ExcelApp Is Nothing) Then ExcelApp.Quit

    Set WkBk = Nothing
    Set ExcelApp = Nothing
    
End Sub

Private Sub cmd_Save_to_Excel_Click()

    File_Path = Application.CurrentProject.Path & "\372.62293-SER OH.xls"
    
    Set ExcelApp = CreateObject("Excel.Application")
    Set WkBk = ExcelApp.Workbooks.Open(File_Path)

    ExcelApp.Application.Visible = False    'True

 
    'With WkBk.Sheets("input data")
    With WkBk.Sheets(1)
        'WkBk.Sheets(1).Range("B2").Value = Me.Control_No
        
        .Range("B2").Value = Me.Control_No
        .Range("B3").Value = Me.SN
        .Range("B4").Value = Me.DATE
        .Range("B5").Value = Me.TS_Name
        .Range("B7").Value = Me.Component_PN
        .Range("B8").Value = Me.Description
        .Range("B10").Value = Me.JIC_NO
        .Range("B11").Value = Me.JIC_Rev_NO
        .Range("B12").Value = Me.JIC_Rev_Date
        .Range("B13").Value = Me.CMM_JIC_Approval
        .Range("B14").Value = Me.CMM
    
    End With

    WkBk.Save
    WkBk.Close

    Set WkBk = Nothing
    Set ExcelApp = Nothing

    MsgBox "Done"
    
End Sub

372.Database1.mdb.zip

جعفر