Global Variable Question

[Huey462]

I have a program that pulls the information and displays it in an invisible text box. VBA code then assigns the textbox value to the global variable.<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
<o></o>

[COLOR=black][FONT=Times New Roman]QEmailTo = Me.EmailToCheat.Value[/FONT][/COLOR]

<o></o>
<o></o>

While this works, I wonder if it is possible to use VBA to assign the value straight out of the table rather then use the text boxes.

 

[xenou]

Possibly just use DLookup. Check out the help file but I *think* it goes either:

Without any criteria:
=DLookup("[Field1]","[Table1]")

With a numeric criterion:
=DLookup("[Field1]","[Table1]","[ID]=1")

With a text criterion:
=DLookup("[Field1]","[Table1]","[ID]='ABC-101'")

With a Date criterion:
=DLookup("[Field1]","[Table1]","[TranDate]=#1/1/2012#")

 

[Huey462]

Works great. As always, thank you for the quick response.

Private Sub btnEmail_Click()
    'Declares Variables
    Dim txtEmailAddy As String
    Dim txtEmailBody As String
    'Assigns Values
    txtEmailAddy = DLookup("EmailTo", "ExportInformation")
    txtEmailBody = DLookup("[EmailBody]", "[ExportInformation]")
    'Puts values on screen
    Me.txtbxEmailAddy = txtEmailAddy
    Me.txtbxEmailBody = txtEmailBody
End Sub