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 wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by butchkmd

  1. butchkmd

    sql statement through vb code

    that was it, my connection optionswere messing me up. thanks for the help...
  2. butchkmd

    sql statement through vb code

    I tried to cut and paste it into analyzer and fill in the values for the variables, it returns the right data, when I check the values of the variables steopping through, it matches the data in the query. It has to be something with the select, something silly, there are no errors but it...
  3. butchkmd

    sql statement through vb code

    hhmm, to reply to Luis, I tried the ''s around the 1 and no dice. when I step through the code, the variables are correct...I'm not sure what additional debugging you are refering to?? nicsin, If I included the strState inside the quotes it would pass the variable name instead of the value...
  4. 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...
  5. 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...
  6. 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...
  7. butchkmd

    Toggle CheckBox Without On_Click event firing

    mabe you could use a flag in addition to your if then statement, then if the event fired and sent it through the loop again you can exit sub
  8. 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.
  9. butchkmd

    error 7 out of memory

    correction to above. Absolute position is 34997 when error occurs
  10. 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...
  11. 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...
  12. butchkmd

    format column in exel spreadsheet

    the formatnumberline did the trick but the select line got an error. I made it read this and it worked... Sub Format_Sheet() sht = ActiveSheet.Name Worksheets(sht).Range("d:d").ColumnWidth = 15 Worksheets(sht).Range("D3").Value = "CLAIM #&quot...
  13. 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...
  14. 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...
  15. butchkmd

    error 404

    make that error 440

Part and Inventory Search

Back
Top