hmmm... Just adding this for future references.
I realised the order I wanted to display may change. Also, if a book is deleted from the database the identity field would not be reliable. So, instead iMod variable was set to 1 within the For Each loop, incrementing each time the loop looped:
Dim...
Thanks Andy!
Nice and simple :) of course!!!
I created a variable that contained an identity field (incrementing by 1) from one of the tables. Then used the Mod operator to find if it was odd or even:
Dim iMod As Integer = pRow("iOrder")
If iMod Mod 2 Then
..... left column code here
else
...
Hey,
I have a For Each loop in my code that returns every book's details, from a category, into a table. The details of the book are displayed in a table:
http://www.crabback.com/brehonPress/category.aspx?id=5
I want to display the list in 2 columns on my page.
Is there a way to use the for...
Hi,
I've written a script on a workbook that runs on startup, imports a bunch of .bas and .frm files into the personal.xls, and then closes. The point of this is to update, over a WAN, 500+ employees Excel to contain macros and menus for the macros
It works great EXCEPT for one .frm file which...
I just did this in excel to check if the MSCOMDLG was referenced, if its not then the it is added to the references. It works great. Heres my code, you'll just need to tweak a bit for Word.
*** This sub calls the function TestComDlg32Reference to *** check if the reference already exists.
*** if...
Thanks PHV
Thats what I thought. I tried it yesterday before I went home, but I was putting it in the wrong part of my code so it didn't work.
Thanks
Crabback
Hi
Can anyone tell me if it is possible, and if so, how do I get the current value of the printtitlerows in Page setup to read into a variable in my userform?
I can send a value from my userform to set the printtitlerows, but I can't seem to get the value read back into my form.
[ponder]
Thanks...
Hi
I wonder could anyone tell me what settings (if it is possible) do I change so that an HTML format email sent from Outlook 2000 opens in the correct application eg.
my document.doc opens in Word, rather than Internet Explorer?
Thanks
Crabback
Hi
FYI I got this to work by creating a function that was called from the sub. I created a string variable to contain what I wanted as my HTMLBody, and used the function to add new lines to this string, finally I set myItem.HTMLbody to equal the final value of this string - I could add multiple...
Hi Again!
Lads, thanks so much for your help with this, I'm really appreciating it. I'm having one of those WEEKS Chance, so I feel for you. New job still using Office 2000 - clunk clunk, and I'm trying to write VBA for Outlook 2000 (never had the pleasure before [noevil])
Walker that worked...
Thanks for replying WalkerEvans...
I tried this as you said but I get an error on the Next - saying there is no preceding For??? weird, it looks fine to me, did you get this to work?:
Private Sub AddAction()
Dim FilePath, DocPath, DocName As String
FilePath = InputBox("What is the...
Hi
I have a macro that creates an email message and sets a link to a file in the the body of the email.
I want to write and additional sub that will allow the user to add other links to the body of the same message - is this possible? How would I do it? (I'm thinking there is probably a better...
I think the code you would use would roughly be something like:
CheckBox1.Value = True 'this defaults the checkbox to checked
CheckBox2.Enabled = False ' greyed out
If CheckBox1.Value = False Then
CheckBox2.Enabled = True
End If
Crabback
hey
I wonder can anyone help me. I'm trying to write a macro that allows a user to browse for a file and then inserts the file path and name as a link in an emails body.
I have code in a function (but I don't think it will work) that opens an instance of Word openfile dialog, and allows user...
Hi
I'm sure this is simple but...
I have written a macro into Words Normal.dot and I've been asked to do a rollout of it to one Department. I know nothing about performing group policy rollouts though! Can anyone give me some pointers or send me some good links/FAQs?
Thanks in advance
Crabback
ok I got it to work with:
Function BrowseFolder(Optional InitDir As String = "") As String
Dim strFolder As String
With Dialogs(wdDialogCopyFile)
If Len(InitDir) > 0 Then
.Directory = InitDir
End If
If .Display...
Hi,
I am trying to open a browse window in Word. I think the code should be something like:
Function BrowseFolder() As String
'This opens a browse window and collects path as return value
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show Then...
Hi
I've written a macro in word that when run copies the file name and path into a new document as hyperlinked text, and opens the document for emailing.
I want to recreate the same macro in Outlook 2003. At the moment as long as I give the file and path in the code, it works fine... But I...
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.