Help
Could someone please explain how to use this API to change my mouse to a hand in the OnMouseMove Command?
Right now I copied the code to a module and call the module Mouse_Pointer
then, I went to the OnMouseMove Command for a textbox and type:
Call Mouse_Pointer.????? -----> This is...
I'm just trying to run a calculation.
Right now I have set up some VB code to run the calculation and set the text box value. The only problem is getting the value to refresh when I make a change. Just thought there was an easier way.
I will look into the DLookup function.
Thanks.
I tried searching this but I couldn't get the search to work.
I would like to set the control source of a text box to a SELECT query. Is this possible? If so, what's the proper syntax?
Thanks,
Mike
Text File requirements
Your text file needs to be set up a certain way.
1.) Your Fields have to be comma delimited
2.) Your strings must be enclosed in ,"quotes",
3.) Your numeric values should just be left alone ,1234,
4.) I would include the Field names in the first line of the text file...
If you want to overwrite the table just delete the information in the table first:
CurrentDb.Execute "DELETE FROM Table1"
Then transfer the data.
Also, what did you mean by:
Separate the string
You need to separate the string. (Instr() and Mid())
str = " ... WHERE "
Then run a loop to build your query (Loop using Instr())
str = str & str
Setting a textbox
All you need to do is set the textbox name = Now()
for example:
Form Name = "Homepage"
Textbox Name = "txt_Box"
the syntax would be
Forms!Homepage!txt_Box = Now()
-or-
if the function is located in the Homepage form (which it will be)
you can substitute "Forms!Homepage!"...
Importing
What you need to do is :
DoCmd.TransferText
You can either transfer text directly into your table or set up a temporary table so that you can set up a series of checks before copying over.
Delete the file
Don't link the text file to a table. This is probably why you can delete it.
SendObject
Add the following line to the OnClick procedure:
DoCmd.SendObject acSendNoObject, , , Me.txt_email, , , "Email Subject"
Substitute the txt_email with the name of the text box.
Left Join with a Sub Query
Is there a way to Right Join with a Sub query. Right now I have to have to save a separate query "Query1" and use that in my Right Join Statement.
ex.
SELECT DISTINCTROW Equipment.ID, Equipment.Name
FROM Query1 RIGHT JOIN Equipment ON Query1.e_ID = Equipment.ID...
Is btnPrintInvoices_Click a Public Function?
Also...The loop isn't doing anything.
Do Until .EOF
--------------------> here is were you would put the command that needs to be looped
.MoveNext
Loop
I'm trying to set a List Box up to display all records from one table that are not found in another table. For Example.
tbl1:
ID | Service
1 | Srv1
2 | Srv2
3 | Srv3
tbl2:
ServiceID
1
I want the display to be
Srv2
Srv3
Because the ID Column for Srv1 is found...
have a counting integer that forces a new year after 52 weeks.
dim x as int
loop
if x<52
do the calc for each week here
else
start new year
x=0
end if
x=x+1
end loop