Recent content by rburna904

First off in the indexs : CashFlow change Serial # to idxSerialNo Now onto the relationships : Based on what I am seeing you would typicly do the following: User enter information into Systems or OtherBits (I assume that is suppose to be Parts) So you would have a One to Many relationship...

I see why it wasn't working in the first place, see with the data feed I am sending it requires an alpha character for the last place to determin + or - and corresponds to a number Ex: -123.09 => 1230R So the format will not work on the 1230R but will work on the 12309

information about HR data archival I use to work on HR systems and from my years of writing the apps and data structure the best way to maintain a log of changes is to have a duplicate of your employee/user table. Then create a trigger so that whenever anaything changes on their personal data...

You can also bind the text box to the column of the cboBox, this is only good if you do not plan on letting the user update the fields that get populated.

Format doesn't add the 0 to the begining The format routine will not add characters to if the length is not the same, I am using the following: Do If Len(tmpAPPOH_TOTAL) < 9 Then tmpAPPOH_TOTAL = "0" & tmpAPPOH_TOTAL End If Loop Until Len(tmpAPPOH_TOTAL) = 9 The command is something...

Ok I am exporting some data to a plain text file and one of the fields I am outputing can vary in the number of characters and I need they to have the same number of characters all the time. Ex: 123.00 => 000012300 456789.00 => 045678900 I had heard of a command, but I can't...

Not where the problem is.... Sorry, i forgot to add that the error when debugging puts me on the following line Set rstB9DC_QTR1_2 = qdB9DC_QTR1_2.OpenRecordset

Ok Guys, I have researched this for the last few hours and am at a stand still..... I have some queries and queries of queries etc. that need to be processed via an append query to a new table. Some of these queries require parameters to be passed to them. I have the following code and can't...

Answer I figured out how to get this done with some help from a few other bits of code: This is the code: Private Sub ListBoxSort(ListBox As String) Const ArrTop As Integer = 500 Dim i As Integer, j As Integer Dim MyArray(ArrTop) As String Dim strRowSource As String If...

Ok, I have spent a bit of time researching this to only find information pertaining to database driven list boxs. Here is the situation: I have 2 list box's on a form 1 contains table columns (brought in by another list box/command button - Done with VBA, also the list box is set to Value...

Lets see if I have your information correct: Table_A : Name Table_B : Situation I would start off by adding a 'Table_C' this should contain your joining information: Table_C : Table_A.Name(ID) / Table_B.Situation(ID) / Table_C.DateTime Then you can go and do the following queries: Select...

That solved it That solved that issue....

Ok I have a form with the following fields: cboDesc1 = Combo Box (Contains 3 columns to be referenced : 1 Visible and 2 hidden) txtMemo1 = Text Field cboDesc2 = Combo Box (Contains 3 columns to be referenced : 1 Visible and 2 hidden) txtMemo2 = Text Field cboDesc3 = Combo Box (Contains 3...

I figured it out.... Me.Controls(aFields(3) & iLine) should be Me.Controls(aFields(2) & iLine)

Ok I have the following code which keeps producing an Error # 9 : subscript out of range..... Public Sub SaveLineItems() On Error GoTo SaveLineItem_Error MsgBox "I am doing the line items" Dim sSQL As String Dim iLine As Integer Dim iMaxLines As Integer Dim iMonthCount As Integer Dim...