Create A function Module.

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

Function Close1()
    DoCmd.Close
End Function

Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is loaded.

    Const conDesignView = 0
    Const conObjStateClosed = 0

    IsLoaded = False
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If Forms(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If

End Function

Create A Form of Worker Area Ware

Private Sub AreaCode_Change()
If AreaCode.Value = "MA" Then
Label6.Caption = "Manager"
End If
If AreaCode.Value = "SE" Then
Label6.Caption = "Second Officer "
End If
If AreaCode.Value = "CM" Then
Label6.Caption = "Center Manager"
End If

Creat A Input Form.

Private Sub Result_Click()

If Me.Sing.Value = "-" Then
Me.Results.Value = Me.InputN - Me.Inputs
Me.Results.Visible = True
End If

Created A LogOn Form.

Private Sub Form_Open(Cancel As Integer)
Form.DataEntry = True
End Sub

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

Private Sub Form_Timer()
Me.Label8.Caption = Time()
Me.Label8.Width = 1000
Me.Label8.Height = 1500

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

Create A Preview Report Form.

Private Sub EntryDate_LostFocus()
Me.AreaCode.Requery
End Sub

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

Private Sub Form_Load()
On Error GoTo err_Load
CNG.Value = False
Form.InsideWidth = 4590
Form.InsideHeight = 3100
'ÕMe.Preview.ControlTipText = Time()
err_Load:
End Sub

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

Private Sub Form_Timer()
Me.TimerInterval = 2500
Me.Detail.BackColor = Rnd * 12632256

End Sub

Made A Salary Change to Leave Form.

Private Sub AreaCode_Enter()
Label48.BorderColor = 4227072
Label48.BorderStyle = 0
Label48.SpecialEffect = 0
Label48.BackColor = 12632256
Label48.BorderWidth = 0
Label48.FontName = "SutonnyMJ"
Label48.FontSize = 13
If AppDate.Value <> 0 Then
Label48.Caption = "cieZ©x‡Z wZwb " & AppDate + 1097 & " Bs Zvwi‡L Av‡e`b Ki‡Z cvi‡eb|"
Me.sflfBranchCode.Value = (Me.BranchCode)
Me.AmountofSalary.Value = (Me.Amount.Value)
Me.MatuDate.Value = (Me.AppDate.Value + 1097)
End If
If IsNull([AppDate]) Then
Label48.Caption = "*** Av‡e`‡bi ZvwiL Gw›Uª †`Iqv nq bvB|"
End If

Made in Advise Form.

Option Compare Database
Option Explicit
Dim inwrd(100)

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

Private Sub AdAmountTotoal_GotFocus()
Me.AdAmountTotoal = (Me.PSTk + Me.DSTK + Me.WATK + Me.OThersTk)
End Sub

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

Private Sub AdAmountTotoal_LostFocus()
If Not IsNumeric(AdAmountTotoal) Then
MsgBox ("Invalid number or no number"), vbOKOnly + vbCritical, "Invalid Number"
AdAmountTotoal = ""
'Label3.Caption = ""
AdAmountTotoal.SetFocus
Exit Sub
End If

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()

Made a Correction Form.

Private Sub AreaCode_Change()
Me.BranchCode.Visible = True
Me.BranchCode.Value = ""
'Me.AllStaff.Value = ""

End Sub

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

Private Sub AreaCode_Enter()
Me.AreaCode.Dropdown

End Sub

Private Sub AreaCode_LostFocus()
Me.BranchCode.Requery

End Sub

Private Sub BranchCode_Change()
Me.AllStaff.Visible = True
Me.AllStaff.Requery
End Sub

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

Private Sub BranchCode_Enter()
Me.BranchCode.Dropdown
Me.AllStaff.Visible = True
End Sub

Private Sub BranchCode_LostFocus()
Me.AllStaff.Requery

End Sub

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

Private Sub Form_Load()
Me.AreaCode.Visible = False
Me.BranchCode.Visible = False

Made A Initial Form.

Private Sub Combo0_Change()
Me.Text2.Requery
If Combo0.Value = "CR_UC" Then
Me.CreditAdvise.Visible = True
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
End If

If Combo0.Value = "CR_E" Then
Me.CreditAdvise.Visible = True
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
End If


If Combo0.Value = "CR_O" Then
Me.AdviseOther.Visible = True

'Me.CreditAdvise.Visible = True
Me.PrintingAdvise.Visible = False
Me.ShareAdvise.Visible = False
Me.CreditTopsheet.Visible = True
Me.PrintingTopSheet.Visible = False
Me.Label24.Visible = True
Me.Combo23.Visible = True

Made a Startup Form

Private Sub Command79_Click()
If IsDate(Text75) Then

Form.Visible = False
End If
If Not IsDate(Text75) Then
DoCmd.GoToControl "Text75"
MsgBox "Please Entry Initial Date."
Form.Visible = True
Else
'Format([Date],"yyyy")
Me.MonthName.Value = "" & [MonthName] & "'" & Format([Text75], "YYYY") & ""

VB Code for made a form.

You can entry this code and show the magic



Private Sub Form_Open(Cancel As Integer)
'ÕDoCmd.Maximize
Label50.Caption = ""
Text49.Enabled = False

History of Grameen Bank

The Grameen Bank is a Nobel Peace Prize-winner micro-credit organisation and community development bank founded in Bangladesh. It makes small loans (known as micro-credit or “grameen-credit”) to the impoverished without requiring collateral. The name Grameen is derived from the word gram which means “rural” or “village” in the language of Sanskrit.

Micro-credit loans are based on the concept that the poor have skills that are under-utilized and, with incentive, they can earn more money. A group based credit approach is applied to use peer-pressure within a group to ensure the borrowers follow through and conduct their financial affairs with discipline, ensuring repayment and allowing the borrowers to develop good credit standing. The bank also accepts deposits, provides other services, and runs several development-oriented businesses including fabric, telephone and energy companies. The bank’s credit policy to support under served populations has led to the over whelming majority (96%) of its borrowers being women.

Grameen Bank originated in 1976, in the work of Professor Muhammad Yunus, professor at University of Chittagong, who launched a research project to study how to design a credit delivery system to provide banking services to the rural poor. Based on his positive results, in October 1983 the Grameen Bank was authorized by national legislation as an independent bank. In 2006, the bank and its founder, Muhammad Yunus, were jointly awarded the Nobel Peace Prize.

In 1998 the Bank’s “Low-cost Housing Program” won a World Habitat Prize. In 2011, the Bangladesh Government forced Muhammad Yunus to resign from Grameen Bank, saying that at age 72, he was years beyond the legal limit for the position.

Contuct

Contuct 

Name:Mohammad Nazirul Islam 

 Mobile No: 01723178997 

 e_mail: nazirul.gc@gmail.com 

 website: bdshomoy.blogspot.com