Why can't this unbound control be changed?

[Georges Heinesch]

Hi.

I cannot change the value of an unbound control (txtSR and txtSS) within
a sub call. I explain ... my sub (SRSS_set) takes the date (type date)
as input, and returns 2 values (type time).

Public Sub SRSS_set(varDat e As Variant, _
varSR As Variant, _
varSS As Variant)

varSR = DLookup(...)
varSS = DLookup(...")

End Sub

Now, when I call this sub from the main module, the values of the 2
unbound controls don't change:

Call SRSS_set(Me!txt Date.Value, Me!txtSR.Value, Me!txtSS.Value)

However when I exchange the 2 unbound controls inside the sub call by 2
variables type variant, it works!

Call SRSS_set(Me!txt Date.Value, Test1, Test2)
Me!txtSR.Value = Test1
Me!txtSS.Value = Test2

Why does the first solution not work?

TIA

--
Georges

[Pavel Romashkin]

It is because the parametes are passed to the sub by value, not by reference.
I think it would be most efficient to pass Me to the function by
reference (declare it as "Byref ParentForm as Form") and then
dereference the two controls inside the sub.

Pavel

Georges Heinesch wrote:

Hi.

I cannot change the value of an unbound control (txtSR and txtSS) within
a sub call. I explain ... my sub (SRSS_set) takes the date (type date)
as input, and returns 2 values (type time).

Public Sub SRSS_set(varDat e As Variant, _
varSR As Variant, _
varSS As Variant)

varSR = DLookup(...)
varSS = DLookup(...")

End Sub

Now, when I call this sub from the main module, the values of the 2
unbound controls don't change:

Call SRSS_set(Me!txt Date.Value, Me!txtSR.Value, Me!txtSS.Value)

However when I exchange the 2 unbound controls inside the sub call by 2
variables type variant, it works!

Call SRSS_set(Me!txt Date.Value, Test1, Test2)
Me!txtSR.Value = Test1
Me!txtSS.Value = Test2

Why does the first solution not work?

TIA

--
Georges

[Georges Heinesch]

Hi.

1. ByRef is default, hence if I don't specify it, it's used. But to
doublecheck, I set it, and it still doesn't work.

2. To show that ByRef is not necessary, the second solution works [ Call
SRSS_set(Me!txt Date.Value, Test1, Test2) ]. In this case, variables are
used instead of the value of the control (first solution).

Why is this code not working when the control.value ist used?

TIA

--
Georges

Pavel Romashkin wrote:

It is because the parametes are passed to the sub by value, not by reference.
I think it would be most efficient to pass Me to the function by
reference (declare it as "Byref ParentForm as Form") and then
dereference the two controls inside the sub.

Pavel

Georges Heinesch wrote:

Hi.

I cannot change the value of an unbound control (txtSR and txtSS) within
a sub call. I explain ... my sub (SRSS_set) takes the date (type date)
as input, and returns 2 values (type time).

Public Sub SRSS_set(varDat e As Variant, _
varSR As Variant, _
varSS As Variant)

varSR = DLookup(...)
varSS = DLookup(...")

End Sub

Now, when I call this sub from the main module, the values of the 2
unbound controls don't change:

Call SRSS_set(Me!txt Date.Value, Me!txtSR.Value, Me!txtSS.Value)

However when I exchange the 2 unbound controls inside the sub call by 2
variables type variant, it works!

Call SRSS_set(Me!txt Date.Value, Test1, Test2)
Me!txtSR.Valu e = Test1
Me!txtSS.Valu e = Test2

Why does the first solution not work?

TIA

--
Georges