Set a field as variant in an equation

Hi Giorgia and welcome to the site.

I made some modification to your function.  I added comments to the parts that I changed.  So these are the following changes I made:

• I removed the as variant from the function call as the function is not returning anything.
• I added a new object to hold the information for the newField.  You need two field objects, one to get the old information and the other to hold the new information.
• Your first Set field I updated to now obtain the information from the DateField variable.
• I removed the field.Name = DateField as it is not needed, you are not setting the field name in this case.
• Instead of checking if the field is date I changed it to check if it is character.  That way if the field happens to be numeric or a time field you won't have an error in your code.
• I added a line to create the NewField object
• I changed the equation as the DateField variable has to be outside the quotes or else the equation will be looking for "DateField" and not what is contained in the variable.
• I moved the setting of the objects to nothing outside of the if then statement so they don't need to be repeated.

Hopefully this helps you out.

Thanks

Brian

Function ModifyAllDateField (DateField, WorkingDatabase) ' As Variant not needed as function doesn't return anything
            Dim db As Object
            Dim task As Object
            Dim field As Object 
            Dim newField As Object 'added
            
            Set db = Client.OpenDatabase(WorkingDatabase)
            Set task = db.TableManagement
            Set field = db.TableDef.GetField(DateField) 'updated
            
            'Users DateField variable passed to the function to set which field is checked
            'field.Name = DateField 'not needed
            
            ' Checks if the field is already a date field, if it is, do nothing
            ' If the field is not a date field, then change it to a date field (saves processing time)
            If field.IsCharacter Then 'modified, check if fied is character as you don't want to do anything if it is numeric or time.
            	Set newField = db.TableDef.NewField 'added
                        newField.Name = DateField & "_CORRECT"
                        newField.Description = ""
                        newField.Type = WI_VIRT_DATE
                        newField.Equation = "@ctod(" & DateField & ", ""DD/MM/YYYY "")" 'Modified to move the variable outside the equation
                        task.AppendField newField
                        task.PerformTask
                        Set newField = Nothing 'added
                        
            End If
            
 	Set Task = Nothing 'moved
            Set db = Nothing 'moved
            Set field = Nothing 'moved
End Function

Hello Brian,

Let's say the variable is of type String. And I want to write an equation that checks a string field

Dim code as String

Sub main()
code = "271"
...
...
equation = "BRA_CODE = " & code
...
...
End sub

The problem is that the equation variable reads it as :
"BRA_CODE = 271"

but I want it to read it as

"BRA_CODE = "271""

Please can you help?

Hello i want to make my equation works using variant:
 
My i get a help what is the correct syntax:
 
Function criterio
 
MsgBox ("TRANSFORMACION CARACTER")
MsgBox (sDate)
 
Set db = Client.OpenDatabase("A_DLPMT.IMD")
Set task = db.TableManagement
Set field = db.TableDef.NewField
field.Name = "MIN"
field.Description = ""
field.Type = WI_VIRT_NUM
field.Equation = "@If(FECHA_PAGAR<=sDate;@Age(FECHA_PAGAR;sDate);0)"
field.Decimals = 0
task.AppendField field
task.PerformTask
Set task = Nothing
Set db = Nothing
Set field = Nothing
 
 
MsgBox ("Fin Criterio")
End Function
 
 
Regards