Recent content by BrokenBiker

Thansk for the response, Lagbolt. I ended up figuring it out, but not in the way originally intended. Basically, I changed the node text to include the PK, and then I created a second unbound textbox and set it equal to: =Left([txtSelectedNode],InStr([txtSelectedNode]," ")) to separate the...

I am trying to modify a treeview example (from this site--Treeview 2000). The form's OnLoad event creates a recordset. I would like to use that to capture the PK (AutoNo_Emp) from the selected node, and have it populate an unbound textbox. This is the OnLoad code: Dim otved As...

Attached is what I use. It will map a network drive and/or open a browse window to select the BE file for the tables to link to. The DB will create a command file (based on CurrentProject.Path) to map the network drive, and then delete the command file. The VBA is in a module and called...

Problem solved. Just re-accomplish the fIsFileDIR to get the new value. Yes, this is linking to an Access DB. I'm not familiar w/the UNC. However, maybe I can clarify a little why this is necessary. First, for several computers on our network, the shared drive mapping is lost, and needs...

My DB checks for connection for linked tables when it opens. The two reasons why the connection may be down is due to either the LAN being disconnected or, due to inconsistent mapping of network drives the folders may be listed differently. For example, someone may have T:\Common\Folder\BE...

Whoo-hoo!!! It's fixed!:) Well...it's mostly fixed. The only issue now is that after the recordset is completed, the recordset is set to 'Nothing' which makes the fields all ???? I can work around it w/out any problems for what I'll be using it for, but is there a way to re-establish the...

A little closer....Here's what I have now. Dim db As DAO.Database Dim rsParent As DAO.Recordset2 Dim rsChild As DAO.Recordset2 Set db = CurrentDb Set rsParent = Me.Recordset rsParent.OpenRecordset With rsParent .MoveFirst Do While Not .EOF Set rsChild =...

Lagbolt, I don't think I quite understand your post. Granted, I don't have a lot of experience w/recordsets in VBA, but I thought that basically the With-MoveFirst-MoveNext-Loop-Close-End With format would work. With rsParent Do Until .EOF .MoveFirst 'Insert do-stuff code here .MoveNext Loop...

Many people are interested in managing attachments in Access 2007, but there isn't much info out there. I was able to find a little something on the subject. However, the line of code for exporting (.SaveToFile) will only 'Save As' one attachment in the one record for the form. I added a...

That's essentially what I ended up doing. I had it in my head, originally, that this needed to be done in VBA. But, instead I made a series of queries. Qry1: Lists all employees and courses w/out a join between the two tables. Qry2: Uses the Unmatch Wizard to compare Qry1 to...

In my db I have three tables: tbl_Employees, tbl_CourseCodes, and tbl_TrainingMain. The tbl_TrainingMain table lists an individual (from tbl_Employees) and a training item (tbl_CourseCodes) and any relevant data, i.e. date completed, remarks, etc. In the tbl_CourseCodes, there's a field...

Yep, that did it! TngDueDate: IIf(Not IsDate([TngDue]),Null,CDate([TngDue]))

Thanks for the reply, but that gave me the same #Error. Is there a way to use the IsDate fx? Possibly If Not (IsDate(TngDue)...etc....? I'll give it a shot and see what it does.

Works like a champ! In the BeforeUpdate fx for both fields (EmpID and CourseID), I have the following: Dim i As Integer Dim db As DAO.Database Set db = CurrentDb i = DCount("ID_TngMain", "tbl_TrainingMain", "EMP_Tng & CrsCode_IDAutoNo = [forms]![frm_TngCrsAdd]![EMP_Tng] &...

I have a query w/a calculated filed (TngDue). Some of those records have no date. When I use CDate to convert the TngDue field to a date format, the records w/o date entries give me an #Error. I've tried to use IIf and IsNull to get rid of the #Errors and still maintain a date format, but am...