Create A Certificat Form

Private Sub AreaCod_Enter()
Me.AreaCod.Value = Me.AreaCode.Value
End Sub
Private Sub BranchNameof_Enter()
BranchNameof.Value = BranchName
If Combo18 = "cÖv_wgK" Then
examc.Value = 1
End If
If Combo18 = "gva¨wgK" Then
examc.Value = 3
End If
If Combo18 = "D”P gva¨wgK" Then
examc.Value = 4
End If

If Combo18 = "wbæ gva¨wgK" Then
examc.Value = 2
End If
If Combo18 = "mvs¯‹…wZK" Then
examc.Value = 5
End If
If Combo18 = "cÖv_wgK" Then
ScAmount.Value = 100
End If
If Combo18 = "gva¨wgK" Then
ScAmount.Value = 150
End If
If Combo18 = "D”P gva¨wgK" Then
ScAmount.Value = 175
End If
If Combo18 = "wbæ gva¨wgK" Then
ScAmount.Value = 125
End If
If Combo18 = "mvs¯‹…wZK" Then
ScAmount.Value = 200
End If

End Sub

Private Sub Combo18_Enter()
Me.Combo18.Dropdown
End Sub

Private Sub Combo20_Enter()
Me.Combo20.Dropdown
End Sub

Private Sub Dateof_Enter()
Dateof.Value = "31/12/2012 Bs|"
Me.Nameof.Requery
Me.FMName.Requery
Me.Combo18.Requery
Me.Combo20.Requery
End Sub

Private Sub FMName_Enter()
Me.FMName.Dropdown
End Sub

Private Sub Form_Timer()
Me.DatasheetForeColor = Rnd * 987789
Me.Label29.Caption = Time()
Me.Label29.ForeColor = Rnd * 1723178997
Me.Label29.FontItalic = True
End Sub

Private Sub LoaneeNo_Enter()
Year.Value = "2012"
End Sub

Private Sub Nameof_Enter()
Me.Nameof.Dropdown
End Sub

Private Sub Year_Enter()
On Error GoTo err_Year_Enter

CenterNo.Value = CenterNo & "/g"

Exit_Year_Enter:
    Exit Sub
err_Year_Enter:
    MsgBox Err.Description
    Resume Exit_Year_Enter
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