عند فتح اجراء حدث يغلق البرنامج

[بلال اليامين]

السلام عليكم

لدي برنامج  لقد قمت باداخل كود الحاقي وعندما اريد فتح لتعديل على يغلق البرنامج مباشرة

هل يوجد حل لهذه المشكلة

[محمد أبوعبدالله]

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

3 ساعات مضت, بلال اليامين said:

لدي برنامج  لقد قمت باداخل كود الحاقي وعندما اريد فتح لتعديل على يغلق البرنامج مباشرة

ربما تكون المشكلة في الاكسيس نفسه

او ارفق الجزء الذي به المشكلة بارك الله فيك

تحياتي

تم تعديل أغسطس 17, 2020 بواسطه محمد أبوعبدالله

[بلال اليامين]

السلام عليكم

اخي اليك البرنامج

البرنامج-.rar

[محمد أبوعبدالله]

محرر الاكواد يفتح بدون مشاكل

Private Sub أمر6_Click()
On Error GoTo Error_ErrorZ
    If Len(Me.B1 & vbNullString) = 0 Or Len(Me.B2 & vbNullString) = 0 Or Len(Me.B3 & vbNullString) = 0 Or Len(Me.B4 & vbNullString) = 0 Or Len(Me.B5 & vbNullString) = 0 Then
    Else
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Query2"
    DoCmd.SetWarnings True
'    MsgBox "Done", vbInformation

     Forms![عنصر_تحكم_علامة_جدولة0].Form![forma5].Requery
     Forms![عنصر_تحكم_علامة_جدولة0].Form.Requery
     DoCmd.RunCommand acCmdRefresh

     
End If
    
Error_ErrorZ:
    MsgBox "تمت العملية بنجاح", vbInformation
End Sub

 

5 ساعات مضت, محمد أبوعبدالله said:

ربما تكون المشكلة في الاكسيس نفسه

تحياتي