Recent content by Ecal

I see what your saying but I am also pulling info of another site with a population of 10000 or above. because what I am using it for there is no need to have a zip code for that area if it is below that

If I adjust the code I get a Run-time error '91': Object variable or With block variable not set I don't have any with blocks and if I put set in front of it but get a different error tried Dim objElement As Object I have tried Dim objElement As Variant without set and still get an error

This is the line that the debugger stops on: Set objElement = "INSERT INTO tb" & StateName & " " _ & "([Zip Code])" & vbCrLf & "VALUES " _ & "('" & ZipCode & "')"

Sorry guys I can't figure out how to show the code so it shows a number on every line Does anyone know how? I really like to have all my code with numbers next to every line

79 80 81 are where the trouble is

Lines 79 80 and 81 are what it highlights something wrong

:banghead:I have researched this to death I have a module that goes out to the USPS website and populates a table with all the zip codes. At one time I did have it working but now I can't seem to get it to work keep getting Run-Time error 424 "Object Required" Anyways here is the code I am...

keep getting token expired every time I try and start a thread why is that

So how would I do it with DateSerial and make it more reusable. Kind of new to SQL.... Any good websites to go to for SQL?

So How would I make it more reusable using VBA or SQL Kind of new to SQL.

How do you make it more reusable with SerialDates and is there any way to do the same affects if you where to use VBA?

Ok here is one SELECT Count(TblReceipts.ID) AS CountOfID, Sum(TblReceipts.Amount) AS SumOfAmount FROM TblReceipts HAVING ((([TblReceipts]![Purchase Date]) Between #4/1/2013# And #4/28/2013#));

Hello, I am trying to create a reciept database to log all my receipts and to let me know how much I spent for the month I have the query's set up just fine but as we all should know the months that have not come yet access is giving me a error when I go to run the vba script because the queries...

Here is what I have: Private Sub OptDocYes_Click() If Me.OptDocYes Then Me.OptDocNo.Enabled = False DoCmd.OpenForm "frmOrderParts" Forms!frmOrderParts.txtTypAC = Me.cboTypeAirCraft.Column(1) Else Me.OptDocNo.Enabled = True DoCmd.Close acForm, "frmOrderParts" End If End Sub...

Consider: Forms!frmOrderParts.txtTypAC = Me.cboTypeAirCraft This code gives me a 1 (which is not seen) from my field Catigory ID on the new form is there a way I can pull from whatever is selected in the combo box to put into a text box on the new form?