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

Vote Please.......

Please entry your comment.

Vote Please.

In Word in Bengli by Bangladeshi Format (Part-2)

Created of your form is below option

Text Box, Command Button, Label

and typing your code:



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

Dim num
num = Val(Text1)
num = Format(num, "0.00")
Do Until Len(num) = 12
num = 0 & num
Loop

p = Right(num, 2)
d = Mid(num, 8, 2)
s = Mid(num, 7, 1)
h = Mid(num, 5, 2)
l = Mid(num, 3, 2)
k = Mid(num, 1, 2)

If Val(p) > 0 Then
p = inwrd(p) & " Paisa"
Else
p = ""
End If

If Val(d) > 0 Then
d = inwrd(d)
Else
d = ""
End If

If Val(s) = 0 Then
s = ""
ElseIf Val(s) = 1 Then
s = inwrd(s) & " Hundred "
ElseIf Val(s) > 1 Then
s = inwrd(s) & " Hundreds "
End If

If Val(h) = 0 Then
h = ""
ElseIf Val(h) = 1 Then
h = inwrd(h) & " Thousand "
ElseIf Val(h) > 1 Then
h = inwrd(h) & " Thousands "
End If

If Val(l) = 0 Then
l = ""
ElseIf Val(l) = 1 Then
l = inwrd(l) & " Lac "
ElseIf Val(l) > 1 Then
l = inwrd(l) & " Laks "
End If

If Val(k) = 0 Then
k = ""
ElseIf Val(k) = 1 Then
k = inwrd(k) & " Crore "
ElseIf Val(k) > 1 Then
k = inwrd(k) & " Crores "
End If

wrd = k & l & h & s & d & " Taka " & p & " Only."
Label3.Caption = wrd


and Run your from and typing

Finish.

In Word in Bengli by Bangladeshi Format (Part-1)

Part of General write below  Code:

Dim inwrd(100)

After you Typing the form load option:

Label1.Caption = "Taka:"
Text1.Text = ""
Text1.MaxLength = 9
Text1.TabIndex = 0
Label2.Caption = "In Word:"
Label3.Caption = ""
Label3.FontBold = True
Command1.Caption = "Make in Word"

Code of vb (Part-6)

Private Sub ItemCode_Enter()
If ItemCode.Value = "11" Then DoCmd.GoToControl "MonthlyDonationAmount"
    CashPaidtoadmissiontime.Locked = True
    CashPaidtoadmissiontime.Enabled = False
    PaidKisty.Locked = True
    PaidKisty.Enabled = False
    YearlyProfit.Locked = True
    YearlyProfit.Enabled = False
    LoanDisburse.Locked = True
    LoanDisburse.Enabled = False
    ServiceCharge.Locked = True
    ServiceCharge.Enabled = False
    WithdrwalAmount.Locked = True
    WithdrwalAmount.Enabled = False
If ItemCode.Value = "10" Then DoCmd.GoToControl "CashPaidtoAdmissionTime"
   

Code of vb (part-5)

Option Compare Database   'Use database order for string comparisons.
Option Explicit

Private Sub Report_Page()
   
    'Draw a page border around this report.
     Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), , B
    
End Sub

Private Sub Report_Activate()

    '  Hide built-in Print Preview toolbar.
    DoCmd.ShowToolbar "Print Preview", acToolbarNo
   
End Sub

Private Sub Report_Deactivate()

    '  Show built-in Print Preview toolbar where appropriate.
    DoCmd.ShowToolbar "Print Preview", acToolbarWhereApprop

End Sub

Code of vb (Part-4)

Option Compare Database  ' Use database order for string comparisons.
Option Explicit  ' Requires variables to be declared before they are used.

Private Sub Cancel_Click()
' This code created by Command Button Wizard.
On Error GoTo Err_Cancel_Click

    ' Close form.
    DoCmd.Close

Code of vb (part-3)

