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 bkrike 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: *

  • Users: butchkmd
  • Content: Threads
  • Order by date
  1. butchkmd

    sql statement through vb code

    I am using this sql statement called from a class module RST.Open "select DISTINCT REPNAME, E_MAILADDR, ILEC, LEVEL] from escalateemail where ilec = " & "'" & strIlec & "'" & " AND " & strState & " = 1 order by [level]", CN, adOpenForwardOnly...
  2. butchkmd

    change focus of sheets from VB

    I need to populate some cells in Excel through VB I origionaly use Set sht = wb.Sheets("NameOfSheet") then I poulate the cells I need now I need to change to the next sheet in the workbook. when I use. Set sht = wb.Sheets("NextSheet'sName") I don't get an error but my...
  3. butchkmd

    trouble creating string

    I'm reading a recordset and creating a string to be used in a select case. Do While Not rsT.EOF strLinked = """ & Trim(rsT(1)) & "", " & strLinked rsT.MoveNext Loop I can't get it to give me a string of "rst(1)", "rst(1)", and so...
  4. butchkmd

    flexgrid max rows?

    I need to load a rather large recordset (aprox 140,000 records) and populate a flex grid. It blows up at 35,000. Anyone know if that is in fact the max rows count? Any suggestions or alternatives? I can't split the record set.
  5. butchkmd

    error 7 out of memory

    I'm trying to load a large recordset into a flexgrid. The rec-count is 37214 records. When I check absolute position I'm at 3500 when it blows up giving me the error 7. Could it be this is max records allowed in a grid or could there be a system memory problem? Any help would be greatly...
  6. butchkmd

    page set up ???

    I use this code to lay out my pagesetup sht.PageSetup.PrintArea = ("A:n") sht.PageSetup.BottomMargin = 0 sht.PageSetup.TopMargin = 0 sht.PageSetup.RightMargin = 0 sht.PageSetup.LeftMargin = 0 sht.PageSetup.CenterHorizontally = True...
  7. butchkmd

    format column in exel spreadsheet

    I need to change the format of a column to "number" from "general" and have not been able to get it so far. Here is the code any suggestions? sht.Range("d:d").ColumnWidth = 15 sht.Range("D3").Value = "CLAIM #&quot...
  8. butchkmd

    format column in Excel through vb?

    I need to change the format of a column in excel to "number" from "general" and have had no luck getting it to work. Below is the code. Any suggestions? sht.Range("d:d").ColumnWidth = 15 sht.Range("D3").Value = "CLAIM #&quot...
  9. butchkmd

    error 404

    I'm trying to trouble shoot a program while the designer is on vacation. It's a 3 tier which uses a class to export reports to excel. when I try to step through the code I get an "automation error...This system cannot find the path specified" The code calls a new instance of the...
  10. butchkmd

    FG thats a non-conformist

    I have a FG where I need to merge the cells in some of the top rows giving the report name, dates, and when there is no data in the report it says on the last line "NO RECORDS TO REPORT". as I step through the code and use the immediate window I can see the values are correct but the...
  11. butchkmd

    trouble with vb class obj return

    I am making a function in a class to return 2 fields from a table in SQL 7 this is the code Public Function GetReCurChgs(strCustno As String) As String Dim rsTemp As ADODB.Recordset Set rsTemp = New ADODB.Recordset rsTemp.Open "select chg_desc,chg_amt from rcufil...
  12. butchkmd

    Hi there, I'm working on an a

    Hi there, I'm working on an app in which I need to use 2 main forms and a separate area for notes. I would like to create a form similar to the help files (2 halves of a form with a bar in between to resize). I will need to switch the contents on one side between the 2 main forms while...
  13. butchkmd

    vb and cobol

    Any suggestions where to find a driver to hook vb to cobol, (if this is possible). Thanks for the help
  14. butchkmd

    anyone know how to open a protected Word document?

    100+ page document is password protected in WORD '95 (I believe 95). Person who did origional password protected it and didn't record it and of course is no longer working.
  15. butchkmd

    runtime error 9 out of range

    I used this line in my code Worksheets("worksheet6(R S Cont.(2))")!Range!(T33:AI33").Value = "" and I get the error "out of range" the cell range is there on ws6 I don't get it any suggestions? Thanks Matt
  16. butchkmd

    formula developement

    To all who have helped with the previous posts I thank you again. That issue is resolved. My trouble now is creating a formula that evaluates the text in one cell and depending on what it is change the text in another. ex cell a1 = "sunglasses" now if cell a1 on sheet2 =...
  17. butchkmd

    cell merge macro?

    Has anyone had success with a cell merge macro for the purpose of splitting one cells data to fill several cells? ex. cell a1=123456 {tab} macro splits and merges cells so a1:a6 = 1 2 3 4 5 6 respectively one digit per cell what do you think? I'm all ears [bigears]
  18. butchkmd

    Need to develope key press event in Excel

    I need to develope a keypress event in Excel where a value typed into a cell can be evaluated without pressing enter or tab or anything. I have a loop the evaluates the len(activecell.value), if 1 it moves to the next cell and sends focus to the worsheet selectionchange_event where I call the...
  19. butchkmd

    fire macro on any keystroke?

    I have a spreadsheet that I am using a macro to move to the next cell if len(text)= 1. I have not found a way yet to fire the macro with every keystorke. I tried the worsheet change event but you have to press enter for it to work. Any suggestions would be greatly appreciated Matt
  20. butchkmd

    SETTING RANGE IN EXCEL

    I have an application in excel in which we would like to use one cell per letter much like a form. I have a macro in a modual evaluating the len(activecell.value) if > 0 I want it to move to the next unlocked cell. Dim varCol As Variant Dim varRow As Variant Dim varCell As Variant ' ' autotab...

Part and Inventory Search

Back
Top