First set the focus to the feild in your form that is for the OLE Object in your table. Then use Runcommand to browse and insert the object:
Forms![YourForm]![VisioField].Setfocus
DoCmd.RunCommand acCmdInsertObject
Good luck!
Anthony J. DeSalvo
President - ScottTech Software...
I had trouble with the column being named with periods in the heading (Ext. Ref Num.).
Seemed to import okay when I removed the dots.
Let me know!
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
Move the code to the Form's "On Current" event. You need to test every time the record changes in the form.
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
Place a break point on the line below:
If TargDate < Date() Then
then open the form. When the code stops, place the cursor over the TargDate variable. What is the value?
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
If the first column is the word open or closed, and it is the bound column, then you could use that:
Dim TargDate as Date
TargDate = Forms![frm_Main_Issues]![TargetResolutionDate]
If Me![StatusID] = "Open" Then
If TargDate < Date() Then...
Have you plaed a break on the second If statement line? Once it stops there, highlight all of Forms![frm_Main_Issues]![TargetResolutionDate] and place your cursor over it to see what the value is.
You could try to dimension a variable for the value of...
I'm sorry, but I still haven't grasped your layout!
The analyst sees the records that the manager has assigned them?
So, you update all records in a work table with the NT logons selected by the manager with the analyst that is assigned to them?
Anthony J. DeSalvo
President - ScottTech...
Application.FollowHyperlink will open a browser window.
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
Say you have a text box control called WebAddress and a comand button on a form.
Enter http://www.yahoo.com in the text box.
Then in the Click event of the command button:
Application.FollowHyperlink Me![WebAddress]
Hope that helped!
Anthony J. DeSalvo
President - ScottTech Software...
I am still a little unclear as to your application, so I may have to ask you several questions until I get a good understanding. So, if you are willing and patient, I will press on!
Is your goal to select a NT logon in the main form and then populate a working table with data that is in the...
DLookup will only return one value. Are you building a report, or trying to display the data in a form?
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
Okay, replace all frm_Main_Issues![TargetResolutionDate] with Forms![frm_Main_Issues]![TargetResolutionDate]
If Me![StatusID].Column(1) = 1 Then
If Forms![frm_Main_Issues]![TargetResolutionDate] < Date() Then
Forms![frm_Main_Issues]![TargetResolutionDate].ForeColor = 255
ElseIf...
In the control's property for Forecolor, is that set to 0?
Now that I know what columnof the ComboBox is the bound column try:
If Me![StatusID].Column(1) = 1 Then
If frm_Main_Issues![TargetResolutionDate] < Date() Then
frm_Main_Issues![TargetResolutionDate].ForeColor = 255
ElseIf...
In the command button Click event:
DoCmd.RunSql "Delete * FROM [Employees] WHERE [Payroll Number] = '" & Me![payroll] & "' ;"
Hope this helped!
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.