Simple Code

[Samand]

I know tha this is basic but I can't figure it out as I am a novice.
I am trying to get some code so that when I I just Put expr1: Func() into a field it will come back with the needed result. I have come up with:

Public Function Func() As String
        
    Dim temp As String
    Dim var1 As Variant
    Dim var2 As Variant
    
    var1 = [table1]![col1]
    var2 = [table2]![col2]
    
    If Not IsNull(var1) And Not IsNull(var2) Then
        temp = "Yes"
    Else: temp = "No"
    End If
    
    Func = temp
End Function

but this isn't doing the trick:banghead:

 

[pbaldy]

You can't refer to a table value that way. You either need to open a recordset, use DLookup(), or have the values available on a form.

 

[Samand]

Sorry there is a mistake in the prev code. Should be:

    var1 = [table1]![col1]
    var2 = [table1]![col2]

I need the code to calculte the result for every row, not a specific one.

 

[pbaldy]

Well, you still can't refer to a table field that way. It sounds like maybe you want to pass the two values to the function:

http://www.baldyweb.com/Function.htm

 

[Samand]

Thanks, I was hoping there was an easier way as in total I need to use 6 columns.

 

[pbaldy]

Well, not knowing the actual goal I'll simply say that adding parameters to the function would be quite easy.