Search results

  1. A

    Store odbc connection in FE or BE?

    I have split a few different MS Access databases before with the BE on a shared drive and the FE installed on all users' local machine. In this instance, I have three ODBC connections bringing in data to my tool from an outside database once a day. Does anyone know if it is faster to store...
  2. A

    Splitting My Access DB - ODBC Connection

    I have split a few different MS Access databases before with the BE on a shared drive and the FE installed on all users' local machine. In this instance, I have three ODBC connections bringing in data to my tool from an outside database once a day. Does anyone know if it is faster to store the...
  3. A

    Loop through all text boxes on a form

    The looping through textboxes is great; conditional formatting is slow
  4. A

    Loop through all text boxes on a form

    I have about 25 text boxes that get populated based on a financial transaction; quite often about half of them are empty. i wanted to gray them out if they are emtpy (.enabled = false). I could put a series of IF statements in the vba for each one, but its bulky and time-consuming. I've done...
  5. A

    MS Access VBA Recordset

    Here is my solution; figured out my "issue" With rst .MoveFirst For Each fld In rst.Fields If mystring = "" Then If fld.Value <> "" Then mystring = "[" & fld.Name & "]" & fld.Value End If Else If fld.Value <> "" Then mystring =...
  6. A

    MS Access VBA Recordset

    I have a recordset pulling 50 columns from a 100 column table for one record; i want to pull all fields from the recordset if not null and append the column header to the value as well; I am having issues looping through; Any help is greatly appreciated! Sample UNTESTED CODE - Just a thought...
  7. A

    deleting worksheets instead of hiding

    This code works perfectly when I hide the sheets that are empty, when I try to delete them, the code runs but none of the sheets get deleted. Any thoughts?? Dim varSplit As Variant Dim iwsCount As Integer Dim iwsRangeCount As Integer Dim blnallempty As Boolean Dim z As Integer varSplit =...
  8. A

    Evaluating multiple cells in a range

    Is there a reason within the section of code if I wanted to delete the sheets instead of hide them, that delete would not work. I have gone line by line and the code passes the delete line, but in the final product, it doesn't work. Any suggestions?
  9. A

    Evaluating multiple cells in a range

    THe code isn't getting stuck in the loop, but appears to only evaluate the first worksheet. Any ideas?
  10. A

    Evaluating multiple cells in a range

    bob, I tried the latter code you posted with the boolean and can't get it to work. It appears it is getting stuck in the loop: varSplit = Split("A5,A18,A49,A64,A77,A115,A130,A143,A177,A192,A205,A249", ",") For iwsCount = 1 To objwb.Worksheets.Count For iwsRangeCount = 0 To UBound(varSplit)...
  11. A

    Evaluating multiple cells in a range

    Thanks bob, I will give that a try.
  12. A

    Evaluating multiple cells in a range

    I have code in access vba to export data to excel. If certain cells are blank in each worksheet, I want the sheet hidden in excel. With my code below, it only appears to be evaluating the first cell in my range. Any thoughts? For Each objws In objwb.Worksheets objws.Activate...
  13. A

    ACCESS SQL STRING problem

    I can't get this to run in Access vba. I get a too few parameters error. Expected 1. The problem lies here I believe : [All details table] WHERE ([updated max transaction] + 30)>=#" & Me.txt_cfodate2 & "# I think it is a date error, the txtbox I pull from is a date as well and updated max...
  14. A

    Highlight a Row based on a date

    If (Cells(r, 13).Value) = "OPEN" And DateValue(Cells(r, 6).Value) < DateValue(Me.txt_cfodate) When I put datevalue in, I get a type mismatch error, it is because of the bolded area above, so frustrating!!
  15. A

    Highlight a Row based on a date

    If r.Cells(, "c") = "" Or r.Cells(, "C").Value = " " Then In this line of code, are you referring to column C? Can you intercahnge numbers and letters for columns? I have my code running now, but it doesn't actually highlight anything. Also, I implemented, lastrow =...
  16. A

    Highlight a Row based on a date

    Okay. I am still a little new to VBA? Would inserting a do until statement get rid of my data mismatch problem i am having here: If (r.Cells(, 13) = "OPEN") And DateValue(r.Cells(, 6).Value) < DateValue(Me.txt_cfodate) Thanks again for your help
  17. A

    Highlight a Row based on a date

    Thanks for the help. Unfortunately you can't set a variable as long or an integer if it is part of a For..Next Statement, it has to be an object or variant.
  18. A

    Highlight a Row based on a date

    Dim r as range I think this is problem with my datevalue calculation. Any idea how to get around it? Can I set r to a string instead of a range?
  19. A

    Highlight a Row based on a date

    Yes, What you wrote is what I want and is correct, still getting a data type mismatch. I am assuming because DATEVALUE is for use on a string?
  20. A

    Highlight a Row based on a date

    I am trying to highlight a row based on a date. I am tryin to use the DATEVALUE on a range field and am getting a data type mismatch. Any ideas on how to restructure my code to get around this? Thanks For Each objws In objwb.Worksheets If Right(objws.Name, 6) = "Detail" Then 'MsgBox...
Back
Top Bottom