Made A Lonee Information Form.

Private Sub CNG_Click()
If CNG = True Then
Label57.Caption = "**** Avcwb gUi PvwjZ hvbevnb µ‡qi Rb¨ FY Aby‡gv`b w`‡”Qb|"
End If
If CNG = False Then
Label57.Caption = ""
End If
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub DespuchN_LostFocus()
On Error GoTo Err_DespuchN_LostFocus
DespuchNo_Date.Value = (DespuchN.Text)
Exit_DespuchN_LostFocus:
    Exit Sub
Err_DespuchN_LostFocus:
    MsgBox Err.Description
    Resume Exit_DespuchN_LostFocus
End Sub

------------------------------------------------------------------------------------------------------- 

Private Sub Form_Load()



Text53.InputMask = "99/99/0000;0; "
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Form_Timer()
Me.TimerInterval = 500
Me.Line55.BorderColor = Rnd * 12632256
Me.Line56.BorderColor = Rnd * 12632256
Me.Line55.BorderStyle = Rnd * 7
Me.Line56.BorderStyle = Rnd * 7
Me.Line55.BorderWidth = Rnd * 5
Me.Line56.BorderWidth = Rnd * 5
'Me.Form.Caption = "Special Investmet............................  Now Time is- " & Time()

End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Item_Change()
If Item = "BB" Then
FileNo.Value = "Me/hA/Puv`/cÖkv/251/" & Year(Text53) & "-"
DoCmd.GoToControl "FileNo"
Subject.Value = "welq t we‡kl wewb‡qvM cÖK‡íi FY weZi‡Yi Aby‡gv`b cÖms‡M|"
End If
If Item = "GBB" Then
FileNo.Value = "Me/hA/Puv`/cÖkv/251/" & Year(Text53) & "-"
DoCmd.GoToControl "FileNo"
Subject.Value = "welq t bZzb Avw½‡K MÖvgxY e¨emv weKv‡ki M¨vivw›U‡Z we‡kl wewb‡qvM cÖK‡íi FY weZi‡Yi c~e©vby‡gv`b cÖms‡M|"
End If
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Next_Click()

On Error GoTo Err_Next_Click
    DoCmd.GoToRecord , , acNext

Exit_Next_Click:
    Exit Sub
Err_Next_Click:
    MsgBox Err.Description
    Resume Exit_Next_Click
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Previous_Click()

On Error GoTo Err_Previous_Click
    DoCmd.GoToRecord , , acPrevious
   
Exit_Previous_Click:
    Exit Sub
Err_Previous_Click:
    MsgBox Err.Description
    Resume Exit_Previous_Click
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Delete_Click()
On Error GoTo Err_Delete_Click


    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

Exit_Delete_Click:
    Exit Sub

Err_Delete_Click:
    MsgBox Err.Description
    Resume Exit_Delete_Click
   
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub BB_Click()
If BB.Value = True Then
GBB.Value = False
FileNo.Value = "Me/hA/Puv`/cÖkv/251/" & Year(Date) & "-"
DoCmd.GoToControl "FileNo"
End If
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub GBB_Click()
If GBB.Value = True Then
BB.Value = False
FileNo.Value = "Me/hA/Puv`/cÖkv/251/" & Year(Date) & "-"
DoCmd.GoToControl "FileNo"
End If
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Text28_LostFocus()
If Not IsNumeric(Text28) Then
MsgBox "Only Loane number entry Please"
Text28 = "0"
End If
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Text34_LostFocus()
If Not IsNumeric(Text34) Then
MsgBox "Only Group number entry Please"
Text34 = "0"
End If

End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Text53_LostFocus()
On Error GoTo err_Text53_LostFocus
EntryDate.Value = (Text53.Text)
If Not IsDate(Text53) Then
MsgBox "Please Entry Date, Date Format is dd/mm/yyyy"
Text53 = ""
End If
exit_Text53_LostFocus:
Exit Sub

err_Text53_LostFocus:
MsgBox Err.Description
Resume exit_Text53_LostFocus
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub BranchCode_Enter()
On Error GoTo Err_BranchCode_Enter

LoaneeName.Value = "Rbve " & LoaneeName.Value
CenterNo.Value = CenterNo.Value & "/g"
Me.BranchCode.Dropdown

Exit_BranchCode_Enter:
    Exit Sub
   

Err_BranchCode_Enter:
    MsgBox Err.Description
    Resume Exit_BranchCode_Enter
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Preview_Click()
On Error GoTo Err_Preview_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "ReportPreview"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Preview_Click:
    Exit Sub

Err_Preview_Click:
    MsgBox Err.Description
    Resume Exit_Preview_Click
   
End Sub

-------------------------------------------------------------------------------------------------------

Private Sub Edit_Click()
On Error GoTo Err_Edit_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "Data"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Edit_Click:
    Exit Sub

Err_Edit_Click:
    MsgBox Err.Description
    Resume Exit_Edit_Click
   
End Sub