Search results

In some cases it is easier to use two quotes (which of these is easier to read?) MsgBox "This is an ""example"" of what I mean!" MsgBox "This is an " & chr(34) & "example" & chr(34) & " of what I mean!" If I was using it a lot, I would probably declare it as a Private Const at the module...

Did you put the property on the [Date Selector] and the rest of the code in the form that updates [Date Selector]? If so, try to single step through to see where it fails and let me know.

If you are looking for the last space, why not start from the end? Does this work? Function getLinkValue(s As String) As String ' takes string and returns substring before last space character in string Dim nPos As Long s = Trim(s) 'No spaces so get out immediately If...

Right click on the folder, Select Properties, Select The Security tab and edit the permissions for the group you want to Deny and click in the Deny checkbox for "List Folder Contents". They should still be able to read and modify the database file, just not see it. I haven't tested this but it...

Depending on the file system you could Deny "List Folder Contents" for the folder containing the back-end database file for the people who should not have access to it. This would give some level of protection.

I use it in 2010 and it works. The property only exists in the ACCDE, in the ACCDB this generates an error which the function handles. Try it and you might be surprised! :)

Did you try sending the date as #YYYY/MM/DD#. Also try using < and > rather than between and double check that in SQL these are datatime and not date fields (date fields can cause problems with some versions of MDAC).

use this: strSQL = "SELECT Rate FROM TblRatesAuto " & _ " WHERE ((Year2> " & [Forms]![FrmAddQuotes]![FrmQuotesAuto].[Form]![Year] - 1 & ")" & _ " AND (CoID)=" & [Forms]![FrmAddQuotes]![FrmQuotesAuto].[Form]![CboCoID] & ")" & _ " AND (Product)=" &...

You should be able to write directly to the field but I would probably create a public property on the form you want to update. In this example assume that the form is called "Form2Update" and the text field is "txtField2Update": Public Property Let Field2Update(value As String)...

Are you able to send using SMTP rather than the outlook client automation? If so you could google "vbScript to send email using CDO".

Change For i = 1 To rs.RecordCount / Endif to Do While not rs.EOF / Enddo. rs.Recordcount will most likely return 1 no matter how many rows there are.

You could use the following which works in Access 2010: Public Function IsACCDE() On Error GoTo ErrorHappened Dim Result As Boolean Result = (CurrentDb.Properties("MDE") = "T") ExitNow: IsACCDE = Result Exit Function ErrorHappened: Resume ExitNow End Function