Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
populating data from excel into access
I have a excel user form that collects data and then drops it into an access
table. However if the user doesn't complete a field or leaves a field blank then the code comes back with an error. Dim db As DAO.Database Set db = DAO.OpenDatabase("accessdatabase.mdb") ' Open the table Dim rs As DAO.Recordset Set rs = db.OpenRecordset("tblFOI") ' Write the data rs.AddNew rs!area = area_cbo.Text rs!Officer = officer_txt.Text rs!tel = tel_txt.Text rs!Type = type_cbo.Text rs!firstname = firstname_txt.Text rs!lastname = lastname_txt.Text rs!street = street_txt.Text rs!town = town_txt.Text rs!county = county_txt.Text rs!postcode = postcode_txt.Text rs!apptel = apptel_txt.Text rs!fax = fax_txt.Text rs!email = email_txt.Text rs!Method = method_cbo.Text rs!request = request_cbo.Text rs!Description = description_txt.Text rs!payment = payment_txt.Text rs!methodreceived = methodreceived_cbo.Text rs!datetohq = datetohq_txt.Text rs!target = target_txt.Text rs!sent = sent_txt.Text rs!reasons = reasons_txt.Text ' Update the table rs.Update rs.Close db.Close Set rs = Nothing Set db = Nothing Any Ideas??? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
populating data from excel into access
Hi Chris
For examples see http://www.erlandsendata.no/english/...php?t=envbadac -- Regards Ron de Bruin http://www.rondebruin.nl "Chris" wrote in message ... I have a excel user form that collects data and then drops it into an access table. However if the user doesn't complete a field or leaves a field blank then the code comes back with an error. Dim db As DAO.Database Set db = DAO.OpenDatabase("accessdatabase.mdb") ' Open the table Dim rs As DAO.Recordset Set rs = db.OpenRecordset("tblFOI") ' Write the data rs.AddNew rs!area = area_cbo.Text rs!Officer = officer_txt.Text rs!tel = tel_txt.Text rs!Type = type_cbo.Text rs!firstname = firstname_txt.Text rs!lastname = lastname_txt.Text rs!street = street_txt.Text rs!town = town_txt.Text rs!county = county_txt.Text rs!postcode = postcode_txt.Text rs!apptel = apptel_txt.Text rs!fax = fax_txt.Text rs!email = email_txt.Text rs!Method = method_cbo.Text rs!request = request_cbo.Text rs!Description = description_txt.Text rs!payment = payment_txt.Text rs!methodreceived = methodreceived_cbo.Text rs!datetohq = datetohq_txt.Text rs!target = target_txt.Text rs!sent = sent_txt.Text rs!reasons = reasons_txt.Text ' Update the table rs.Update rs.Close db.Close Set rs = Nothing Set db = Nothing Any Ideas??? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
populating data from excel into access
Chris wrote: if the user doesn't complete a field or leaves a field blank then the code comes back with an error. Any Ideas??? My idea is that the columns are defined as NOT NULL and have no DEFAULT values. Jamie. -- |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Populating a list/combo box with an Access column. | Excel Discussion (Misc queries) | |||
populating spreedsheet with data from access | Excel Worksheet Functions | |||
populating data from excel into access | Links and Linking in Excel | |||
Populating worksheet with data from Access | Excel Programming | |||
Populating a lis/combo box in excel with access data | Excel Programming |