Search results

What error is it throwing? This statement is confusing. Are you trying to use this function on tables or queries?

Try changing the following code: strRestriction = "[Start] >= '" & Format(Date, "mm/dd/yyyy hh:mm AMPM") _ & "' AND [Start] <= '" & Format(Date + 14, "mm/dd/yyyy hh:mm AMPM") & "'"

You might try this code instead: Function E2UK(ByVal x As String) As Double Dim d ' Decimal Placeholder Dim t ' Thousand Placeholder Dim c ' Currency Test String Dim i As Long ' String Position ' Generate test Currency string to extrapolate the ' User's Locale Decimal...

The forms can be opened non-modal, provides that the forms' PopUp property is set to True.

Hello, bephraim, You're solution will not work if Value1 truly is Null. Try this function in Excel instead: Public Function Nz(ByVal Value, Optional ByVal ValueIfNull = "") Nz = IIf(IsNull(Value), ValueIfNull, Value) End Function

Hello, FuzMic, If one of the machines has Service Pack 1 and the other machine does not, they will have different IID's. When an MDE is compiled, any VBA code references to ADODB objects are converted to their IID equivalents. Consequently, if that MDE is compiled on a Windows 7 SP1 machine...

Yes, there is. You can try the following SQL syntax (substitute highlighted items with actual table/field names): UPDATE MyTable SET Field1 = NULL, Field2 = NULL, Field3 = NULL, Field4 = NULL, Field5 = NULL, Field6 = NULL WHERE NOT ( Field1 = 'CT' OR Field2 =...

Try this: DELETE * FROM Table1 WHERE NOT EXISTS ( SELECT Table2.Field1 FROM Table2 WHERE Table2.Field1 = Table1.Field1);

If all you are looking for is a way to determine in what language labels and messages should be displayed, you can do this in VBA quite easily with the GetUserDefaultUILanguage Windows API. Study the code examples below. Once you become more familiar with VBA it will become immediately...

You might try the following amended code: MsgBox "-1" Set Xl = New Excel.Application MsgBox "0" Set XLBook = Xl.Workbooks.Open(strImportFile) MsgBox "1" XLBook.SaveAs Replace(XLBook.FullName, ".csv", ".xlsm"), 52 ' Save the CSV file as an Excel file XLBook.Saved = True MsgBox...

You can change the Sub to a Function, as shown below. Then you can set the After Update property of cboIDEstado to: =SetformState() Function SetformState() Dim State As AlbaranState If (Me.cboIDEstado.Value = 1) Then State = New_Albaran ElseIf (Me.cboIDEstado.Value = 2)...

Try changing: If (NotIsNull(ExceptionID)) Then ...to: If IsNull(ExceptionID) = False Then

Q1 Answer: If you use a Macro for your menu, I do not believe that it appears in the CommandBars collection. Q2 Answer: If you make the following change in your code, you do not require the reference to the Microsoft Office 12.0 Object Library: Dim CB As Object, crl As Object

If the Key field-pair is xDate and Country, and if you only want to retain the records with the lowest ID value for each xDate and Country, then you can try a delete query like the following: DELETE * FROM SpecialDates WHERE SpecialDates.id > ( SELECT MIN(S2.id) FROM SpecialDates AS S2...

You might try enumerating the DBEngine.Errors for more detailed information on that specific computer. Example: errregfail: Dim vError As Variant For Each vError In DBEngine.Errors MsgBox "An error has occurred and I was not able to create the DSN. " & vbCrLf & _ "Error: " &...

To disable right-click on a form via VBA code, use the following syntax: Forms("MyForm").ShortcutMenu = False

Instead of: Trim([Tracker].[PromoDesc]) ...you might try: Trim(Replace([Tracker].[PromoDesc], Chr(160), " ", 1, -1, 1))

I have seen Inventory databases that managed inventory grouped by Part, Warehouse and Storage Location. Here is some sample table/query architecture that may help you with your approach: tblWarehouse --------------- whCode whDescription whCode | whDescription -------+------------------ MAIN...

You might try something like: DELETE FROM smallTab WHERE NOT EXISTS ( SELECT f1 FROM bigTab WHERE bigTab.f1 = smallTab.f1);

You might try the following code revision after the If rs.RecordCount > 0 Then statement: rs.MoveFirst Do If Not IsNull(rs!RName) Then If Not IsNull(rs!SubjectEMail) Then vRecipientList = vRecipientList & rs!SubjectEMail & ";" End If If Not...