Search results

Can you post a copy of your application with just the form (with subforms) and required tables/queries. Just a few (fictitious) records to understand.

I think that in this case it is better to address the cells through the active sheet 'Setting active list "Component list" Set objSheet = objWorkBook.Worksheets("Component list") objSheet.Range("M47").Value = Me.Branding_type The code below works fine

WebBrouserControl = IE

No. On "Open Selected Record" procedure.

Try: If Me.NewRecord = True Then ' On new record DoCmd.OpenForm "frmHivePhotos", , , , acFormAdd Else ' on an existing record DoCmd.OpenForm "frmHivePhotos", , , "HiveID = " & Me.HiveID, , , Me.HiveID End If

I delegate this honorable duty to you! :) But I don't see any education on your part.

I don't see your solution. By the way, query: SELECT [Vendor#], Code, Vendors_Type.Description FROM Vendors LEFT JOIN Vendors_Type ON Vendors.Code = Vendors_Type.Code; Is not editable ...

Please change your query "Vendors_With_TypeQ" to the following: SELECT [Vendor#], Code, DLookUp("Description","Vendors_Type","Code = '" & [Code] & "'") AS Description FROM Vendors;

Try: Dim InvoiceNumber As Long InvoiceNumber = DMax("Val(Mid(InvoiceNumber, 2))", "InvoiceT") + 1

In Review Quality feature - Select Dead Code Review

Try: Private Sub Form_Load() Me.TimerInterval = 1000 Me.DisplayTimer = 50 End Sub Private Sub Form_Timer() Me.DisplayTimer = Me.DisplayTimer - 1 If Me.DisplayTimer < 1 Then Me.TimerInterval = 0 Call LogProcess End If End Sub

D.White - All the story is history. Modern Talking style 80s. ... my favorite! That's all for now.

D White No connect New Italo Disco, video version 2020, Full HD

D.White - My Everything (Big Extended Version, mix by Marc Eliow) NEW Italo Disco

D.White - If you could stay (Fan Video) Modern Talking style

https://www.access-programmers.co.uk/forums/threads/vba-code-for-relinking-new-tables-from-back-end-accdb-to-front-end-database.322695/#post-1820593

Maybe that would work for you?

With MS Word you can use .Activate method. Private Sub OpenAndActivateWord() 'MS Word - Opening a document and activating application window '--------------------------------------------------------------------------------------------------- Dim sDocPath As String Dim objWordApp As Object On...

I couldn't figure out how it works for you.