Hi Dale,
Sorry or course that would help!
Dim d as new date
Dim sql As String
sql = “SELECT * FROM D_PCMAP WHERE ID=”+id.ToText
Dim data As RecordSet
data = mDB.SQLSelect(sql)
If mDB.Error Then
MsgBox("DB Error: " + mDB.ErrorMessage)
Return false
End If
data.edit
data.Field(“Brand”).StringValue=BrandColumnName.text
data.Field(“PaperType”).StringValue=TypeColumnName.text
data.Field(“ProductCode”).StringValue=CodeColumnName.text
data.Field(“Colour”).StringValue=ColourColumnName.text
data.Field(“Size1”).StringValue=Size1ColumnName.text
data.Field(“Size2”).StringValue=Size2ColumnName.text
data.Field(“GSM”).StringValue=GSMColumnName.text
data.Field(“Micron”).StringValue=MicronColumnName.Text
data.Field(“Price”).StringValue=Price1ColumnName.text
data.Field(“PriceQty”).StringValue=Price1QtyColumnName.text
data.Field(“PriceUnits”).StringValue=Price1UnitsColumnName.Text
data.Field(“TonnePrice”).StringValue=TonneColumnName.Text
data.Field(“PackSize”).StringValue=PackColumnName.Text
data.Field(“MinOrder”).StringValue=MinColumnName.Text
data.Field(“IntervalQty”).StringValue=IntervalColumnName.Text
data.Field(“Filename”).StringValue=CsvFileName.text
data.Field(“Path”).StringValue=FilePath.text
data.Field(“Leadtime”).StringValue=LeadTimeColumnName.text
//BELOW IS THE FIELD CAUSING THE ERROR
data.Field(“ModifiedDate”).DateValue=d
data.Field(“DefaultLeadTime”).StringValue=DefaultLeadtime.text
data.Field(“DefaultPriceDescription”).StringValue=DefaultPriceDescription.text
data.field(“DescriptionDuplicates”).BooleanValue=DescriptionDuplicates.Value
data.Field(“Description1”).StringValue=Description1ColumnName.Text
data.Field(“Description2”).StringValue=Description2ColumnName.Text
data.Field(“PriceExtract”).StringValue=Price1QtyExtractColumnName.text
data.Field(“PriceExtractFind”).StringValue=PriceExtractFind.Text
data.Field(“KGS”).StringValue=KGsColumnName.Text
data.update
If mDB.Error Then
MsgBox "DB Error: " + mDB.ErrorMessage
Return False
else
mdb.Commit
End If
Below is an extract of the code that is originally writing the date to the database.
Dim row As New DatabaseRecord
row.Column(“Brand”)=BrandColumnName.text
row.Column(“PaperType”)=TypeColumnName.text
row.Column(“ProductCode”)=CodeColumnName.text
row.Column(“Colour”)=ColourColumnName.text
row.Column(“Size1”)=Size1ColumnName.text
row.Column(“Size2”)=Size2ColumnName.text
row.Column(“GSM”)=GSMColumnName.text
row.Column(“Micron”)=MicronColumnName.Text
row.Column(“Leadtime”)=LeadTimeColumnName.text
row.Column(“Price”)=Price1ColumnName.text
row.Column(“PriceQty”)=Price1QtyColumnName.text
row.Column(“PriceUnits”)=Price1UnitsColumnName.Text
row.Column(“TonnePrice”)=TonneColumnName.Text
row.Column(“PackSize”)=PackColumnName.Text
row.Column(“MinOrder”)=MinColumnName.Text
row.Column(“IntervalQty”)=IntervalColumnName.Text
row.Column(“Filename”)=CsvFileName.text
row.Column(“Path”)=FilePath.text
row.Column(“Description”)=Description.text
row.DateColumn(“ModifiedDate”)=d
row.Column(“SupplierID”)=SupplierID.text
row.Column(“DefaultLeadTime”)=DefaultLeadtime.text
row.Column(“DefaultPriceDescription”)=DefaultPriceDescription.text
row.BooleanColumn(“DescriptionDuplicates”)=DescriptionDuplicates.Value
row.Column(“Description1”)=Description1ColumnName.Text
row.Column(“Description2”)=Description2ColumnName.Text
row.Column(“PriceExtract”)=Price1QtyExtractColumnName.text
row.Column(“PriceExtractFind”)=PriceExtractFind.Text
row.Column(“KGS”)=KGsColumnName.Text
mDB.InsertRecord(“D_PCMAP”, row)
This works without error.
The OS is Windows 10 ands the SQL database is on Windows 2012 and is SQL Express.