Question : access run-time for 2003,Execution of this application has stopped due to a run-time error

I have ACCESSRT.MSI (access run-time for 2003) install in my think pad lap top, which has no office 2003 install on it.
I have access application runs good on that device but there is a form does not.
It gives me this error message:
"Execution of this application has stopped due to a run-time error.
The application can't continue and will be shut down"
And then it shut down the application?
Watch that form code bellow.

Code Snippet:

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:

           
           
             '------------------------
' Asset List
'------------------------
 
Option Compare Database
Dim sel As String
 
Private Sub btnNew_Click()
    If IsNull(Me.List.Column(0)) Then
        MsgBox "ÇáÑÌÇÁ ÇÎÊíÇÑ ÓÌá ÓíÇÑÉ ãä ÇáÞÇÆãÉ ÇáÚáíÇ¡ áÅÖÇÝÉ ÓÌá ÊÓáíã áåÇ", vbInformation, "Family tree"
    Else
        DoCmd.OpenForm "frmCharityService", , , "[ID]= " & Me.List.Column(3)
    End If
End Sub
 
Private Sub Command22_Click()
 
    Dim AssetList As String
    
    If Me.Select = 1 Then
        sel = "(((tblFullName_temp.FullName) Like '*" & Me.Input & "*'))"    'check16
    ElseIf Me.Select = 2 Then
        sel = "(((tblFullName_temp.FullAlterID) Like '*" & Me.Input & "*'))"             'check18
    'ElseIf Me.Select = 3 Then
    '    sel = "CarModle like '*" & Me.Input & "*'"                  'check26
    'ElseIf Me.Select = 4 Then
    '    sel = "CarPlateNumber like '*" & Me.Input & "*'"      'check28
    'ElseIf Me.Select = 5 Then
    '    sel = "(((tblFullName_temp.Sex) Like '*" & Me.Input & "*'))"       'check31
    '
    End If
 
        AssetList = "SELECT tblFullName_temp.ID, tblFullName_temp.FullName as [ÇáÇÓã], tblFullName_temp.FullAlterID as [ÇáÑãÒ], " & _
                " tblFullName_temp.EmpID, tblFullName_temp.Sex FROM tblFullName_temp " & _
    "WHERE " & sel & " ;"
    
    Me.List.RowSource = AssetList
    Me.List.ColumnCount = 8
    Me.List.ColumnHeads = True
    'Me.List.ColumnWidths = "3 cm; 6 cm; 3 cm; 3 cm; 5 cm"
 
End Sub
 
Private Sub Command23_Click()
    Call ViewAll
End Sub
 
Private Sub Form_Activate()
    strForm = "frmCharityServiceList"
    Refresh
    DoCmd.Restore
    If IsOpen(frmMemberPhoto) = True Then
       Forms!frmMemberPhoto.dum
    End If
   If IsOpen("frmMemberPhoto") = False Then
     Dim stDocName As String
     Dim stLinkCriteria As String
 
     stDocName = "frmMemberPhoto"
'     stLinkCriteria = "[ID]= " & Me.List.Column(10)
     DoCmd.OpenForm stDocName, , , stLinkCriteria
'      DoCmd.OpenForm "frmCarPhoto", , , "[ID]= " & Me.List.Column(10)
   End If
End Sub
 
Private Sub Form_Deactivate()
    DoCmd.Minimize
End Sub
Private Sub Form_Open(Cancel As Integer)
    Call ViewAll
End Sub
 
Private Sub Command6_Click()
On Error GoTo Err_Command6_Click
 
    Call SecondList_DblClick(False)
 
Exit_Command6_Click:
    Exit Sub
 
Err_Command6_Click:
    MsgBox err.Description
    Resume Exit_Command6_Click
    
End Sub
 
