Ok so I tried modifying MajP DB and if possible would like some help. It is a simple Tree view for a technical manuals, where you have a parent header and underneath you have uploaded pdf files. First, the t_E2E table, what are all the field names related to? Do I need all of them? Also, I tried...
Here is the entire code:
Option Compare Database
Option Explicit
Dim tv As MSComctlLib.TreeView
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim imgListObj As MSComctlLib.ImageList
Const KeyPrfx As String = "X"
Private Sub Form_Open(Cancel As Integer)
Set tv = Me.TreeView0.Object
Set...
Thanks. I found an access database with the tree view that allows the user to move the items in the tree around. The db is going to be a simple document repository. How would I adjust this code so that a person could insert a description for a Parent header but the children will be uploaded...
Looking at a simple DB that will allow a user to construct a DB like explorer or a shard point, wherein you have a main folder called Forms, and then child files that correspond to that. With the ability to output on the same screen as a tree view, scroll through, maybe change order, upload...
I figuered it out. I had some funky SQL statement for the form, which I have no idea where it came from. It was messing up the search and combobox. Fixed that, and all seems to be working great now. Thanks for the help.
Thanks! I found this code for the event procedure:
Private Sub Combo142_AfterUpdate()
Me![UserID].SetFocus
DoCmd.FindRecord Me!Combo142, acEntire
End Sub
However, now I am getting this error:
Run time error 2137 - You can't use Find or Replace right now...
This even though the...
Also, should I be seeing some type of code or Event Procedure when using the wizard for the combobox? Because when I click on the Event tab for the combo box nothing appears in the After Update. Is this normal? Thanks again!
OK, I changed it to "no" and created a new search combo box, but nothing works. I see the data in the drop down combo box, but when I click on it, the form does not fill. Also, the search ribbon at the bottom does not show any previous records... help...
Data Entry is set to yes. The code that I have to open it is:
Private Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
Dim dwReturn As Long
Const SW_HIDE = 0
Const SW_SHOWNORMAL = 1
Const SW_SHOWMINIMIZED = 2
Const SW_SHOWMAXIMIZED = 3
Private Declare Function...
I have no idea what happened. For some reason my combo box search box is no longer working - the form is not being populated by previous records. When I click on the combo box I can see ALL of the records stored in the database, but when I click on the record it fails to populate the forms...
For some reason this is not working. It keeps saying it can't find the subform. Perhaps I am mistaken in the nesting, though I do not think so. How would I know for sure? Thanks!