Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. crabback

    For each step 2

    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...
  2. crabback

    For each step 2

    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 ...
  3. crabback

    For each step 2

    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...
  4. crabback

    script to import form module with common dialog control

    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...
  5. crabback

    How do you add a reference during run time?

    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...
  6. crabback

    Get value of pagesetup.printtitlerows from excel to userform

    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
  7. crabback

    Get value of pagesetup.printtitlerows from excel to userform

    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...
  8. crabback

    get href to .doc or other file extension to open in correct app

    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
  9. crabback

    CommonDialog.ShowOpen does not retrieve UNC path

    Hi can anyone help me get my commondialog.filename to give the unc path rather than the mapped drive? Crabback
  10. crabback

    add more text to myItem.Body in Outlook 2000

    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...
  11. crabback

    add more text to myItem.Body in Outlook 2000

    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...
  12. crabback

    add more text to myItem.Body in Outlook 2000

    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...
  13. crabback

    add more text to myItem.Body in Outlook 2000

    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...
  14. crabback

    Very "basic" help required

    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
  15. crabback

    insert file as link in Outlook 2000

    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...
  16. crabback

    Newbie needs to rollout Normal.dot

    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
  17. crabback

    Application.FileDialog

    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...
  18. crabback

    Application.FileDialog

    Sorry! I should have said I am using Office 2000 on Windows XP Crabback
  19. crabback

    Application.FileDialog

    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...
  20. crabback

    Send file as link in outlook

    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...

Part and Inventory Search

Back
Top