How can I reuse "date" on different forms

[beannie]

Friends,

How can I reuse the same "date" repeatedly on various different forms created under different tables? (Of course all forms are within the same database.)
Example: "hireDate" needs to appear on every corner of each form. Can someone suggest a macro or VB code for me?

Thanks in advance.
Beannie

 

[Alcar]

Create a module and a global variable in it and then assign the date value to it:

Option Explicit
Global dtHireDate as Date

Everytime you are looking to a record that changes the hiredate value, just simply assign the new value in the form or code you are in:

dtHireDate = rsMyTable.Fields("dtEmployeeHireDate&quot

then on the forms assign that variable to the label or text field:

Form1
Label1.Caption = dtHireDate

Form2
Label2.Caption = dtHireDate

HTH
Alcar

 

[WHM]

I don;t work with Macros, but in VB you simply create a global variable gHDate as variant, and on each form you place a Label control lHDate, and then on the form Activate event you simply add the following line of Code:

lHDate.Caption = Format(gHDate, "MM/DD/YYYY&quot

From a database record using DAO with a global Variable, DB opened as a global recordset object, your form activate might look like this:

.
.
Dim Sql as String
Dim rs as Recordset

Sql= "SELECT Table.* FROM Table WHERE Table.Field=Some Unique Value"
Set rs=DB.OpenRecordset(Sql, DbOpenDynaset)
if rs.recordcount<1 then
'Trap Error
end if
lHDate.Caption=Format(rs!DateField,&quot;MM/DD/YYYY&quot
set rs=nothing
end sub


Hope it helps,

Hunter

 

[Databaseguy]

Make a public function. For example, if you enter = PopulateDate() in the control source of a text box, the following code will will return now(). (OK, not very practical, but it gives you the idea)

Public Function PopulateDate()
PopulateDate = Now()
End Function

You'll probably want to return a recordset based on a value in your form... Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy