Recent content by niftysam

Dim orsCompany, oConn Set orsCompany = CreateObject("ADODB.Recordset") Set oConn = CurrentProject.Connection ' within current project therefore no need to open connection Dim branch As String, zipcode As Long, tempdistance As Double orsCompany.Open "select * from [ZipCodesUSUnique];", oConn, 3...

Thanks! It worked great.

I know this must be very easy I just can't find it. Isdefined, isNull I thought might work but didn't. Does anyone have any idea how I can check to see if this table exists before I alter the table? Thanks so much! Sam If (orsCompany("Pricing")) Then orsPricingField.Open...

Interesting problem with my database Currently I alter a table by adding three fields to it but now I need these three fields to be added as the first three columns instead of at the end. How can I do this dynamically? Is there a field property in Alter that allows me to change the order? I...

Yup, that was exactly what I thought, but I just wish I could have figured it out the other way. It seems like relying on the on error mechanism isn't the strongest solution...but i was tired of being stuck :) Thanks for the help!!! I couldn't get through this project without y'all!! Sam

I allow the user to import a file where they select the name of the table and location of the excel file. I need to add a few more lines of code that check to see that there is a zip code field and that its data type is a number field Here is the basic idea, but I am so new to vb script that...

Thanks!!!!!!!!!!11 Pat, Thanks so much!!! I was thinking I needed to custom code adding a blank table with field definitions and then update this table.

If FieldExists(Me!Combo2, "Branch") = True Then DoCmd.RunSQL ("ALTER TABLE " & Me!Combo2 & " DROP COLUMN Branch ;") End If Yes, I know I keep looking at it thinking it will look. Another weird thing is that in debug mode if I roll over this if statement, the little popup says TRUE =...

I am having a problem with this code. It always returns False. I am using Access 2000. Any ideas? For Each fld In CurrentDb.TableDefs(tableName).Fields If fld.Name = fieldName Then FieldExists = True Next

yes, but I need it dynamically :)

How to I check to see if a field exists in a table using VB? I want to run DoCmd.RunSQL ("ALTER TABLE " & test2 & " DROP COLUMN Branch Distance;") but the field may not exists in all cases.

Thanks!!!!! Thanks your everyone's help! Everything works great. To answer jon's earlier questions: The tables do not have the same fields, instead I run two queries: One query adds 5 fields and then the second (the one everyone helped me on) populates the fields. I do have 1 more questions...

I don't know the name of the table until they select it in the combo box. Which is why I was referencing the combo box.

Thanks and now Im on to the next step! Thanks..but now my second query is having issues. They can select the table in the combo box, but then I want to update this table with several pieces of information. How do I reference the combo box in my second query. I know this is wrong..but i will...

I am trying to make a combo box that will list all the table names in my db. I have no idea what I need to do. Thanks!!! I really need your help!!!