Recent content by hugparty

Ok, I'm an idiot who just figured out import specs. Dur. Thanks guys!:o

It's me trying to piece together some code to get the result I want, basically. I'm not a vb coder, I'm just trying to figure out projects that get given to me. Anyone have any idea, then?

Because I don't know what I'm doing :confused:

Hi folks, I have an import button on a form that pulls data from a fixed width file into a database. When I click the button, it imports only the first field from the fixed width file into every field of the database instead of importing all the data. Example, if the first field in the fw file...

oh thank god I CAN GO HOME NOW!!!! THANK YOU!!!!!

I'm sorry, what window? It didn't do anything as far as I could tell.

I tried an experiment - I changed "LAST_NAME" to "SURNAME" in the table properties and it copied THAT data over too. So now I have to figure out why it won't copy unless it is named the same in both tables.

k, here it is: Private Sub Command901_Click() Dim CLAIM_NUMBER, SURNAME, FIRST_NAME, DATE_OF_BIRTH, GENDER As String Dim strSQLApp As String CLAIM_NUMBER = Me!HIC_CLAIM_NUMBER SURNAME = Me!LAST_NAME FIRST_NAME = Me!FIRST_FULL_NAME DATE_OF_BIRTH = Me!BIRTHDATE GENDER = Me!GENDER strSQLApp =...

Ok, it got rid of the error but it is not writing the data to the table. Any ideas?

the ! worked!!!! thank you so much

It IS a field in the source data, but what do you mean control on the form?

Ok, it highlights yellow on "Private Sub Command901_Click()" but highlights purple on "CLAIM_NUMBER = Me.HIC_CLAIM_NUMBER". :confused:

Hi kids. I've been staring at this for 2 days trying to figure out why I get the "Method or data member not found" error. I think it's time to let you guys look at it. I'm sure it's something dumb that I can't see for the trees. Private Sub Command901_Click() Dim CLAIM_NUMBER, SURNAME...

THANK YOU! I love this board. Maybe one day I'll learn enough to help people too!

Yes. Here you go... Private Sub Combo21_AfterUpdate() ' Find the record that matches the control. Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[HIC_CLAIM_NUMBER] = '" & Me![Combo21] & "'" If Not rs.EOF Then Me.Bookmark = rs.Bookmark End Sub Private Sub...