Thedon123
Registered User.
- Local time
- Today, 22:16
- Joined
- Sep 11, 2002
- Messages
- 98
I am very dunb when it comes to vb so i would appreciate this code being deciphered. i am gussing it takes a value and adds it somewhere.
Option Compare Database
Private Sub SelectSRO_Click()
Dim SRO As String
Dim currentRec As Long
[Form_Add Claim].FLT_CODE_FLT_CODE_ID = Me!SearchComp.Value
[Form_Add Claim].refresh_descriptions
'[Form_Add Claim].PostFaultCode_AfterUpdate
'[Form_Add Claim].VFaultCode_AfterUpdate
'[Form_Add Claim].CamFaultCode_AfterUpdate
'[Form_Add Claim].PFaultCode_AfterUpdate
'[Form_Add Claim].PartFaultCode_AfterUpdate
currentRec = [Form_Add Claim].CurrentRecord
DoCmd.Close acForm, "FC_Search_Add"
DoCmd.GoToRecord , , acGoTo, currentRec
End Sub
Private Sub Close_Click()
On Error GoTo Err_Close_Click
DoCmd.Close
Exit_Close_Click:
Exit Sub
Err_Close_Click:
MsgBox Err.DESCRIPTION
Resume Exit_Close_Click
End Sub
Option Compare Database
Private Sub SelectSRO_Click()
Dim SRO As String
Dim currentRec As Long
[Form_Add Claim].FLT_CODE_FLT_CODE_ID = Me!SearchComp.Value
[Form_Add Claim].refresh_descriptions
'[Form_Add Claim].PostFaultCode_AfterUpdate
'[Form_Add Claim].VFaultCode_AfterUpdate
'[Form_Add Claim].CamFaultCode_AfterUpdate
'[Form_Add Claim].PFaultCode_AfterUpdate
'[Form_Add Claim].PartFaultCode_AfterUpdate
currentRec = [Form_Add Claim].CurrentRecord
DoCmd.Close acForm, "FC_Search_Add"
DoCmd.GoToRecord , , acGoTo, currentRec
End Sub
Private Sub Close_Click()
On Error GoTo Err_Close_Click
DoCmd.Close
Exit_Close_Click:
Exit Sub
Err_Close_Click:
MsgBox Err.DESCRIPTION
Resume Exit_Close_Click
End Sub