Commas in CSV file

[cotri]

I have some fields in a record that are being exported to another type of program using a CSV file. Everything was working fine until one time a comma was used in one of the exported fields. To prevent this problem in the future I would like to not permit commas in these fields that will be exported at the time the data is being inputted. I have seen that “ “ in the field would prevent this but unless there is a method to easily hide this in the background without any user input I don’t mind just not allowing commas.

[RuralGuy]

You could use the Replace() function in the BeforeUpdate event of the control.

[cotri]

You could use the Replace() function in the BeforeUpdate event of the control.

Sorry I’m new to all this. Do I need to build an “expression” and if so what will it look like? I keep getting errors. In the “properties” of the selected field will this expression be in the “Control Source” or “Before Update”? Thanks for the help here.

[RuralGuy]

You need to get to the Event tab of the property sheet for the control and press the "..." button and select CODE. That will create a stub for the event on the class module for the form. Copy that stub into your next post so we can see it.

[cotri]

I am looking to put a “Command Button” on a form to delete all records in a table. I found a Macro the deletes the whole table but I just want to delete the records. Any Ideals? Thanks

[RuralGuy]

You tagged onto an old thread of yours that was never marked as completed. You just posted a new issue that needs a new thread. You should also tell us how you solved the original issue so others reading this thread can learn too.

[cotri]

You tagged onto an old thread of yours that was never marked as completed. You just posted a new issue that needs a new thread. You should also tell us how you solved the original issue so others reading this thread can learn too.

Sorry about that. I meant for it to be a new thread and realized right after I sent it that something was different. Will repost this new issue by itself.

[cotri]

You need to get to the Event tab of the property sheet for the control and press the "..." button and select CODE. That will create a stub for the event on the class module for the form. Copy that stub into your next post so we can see it.

Here is the code for my "ShipToZipCode" field. As well as looking up the City and State for the given Zip Code it also allows a new City and State to be added to the Zip Code table if a new Zip Code is being used thats not in the table. Thanks


Private Sub ShiptoZipCode_AfterUpdate()
Dim sNewCity As String, sNewState As String
Dim iSaleNumber As Long
iSaleNumber = Me![SaleNumber]

If FindFieldValue("ZipCode", "ZipCodeToCityState", Me![ShiptoZipCode], 0) = "FAIL" Then
sNewCity = GetNewZipCode("City", Me![ShiptoZipCode])
sNewState = GetNewZipCode("State", Me![ShiptoZipCode])

AddNewZipCodeRecord "ZipCodeToCityState", Me![ShiptoZipCode], sNewCity, sNewState
'MsgBox Me![SaleNumber]
' Me![ShipToState] = sNewState
' Me![ShiptoCity] = sNewCity

Me![BillingZipCode] = Me![ShiptoZipCode]
' Me![BillToCity] = sNewCity
' Me![BillToState] = sNewState

DoCmd.Requery
DoCmd.GoToRecord offset:=FindRecordOffset("SaleNumber", "TotalFields", iSaleNumber)
'MMCloseReportsForms
'MMPickOrdersToExportToUPS
'MMCloseReportsForms

' Me![ShipToState] = Me![BillToState]
' Me![ShiptoCity] = sNewCity
Else
' Me![ShiptoCity] = Me![ShiptoZipCode].Column(1)
' Me![ShipToState] = Me![ShiptoZipCode].Column(2)
Me![BillingZipCode] = Me![ShiptoZipCode]
' Me![BillToCity] = Me![ShiptoZipCode].Column(1)
' Me![BillToState] = Me![ShiptoZipCode].Column(2)
End If

Me.Refresh
Me.ResidentialCheck.SetFocus
End Sub