Search results

You cannot have any bound form, control, or object associated with a linked table of the database you want to compact/repair open while you are doing it. This includes any DAO/ADO recordsets that you have opened. Everything bound must be closed when running the compact/repair. Either run the...

There is really no order of records in a table. Records are loaded from memory in random order, unless specified using the Order By clause, which is what you need if doing it by date. SELECT TOP 1 * FROM [Table Name] ORDER BY [Date Field Name] desc;

There are auction sites on the net, but I was thinking something a little less formal. Or even a place to put a link to those auction sites. There could be several categories from this: (1) Employers looking for full-time IT/Database employees - this includes people who know that their...

Or you could try using CDO instead of a redemption.dll

Or use vbNewLine

The problem is that either someone is using a Front-End that is updating/retrieving data from the backend. Or, there is no one else in the front-end and your database's form or some control is bound to a linked table, forcing the back-end to have an lock file (.ldb) associated with it.

'Save the beginning of the Update SQL in a variable strUpdate = "UPDATE [NO REASON LETTER REPORT TABLE] " 'If "Do Not Display SSN" field in "No Reason Letter Report Table" is true (checked) If (.Fields("DO NOT DISPLAY SSN").Value) Then 'Set "Sort Field1" equal to...

I've added a stripped down version of an email interface I made. It doesn't use any API calls (besides for the background gradient of forms). Data included is test data and does not actually exist, so don't try emailing those people :) Take time and study it first. And make sure to show...

Or try this: Public Function RefreshTableLinks() Dim tbl As DAO.TableDef Dim db As DAO.Database Dim sPath As String Dim sFileName As String Dim sConnect As String Dim iBeg As Integer Dim iEnd As Integer Set...

I believe he is trying to change the path stored in the Linked Table Manager via Code, not the path of a recordset object. If this is true, it should be something like: Public Function RefreshTableLinks() Dim tbl As DAO.TableDef Dim db As DAO.Database Dim sPath...

I no longer use redemption and instead use the microsoft schemas. It's amazing how far things have come in two years. This was a pretty old post :) If you use an email list table, which has the report name assigned to it, the pseudocode goes as follows: Dim sTo As String Dim rs As...

Just so you know, datTestSmallDateTime is never initialized or used. Furthermore Public Function TestSmallDateTime(datValue) should include the return type:Public Function TestSmallDateTime(datValue) As Date The following code I've written would be better than using labels and checks if the...

I'd like to see a section dedicated to people willing to pay for access projects, or people who can post positions open for employment at their company.

My moderator status has been revoked once the database was hacked. Currently working with Jon to reinstate me. I'll go back through and revise the Module/VBA section when this happens

The best way to do this (depending on the size of the other columns) is to load all three columns in the listbox, but only show column A. You can hide the other columns by changing the column widths in the property window of the listbox (i.e. Column Widths: 2.5";0";0") The code to loop through...

First, your function isn't returning any value. The correct syntax for function definition would be something like: Function regexpparts(inputfield As String) As SomeVariableType End Function However, if you are trying to return multiple values that are needed, pass the parameters by...

You don't need the New key word and you should be more explicit when definining your objects. Dim str1 As String Dim rs As DAO.Recordset Dim db As DAO.Database New is used for auto-instancing, which is not necessary in this case, since you are initializing the variable with the Set statement.

This post was from a while ago, but I just wanted to address the common forum viewer. For any transaction based table or any table that you will being using DML statements on (e.g. updates, deletes, etc), if there are multiple front ends then it is important not to transfer tables from the BE...

Use a subform based on the second table. Link the subform's child field with the main form's parent field.

Sort of, but you missed a couple things. Dim rs As DAO.Recordset Dim db As DAO.Database Set db = CurrentDb Set rs = db.OpenRecordset(strSQL, dbReadOnly) If Not(rs.EOF and rs.BOF) Then Select Case Msgbox "There is no user. Would you like to continue?",vbYesNo Case vbYes...