I think this results from a new security setting in Word 2003, which prompts the user for verification when opening a datasource. The default value is no (No, don't attach the datasource), and when using automation, you are not given the opportunity to respond "yes". This security feature is...
I think this results from a new security setting in Word 2003, which prompts the user for verification when opening a datasource. The default value is no (No, don't attach the datasource), and when using automation, you are not given the opportunity to respond "yes". This security feature is...
Bad news, KZPools. After much gnashing of teeth, I held a training for my users explaining that if they don't get the results they want, they should try again after unchecking the box. This works when it is obvious that the results are wrong (When they KNOW we have more that one Smith in the...
This is basic code to send an email with VBA, and it includes an option to create the email with an attachment. You will first need to set a reference to the version of Outlook you are using.
Sub SendMessage(Recipname As String, SubjectText As String, BodyText As String, Optional...
You have an extra space in front of the class name, so your criteria is
[TBL-1].[Attribute-Name] = ' Class1'
instead of
[TBL-1].[Attribute-Name] = 'Class1'
...has set
Dim rstCurrent As Recordset
Dim strSQL As String
Dim strUserName As String
'get the user name
Dim sUser As String
Dim lpBuff As String * 1024
'Get the longin User Name
GetUserName lpBuff, Len(lpBuff)
sUser = Left$(lpBuff, (InStr(1, lpBuff, vbNullChar)) - 1)
lpBuff...
Quehay's right, it was difficult to follow the wording of your question, but I think I get the jist of it. The SQL you provided is the recordsource of your subform, Y. The query pulls data from the combo boxes and refreshes as the selection in the combobox changes. You want to dynamically set...
Have you checked to see if there is a "skip record if" code in the beginning of the merge template? You can look at the hidden codes with Alt+F9. You might also check that there are no filtering options turned on by going back through the wizard and make sure to "select all"...
You can in the On_Format Event of the report.
Select Case txtStatus
Case 2, 5, 6
NameOfLabel.Caption = "A"
Case 1,3,4, 7
NameOfLable.Caption = "B"
You can set the reference from the code window. Click Tools/References. Scroll down to Microsoft Outlook and click the box next to it. click OK to set the reference.
If you replace the
objMail.Send
with
objMail.Display
the user will have to manually send the message, which I kinda like...
There's no option for a back color on a command button, for some reason. The workaround I use is to make a label the exact size and shape of the command button (you'll also want to make the special effect Raised, to make it look like a button), then copy and paste the code from the click event...
FYI, it is not considered good practice to repost the same questions three times unless you've not gotten a response after several days.
If you are calling the opening of the preview version from a command button on a form, you could use this:
Private Sub Command0_Click()
DoCmd.OpenReport...
For some reason, the default value of "Search Fields as Formatted" in the Find and Replace dialog box in Access XP is Checked. Users must remember to uncheck it each time in order to get correct search results. In prior versions, defaults for this dialog box were set in...
This one works in the form's Ondelete event, but is Access not prompting you to confirm deletes anyway?
Private Sub Form_Delete(Cancel As Integer)
Dim intResponse As Integer
intResponse = MsgBox("Are you sure you want to Delete?", vbOKCancel, "Confirm Delete")
If...
Whoops! In looking at some code I've used, I think this is how you refer to a control's properties on format:
Dim ctlControl As Control
For Each ctlControl In Controls
If ctlControl.Tag = "BarCode" Then
ctlControl.Top = 0.2
End If
Next ctlControl
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.