Replies

Here is the database

Here is the database

i get the error for any item i select

i get the error for any item i select

Now I have the code:
SELECT tblBillingCode.[BillingCode] & ” – ” & tblBillingCode.[Description] as FullDesc , tblBillingCode.[BillingCode], tblBillingCode.[Description] FROM tblBillingCode ORDER BY tblBillingCode.[BillingCode];
in the row source for the combo box. I want the textboxes for billing code and description to fill in when i select a particular billing code from the combo box. there is no code in the after update event for the combo box

Now I have the code:
SELECT tblBillingCode.[BillingCode] & ” – ” & tblBillingCode.[Description] as FullDesc , tblBillingCode.[BillingCode], tblBillingCode.[Description] FROM tblBillingCode ORDER BY tblBillingCode.[BillingCode];
in the row source for the combo box. I want the textboxes for billing code and description to fill in when i select a particular billing code from the combo box. there is no code in the after update event for the combo box

When the user selects a value form the combo box, it will lookup the value based on what is picked. The values in the combo box are concatenated from values in the table. They are not in separate columns.

When the user selects a value form the combo box, it will lookup the value based on what is picked. The values in the combo box are concatenated from values in the table. They are not in separate columns.

Here is the section of code:

Private Sub cmbPrincipal_AfterUpdate()
Dim searchstring, searchchar As String
Dim Length, comma As Integer

searchstring = cmbPrincipal.Value
searchchar = “,”
Length = Len(cmbPrincipal.Value)
comma = InStr(searchstring, searchchar)
cmbPrincipal.Value = Mid(cmbPrincipal.Value, (comma + 2), 1) & “. ” & Left(cmbPrincipal.Value, (comma – 1))
End Sub

When the form is opened and a new value is picked from the combo box, I get the error. However, when I run the database from a server, it works fine. When I run the database from my workstation, I get the error.

Thanks,
Nick

Here is the section of code:

Private Sub cmbPrincipal_AfterUpdate()
Dim searchstring, searchchar As String
Dim Length, comma As Integer

searchstring = cmbPrincipal.Value
searchchar = “,”
Length = Len(cmbPrincipal.Value)
comma = InStr(searchstring, searchchar)
cmbPrincipal.Value = Mid(cmbPrincipal.Value, (comma + 2), 1) & “. ” & Left(cmbPrincipal.Value, (comma – 1))
End Sub

When the form is opened and a new value is picked from the combo box, I get the error. However, when I run the database from a server, it works fine. When I run the database from my workstation, I get the error.

Thanks,
Nick

The comma is equal to zero, and the cmbPrincipal.value is equal to the new value I am selecting from the combo box.

Thanks,
Nick

The comma is equal to zero, and the cmbPrincipal.value is equal to the new value I am selecting from the combo box.

Thanks,
Nick

Thanks for the help.
I have another question. I am having trouble figuring out what this code is doing. Can you expalin it to me?
=1+INT(MOD(A2,1)*6) & “) ” & INDEX(Sheet3!$B$1:$G$1,1+INT(MOD(A2,1)*6))
Thanks again,
Nick

Thanks for the help.
I have another question. I am having trouble figuring out what this code is doing. Can you expalin it to me?
=1+INT(MOD(A2,1)*6) & “) ” & INDEX(Sheet3!$B$1:$G$1,1+INT(MOD(A2,1)*6))
Thanks again,
Nick

I will try to explain better and give an example. Attached is a zip file which contains a spreadsheet (AverageEntry.xls) and a CSV file (Data.csv). I need to come up with a script file that will find the CSV file on the hardrive, sort the data into one of the 6, four hour time slots (they are on the AverageEntry spreadsheet), and then average each of the 6 time slots into one single value and place in the appropriate place in the AverageEntry spreadsheet. Any help is appreciated.

Thanks,
Nick