dear sir can any one help me that how to get the value or any strings
type in input box to update the value of a bound form...the text box
on bound form name is policyno
or any other example that can help me in order to understand hereunder
scenerio
rgds, shahzad
Private Sub btnDuplicate_Click()
On Error GoTo Err_btnDuplicate_Click
Dim msgText As Integer
Dim txtPolicyNo As String
Dim msgInput As String
Dim msgTitle As String
Dim txtInput As String
msgInput = "Enter new Policy No."
msgTitle = "Renewal Motor Policy No"
txtPolicyNo = POLICYNO.Value
msgText = MsgBox("Do you want to renew Policy No. " & txtPolicyNo,
vbQuestion + vbYesNo, "Renewal: Motor Policy")
If msgText = 6 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste
Append
txtInput = InputBox(msgInput, msgTitle, txtPolicyNo)
Else
MsgBox ("You cancel the renewal of Policy No. " & txtPolicyNo)
End If
Exit_btnDuplicate_Click:
Exit Sub
Err_btnDuplicate_Click:
MsgBox Err.DESCRIPTION
Resume Exit_btnDuplicate_Click
End Sub