Recent content by badermsb

  1. B

    apostrophe in target Db name throws error

    You could get the target db name before you run the query and either remove any apostrophes informing the user of this via a msgbox or you could try and replace the apostrophe with a smart quote (asc 180).
  2. B

    Filter by Combo box entry

    Try Forms![Form Name]![ComboBox]
  3. B

    Find and Replace Query or Macro

    Access has code modules
  4. B

    Find and Replace Query or Macro

    Not sure how to do that with a query/macro, but here is some code that will work. Sub UpdateRecords() Dim db As Database Dim rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("Table_Name", dbOpenTable) If Not rs.BOF And Not rs.EOF Then Do Until...
  5. B

    excel if on query

    Is this to be used for a report?
  6. B

    Dynamic Import of CSV files with varying names

    If the amount of files is small, list them in a listbox and let the users pick & choose which ones to import... Or just write browse code behind the button. I'd be suprised if their is not an example of how to code it already in this forum. If not let me know and I'll post one tomorrow.
  7. B

    The best FREE software thread

    This site has some really good database tools for Oracle, SQL MySql and others that they sell, but also have free lite versions that are just exe files and can be run from a flash drive.
  8. B

    Dynamic Import of CSV files with varying names

    Are the only CVS Files the one in the folder? What happens to the file once imported? You could write code that either would display the files for the user to select for importing or if once imported they are deleted, then just write the code to import all the CVS files currently in the folder.
  9. B

    Auto Login Linked Tables

    When you link the table, check the box to remember the password.
  10. B

    first multiselect listbox item selected

    here's an example. Listbox multi setect property = extended Dim x As Integer For x = 0 To listbox.ListCount - 1 If istbox.Selected(x) Then MsgBox istbox.Column(0, x) End If Next x
Back
Top Bottom