Search results

Maybe the "KPI_qryMain" query outputs the "UserID" field twice Check it out

It occurs on FormLoad procedure ... event when a form is loading

Post your code please ... and ... try that code: Dim objForm As Form Dim objCtrl As Control Const csHiddenFormName$ = "Your Hidden Form Name" ' <- Write your hidden form (with SubForm to update) name here Dim sVal$ If CurrentProject.AllForms(csHiddenFormName).IsLoaded = False Then...

Yes. As an option: Write code at "early binding" and use it at "late binding".

No any, but sometimes it's more reliable to use "late binding" Reference to "Microsoft Excel 16.0 Object Library" not needed Try: Dim objExcelApp As Object Dim objWrkBk As Object, objWrkSht As Object Set objExcelApp = CreateObject("Excel.Application") Set objWrkBk =...

Try: If CurrentProject.AllForms("Your Main Form Name").IsLoaded = False Then Exit Sub Forms("Your Main Form Name").Controls("Your SubForm Control Name").Form.Requery 'or 'Forms("Your Main Form Name").YourSubFormControlName.Form.Requery Forms("Your Main Form...

Try:

Try change continuous form property : RecordsetType

Dim sLookUpField As String, vVal Select Case Me.cboChooseProduct.Column(40) Case 1: sLookUpField = "[ZoneA]" Case 2: sLookUpField = "[ZoneB]" Case 3: sLookUpField = "[ZoneC]" 'Case ... : sLookUpField = "[Zone ...]" Case Else: Exit Sub End...

Public Function FormIsLoaded(sFormName$) As Boolean ' Determines if the form specified in argument <sFormName> is loaded (in any view except Design) ' -------------------------------------------------------------------------------------------------/ On Error GoTo FormIsLoaded_Err If...

Try: Function ExtractZipAndSaveAsTxt(zipFilePath As String, destinationFolder As String) Dim shellApp As Object Dim zipFolder As Object Dim fileItem As Object Dim extractedFilePath As String ' Create Shell object Set shellApp = CreateObject("Shell.Application") ' Open the ZIP file Set...

Try: Public Sub change_col_nameOld(TableName As String, OldColName As String, NewColName As String) Dim tblDef As DAO.TableDef Dim dbs As DAO.Database Dim iVal As Integer Set dbs = CurrentDb Set tblDef = dbs.TableDefs(TableName) For iVal = 0 To tblDef.Fields.Count - 1...

Take a look to strings bellow please

Look for Concatenation ...

Take a look at the example please ... Query “Query1” for understanding only - can be deleted

It seems we all choose good equipment for long years.

My BIOS is 10 yars old ( ASUS H97-PLUS)

Private Function GetListValues() As Variant Dim sVal$, idx% For idx = 0 To Me.lstDefects.ListCount - 1 If Me.lstDefects.Selected(idx) = True Then sVal = sVal & csDelimeter & Me.lstDefects.ItemData(idx) End If Next idx If Len(sVal) > Len(csDelimeter)...

Try use quotation marks around text values [MaxHorseRatingTable]![centre]="DEL"