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"
What is the RowSource of StatusID? Is ther only one column in the ComboBox? (1 for Open, 2 for Closed, etc.)
Assuming that there is only one column, try the following:
If Me!StatusID = 1 Then 'Check textbox for Resolution date
If TargetResolutionDate < Date() Then...
You could create a Public variable to hold the value. Let say you use pbModel for the variable name.
Then in the AfterUpdate event of cbomodelname:
pbModel = Me!cbomodelname
Now when you are in any other form, you can use gvModel as the model number.
Hope this helped!
Anthony J. DeSalvo...
Use the same logic as described, instead of selecting from another table, use the same table as the RowSource for the other ComboBox's.
Hope this helped!
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
This has been answered in several prior threads. Check out thread702-587626, I think that will help you.
Good luck.
Anthony J. DeSalvo
President - ScottTech Software
"Integrating Technology with Business"
here is one way;
Place one text box and one command button.
In the command button Click event:
If MsgBox("Press Yes to Search by issn, Press No to search by Keyword.", vbYesNoCancel, "Select Search Choice.") = vbYes Then
MsgBox "Search by issn"
ElseIf MsgBox()...
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.