Search results

You can do this... Private Sub Form_Open(Cancel As Integer) If IsNumeric(Me.OpenArgs) Then GoToID CLng(Me.OpenArgs) Else DoCmd.GoToRecord , , acNewRec End If End Sub ... so if you pass a valid numeric ID in OpenArgs, it navigates to that row, else it adds a row. But...

Riffing off your code, if you broke it out into subroutines, you could do it like this... Sub SilenceTimers() Dim frm As Form For Each frm In Forms SilenceAll frm Next frm End Sub Private Sub SilenceAll(frm As Form) SilenceFormTimer frm SilenceSubformTimers...

But you can move threads to appropriate forums.

You can also try changing the font and see if that makes a difference. Some fonts don't seem to calculate their spacing correctly, and it's like the insertion point is not where you think it is. You type, and the characters are not inserted into the string where you expect.

CurrentProject.ImportExportSpecifications is an object in your database. You just type it in, and *poof*, you are there. Sub ShowIMEXSpecs() Dim spec As ImportExportSpecification For Each spec In CurrentProject.ImportExportSpecifications ' *poof* Debug.Print spec.Name...

Check out CurrentProject.ImportExportSpecifications, which is a collection of saved ImportExportSpecification objects. To return a member of the collection, you can use its name, or its numeric index. Note that your code declares and assigns a value to a variable FileName, but that value is...

Just to show some other options... Private Sub DeleteRecord_Click() Dim rsp As VbMsgBoxResult rsp = MsgBox( _ "THIS ACTION DELETES THIS RECORD." & vbCrLf & "DO YOU WANT TO DO THIS?", _ vbYesNo + vbExclamation + vbDefaultButton2, _ "Confirm Delete") If rsp...

I would do the query like this.... SELECT CustomerID, Customer FROM Customers WHERE Customer Like [prm] ORDER BY Customer I would do the code like this... Private qdf_ As DAO.QueryDef Private Property Get qdfMembers() As DAO.QueryDef If qdf_ Is Nothing Then Set qdf_ =...

ChatGPT says you can disable Excel paste options as follows... Disable Paste Options Button: Go to File > Options > Advanced. Under "Cut, Copy, and Paste," uncheck "Show Paste Options button when content is pasted." I have not tried it, but I definitely ask ChatGPT a lot of questions.

Nice job bookending my day! Sweetness at the start, and now, omg, cuteness to close it out. You're a rich man there NG. Cheers,

Here's one way you can get your sub column... Function GetSubColumn(iCol As Integer, Optional iRow As Integer = 2) As Excel.Range With Sheet1.Columns(iCol) Set GetSubColumn = Sheet1.Range(.Cells(iRow), .Cells(.Cells.Count - iRow)) End With End Function In the With block we...

What a sweet post. Not a lot of things outshine the pleasure of my morning coffee, but this... Brilliant. Thanks, Mark

One approach, write a query like... SELECT DateValue(YourDateTimeField) As DateWorked FROM tClock WHERE EmployeeID = 123 GROUP BY DateValue(YourDateTimeField) ORDER BY DateValue(YourDateTimeField) DESC; Now open a Recordset on that query, enumerate its rows, and the first date you find missing...

If you are starting out working with custom classes, note this debugger setting... If this is not set, the debugger will not break at the error in your custom class, it will break at the line making the call in the consumer.

You can also try to decompile the program file first, before doing a complete rebuild, and see if that makes a difference. During development I fairly commonly get the same crashy kind of behaviour you describe. I keep a shortcut on my desktop with this as the Target... "C:\Program...

You can force data validation in cells. Check out ribbon path: Data->Data Tools->Data Validation. This opens a dialog that lets you pick various formats, including Time. A time range is required, so you can do Start=0, and End=23:59:59.

If you start MS Access from a shortcut, the value of the shortcut's "Start in" field may override your MS Access File->Options->"Default Database Folder" setting.

If the United States is in decline, it is because you have lost respect for each other, and you would rather see the other side lose, rather than work together for a shared win.

Neither party is talking about paying off the debt as a national priority. This is a systemic problem, not a partisan one. The biggest problem in the US, the way I see it as a Canadian anyway, is that all your hyper-partisanship is getting in the way of you solving actual problems. Republicans...

Beaucoup bienvenue.