Search results

Try in "Salaries_Emp" form: ... and "Salaries_Temp" Form :

Missing parentheses when applying the Nz() function ... Nz([F7]; 0) =([F5]*[F4])+Sum([F6]+Nz([F7]; 0)) or =([F5]*[F4])+Sum([F6]+Nz([F7]))

I wrote this module for the same situation The comments there are in Russian - I'm too lazy to translate them and see no point

glad to read this (y) You're welcome!

Try that expression: =Nz(DSum("Importe";"CGastosEIngresos";"IdCategoria=2 And IdProyecto=" & Nz([IdProyecto];0));0)

Please write - What are you trying to show in this field? Your expression: =DSum([Gastos];[CGastosEIngresos]; "IdCategoria=2 And IdImporte=" & [IdImporte]) Can't work because there is no "[CGastosEIngresos]" field in the "[Gastos]" query

Try: Private Sub DynamicList1_DblClick(Cancel As Integer) If Mid(Me.DynamicList1.RowSource, 8, 14) = "TransactionsPK" Then DoCmd.OpenForm "frmTransactionsMain", , , "[TransactionsPK]=" & Me.DynamicList1 Else MsgBox "Wrong [DynamicList1.RowSource] Property!", vbCritical...

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