Private Sub Command3_Click()
On Error GoTo Err_Command3_Click

    Dim stDocName As String

    stDocName = "Area wise Monthly Donation PaidReport"
    DoCmd.OpenReport stDocName, acPreview

Code of vb (part-2)

Option Compare Database
Option Explicit


Private Sub Form_Activate()
On Error GoTo Err_Form_Activate
    Me![Workorders by Customer Subform].Requery

Exit_Form_Activate:
    Exit Sub

Err_Form_Activate:
    MsgBox Err.Description
    Resume Exit_Form_Activate
End Sub
Private Sub Workorders_Click()
On Error GoTo Err_Workorders_Click
    If IsNull([CustomerID]) Then
        MsgBox "Enter customer information before entering workorder."
    Else
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        DoCmd.OpenForm "Workorders"
    End If

Code of vb (part-1)

Option Compare Database
Option Explicit


Private Sub Form_Open(Cancel As Integer)
    Me.Caption = Me.OpenArgs
End Sub
Private Sub Preview_Click()
    If IsNull([Beginning Date]) Or IsNull([Ending Date]) Then
        MsgBox "You must enter both beginning and ending dates."
        DoCmd.GoToControl "Beginning Date"
    Else
        If [Beginning Date] > [Ending Date] Then
            MsgBox "Ending date must be greater than Beginning date."
            DoCmd.GoToControl "Beginning Date"
        Else
            Me.Visible = False
        End If
    End If
End Sub

Code of in Word (part-2)

Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right(“000” & MyNumber, 3)
‘ Convert the hundreds place.
If Mid(MyNumber, 1, 1) “0” Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & “ Hundred “
End If

Code of in Word (part-1)

Option Explicit
‘Main Function
Function SpellNumber(ByVal MyNumber)
Dim Taka, Paisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = “ Thousand “
Place(3) = “ Million “
Place(4) = “ Billion “
Place(5) = “ Trillion “
‘ String representation of amount.
MyNumber = Trim(Str(MyNumber))
‘ Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, “.”)
‘ Convert Paisa and set MyNumber to Taka amount.
If DecimalPlace > 0 Then
Paisa = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
“00”, 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If

Code of in Word

Option Explicit
‘Main Function
Function SpellNumber(ByVal MyNumber)
Dim Taka, Paisa, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = “ Thousand “
Place(3) = “ Million “
Place(4) = “ Billion “
Place(5) = “ Trillion “
‘ String representation of amount.
MyNumber = Trim(Str(MyNumber))
‘ Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, “.”)
‘ Convert Paisa and set MyNumber to Taka amount.

Applicatio for job.

Date: 01/09/2014
To
The Executive vice president
HRD (Human Resource Division)
United Commercial Bank Limited.
Corporate Head Office
House No CWS(A), Gulshan Avenue
Dhaka-1212.

Subject: Prayer for the post of Sinior Executive Officer.

Dear Sir

Responding from reliable source you are going recruit some senior executive officer in your esteemed Bank. I would like to offer myself as a candidate for the post. My curriculum Vita and other particulars are enclosed with the application for your kind consideration.

I, therefore pray and hope that you would-be gracious enough to give me an opportunity to work in your esteemed Bank to prove my worth.


Yours faithfully

Md. Shamsul Haque.

Activities of Grameen Bank Staff

1. Present Working Organization: Grameen Bank.

2. Service Duration        : April 8, 1985 to still now.
 

3. Working location and experience in Branch Office and other related Offices are given below:
 

4. Joined Grameen Bank, Kishoregonj & Gazaghanta Ganggachara Rangpur Zone as a Branch Manager and worked there from October 01 1985 to May 31 1989. Organizational designation was Senior Officer.
 

Activities: Loan disbursement and recovery, Account and Fund Management, prepare monthly and yearly reports, prepare yearly budget planning and implementation, Evaluation and monitoring of Branch level work.