Private Sub List_Click()
   Me.ID.Value = Me.List.Column(3)
   'Me.SecondList = Me.List.Column(3)
   lngMemberID = Me.ID
   Me.SecondList = 0
   Me.ID2 = 0
   Me.SecondList.Requery
   
   If IsOpen("frmMemberPhoto") = True Then
      Forms!frmMemberPhoto.dum
   End If
End Sub
Private Sub ViewAll()
    Dim AssetList As String
 
    AssetList = "SELECT tblFullName_temp.ID, tblFullName_temp.FullName as [ÇáÇÓã], tblFullName_temp.FullAlterID as [ÇáÑãÒ], " & _
                " tblFullName_temp.EmpID, tblFullName_temp.Sex FROM tblFullName_temp ORDER BY [SortID] DESC;"
 
    Me.List.RowSource = AssetList
    Me.List.ColumnCount = 5
    Me.List.ColumnHeads = True
    'Me.List.ColumnWidths = "3 cm; 6 cm; 3 cm; 3 cm; 5 cm"
    
End Sub
Private Sub Command24_Click()
On Error GoTo Err_Command24_Click
 
   If IsOpen("frmMemberPhoto") = True Then
      DoCmd.Close acForm, "frmMemberPhoto", acSaveYes
   End If
 
   DoCmd.Close
Exit_Command24_Click:
    Exit Sub
Err_Command24_Click:
    MsgBox err.Description
    Resume Exit_Command24_Click
    
End Sub
Private Function DeleteItem(lngID2 As Long)
      Dim strFindCriterea As String
 
      Dim cnnLocal As New ADODB.Connection
      Dim rsttblCharityServices As New ADODB.Recordset
      Set cnnLocal = CurrentProject.Connection
          
      rsttblCharityServices.Open "tblCharityServices", cnnLocal, adOpenDynamic, adLockPessimistic
      rsttblCharityServices.Find "ID = " & lngID2
          
      rsttblCharityServices.Delete
                 
      rsttblCharityServices.Close
      cnnLocal.Close
 
End Function
Private Sub btnDelete_Click()
   If Not IsNull(Me.ID2.Value) And Not Me.ID2.Value = 0 Then
      Dim response
      response = MsgBox("¿åá ÊÑíÏ ÍÐÝ ÇáÓÌá", vbYesNo + vbInformation + vbDefaultButton2, "Confirm Save")
        
      If response = vbYes Then
         Call DeleteItem(Me.ID2.Value)
         Me.SecondList.Requery
         Me.ID2 = 0
         'Me.lstEmp = Null
      End If
   Else
      MsgBox "áã ÊÞã ÈÇÎÊíÇÑ ÓÌá ãä ÇáÞÇÆãÉ áÍÐÝÉ"
   End If
 
End Sub
 
 
Private Sub SecondList_Click()
   Me.ID2.Value = Me.SecondList.Value
End Sub
 
Private Sub SecondList_DblClick(Cancel As Integer)
    If IsNull(Me.SecondList.Column(1)) Then
        MsgBox "Please select a record from the list", vbInformation, "Palace Garage"
    Else
' åäÇ íÌÈ æÖÚ ÞÑÇÁÉ áãáÝ ÇáÊÓáíã æÇáÇÓÊáÇ ÈÑÞã ÇáãÚÑÝ ááÓíÇÑÉ¡ ÅÐÇ æÌÏ ÓÌáÇ íÍÖÑ ÂÎÑ ÓÌá ÍÓÈ ÇáÊÇÑíÎ¡ æÅÐÇ áã íÌÏ ÓÌáÇÊ ÝÅäå íÝÊÍ ÇáäãæÐÌ ÈæÖÚ ÓÌá ÌÏíÏ
        DoCmd.OpenForm "frmCharityServiceChange", , , "[ID]= " & Me.SecondList.Column(1)
    End If
End Sub

           
         

Open in New Window

Select All

Answer : access run-time for 2003,Execution of this application has stopped due to a run-time error

The errors appear to be related to the message box. Try commenting out the code lines that reference the MsgBox, compile and run the code, then let me know what happens.