Search results

The behaviour you encountered is what happens with unbound controls on a continuous form. https://www.experts-exchange.com/articles/6692/Overcoming-unbound-continuous-forms-limitations-by-staging-data.html...

Maybe try to delete the property ("AppIcon")? https://www.devhut.net/access-playing-with-database-properties/ Cheers,

This is how I do it and it works immediately: Private Sub Form_BeforeUpdate(Cancel As Integer) If MsgBox("Do you want to change the version number?" & Chr(13) & _ "This should only be done by the Developer or the Super User...", vbCritical + vbYesNo, "Confirm version change!")...

@ Solo712: I thought that is what I posted in post #2 (I assumed it was a number).

Try to follow the previous syntax that worked; aa = DSum("[IncTotal]", "Income", "[mmyy] = '" & vmth & "' AND [IncCA] = " & vt & " AND [Incyy] = " & vcy )

Yes, it should be possible, you need to identify the document element that returns the error and based on its value close the page or not. If IE.GetElementByID("ErrorElement").Value = "REF ERROR" Then... Cheers,

I' m afraid the only way to move between forms and not fire the BeforeUpdate event is to use unbound forms ... Cheers,

Please review the updated file, should work as you describe. Cheers,

I would try to hook up to the key words ("From" and "To") as the lengths might vary : StartTime: Trim(Replace(Left([SplitThis],InStr([SplitThis],"To")-1),"FROM","")) EndTime: Trim(Mid([SplitThis],InStr([SplitThis],"To")+3)) Cheers,

Your form was set to Data Entry and had its default view set to datasheet, please see it now. Salutari,

Please feel free to try my utility (http://forestbyte.com/ms-access-utilities/fba-fuze/) that does just that (and you could run it in a scheduled task if needed). Cheers,

I don't see where you tried any of them them, should go inside the With statement: Public Function FUNC_ChangeAddress() 'Input data into Niche Dim IE As Object Set IE = New InternetExplorerMedium With IE .Visible = True .navigate "http://cor1/Address.asp?headerid=" &...

Something like this maybe:IE.Document.all.Item("Submit").Click And this would "click" the first button on the page (zero-based collection): IE.Document.getElementsByTagName("button")(0).Click Cheers,

Mike, The code I gave you is just yours with the proper indentation towards the bottom and a bit of streamlining in the middle (replaced two IF blocks with one IF\ELSE). I don't know the business rules, what values the combo can have and\or the sequence of status changes. For the first case...

Mike, I think the appearances are deceiving, please review this updated code: Private Sub cboStatus_BeforeUpdate(Cancel As Integer) Dim rtn As Long Dim x Dim ctrl As Control If Me.cboStatus.Column(1) <> "Billed" Then rtn = MsgBox("You can only change the Status using this Combobox to...

Mike, Here it is with proper indentation, see how easy it is to spot the missing pieces: Private Sub cmdDisable_Click() Dim x Dim ctrl As Control x = InputBoxDK("Password Required", "Password Required") If x = "" Then Exit Sub ' there is no End :) If x = "SCtb0825" Then For Each...

It doesn't matter if it is a different form, the passed strWhere variable would contain the controls on that form so no need to fully qualify them by adding the Forms![MainForm]. But the problem is probably not that but improper wrapping of the individual variables.... Cheers,

If QuoteID is an autonumber (which it should) use Max instead of Last to get the newly created one. And you don't really need the form, just use DMax in the insert SQL statement. You can create a new insert query in design view and add a calculated field using dMax to get the new quote id and...

You don't need the Forms![MainForm]! in the strWhere construction; note that you need to wrap text (strings) in single quotes (or double doublequotes "") and dates with #. So if InsCompName is an alpha string you would have strWhere = strWhere & "([InsurCmpName] ='" & Me.CVZ & "') AND " and so...

Clara, You would need to apply both "filters" to the report; the easiest way I think would be to change the report's record source query "qryAllContacts" to another one that is being dependant on the optSales option group. Add a calculated field to the original query SalesOpt...