September 5, 2008 10:18pm pdt

1. capricorn1 837,755
2. LSMCons... 448,361
3. boag2000 416,712
4. DatabaseMX 323,032
5. peter57r 295,165
6. harfang 264,026
7. jimhorn 170,911
8. matthews... 135,645
9. TextReport 130,246
10. MikeToole 114,323
11. omgang 97,947
12. frankytee 91,914
13. koutny 90,035
14. angelIII 79,170
15. Rick_Ric... 71,927
16. GRayL 70,880
17. eghtebas 65,987
18. ee_rlee 62,522
19. irudyk 62,160
20. LennyGray 61,992
21. rorya 61,932
22. hnasr 59,055
23. cactus_d... 55,098
24. jefftwilley 54,222
25. wiswalld 53,743

1. capricorn1 1,458,600
2. LSMCons... 680,480
3. DatabaseMX 625,757
4. peter57r 532,674
5. boag2000 456,624
6. harfang 445,574
7. jimhorn 366,901
8. jefftwilley 350,437
9. matthews... 284,909
10. mbizup 241,400
11. frankytee 227,167
12. stevbe 220,614
13. MikeToole 219,373
14. omgang 170,182
15. GRayL 156,686
16. rockiroads 151,183
17. LPurvis 135,020
18. TextReport 130,746
19. angelIII 122,228
20. JDettman 120,940
21. ragoran 112,130
22. koutny 105,060
23. Rick_Ric... 95,527
24. eghtebas 93,562
25. dqmq 89,656

06.03.2008 at 09:38PM PDT, ID: 23455583

	[x] Attachment Details

Microsoft Access, 2003 editable recordset

Asked by ceelly in Access Coding/Macros, Access Forms

Tags: Microsoft Access, 2003, VB, VB

Hi,

I am trying to write some code for a form with pull down combobox and a subform in Access 2003. The subform is a datasheet. The pull down combobox contains a list of groups and the datasheet contains items belong to the selected group from the combobox.

The code creates a recordset based on the value selected from the combobox and assigns the recordset to the datasheet in the subform. However the recordset is not editable so the user can not add to the recordset. Is there anyway to make the recordset editable??? or is there a simpler way to do this???

cheers

CeellyStart Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

           
           
             Private Sub Combo2_Change()
Dim SiteList As String
Dim sql As String
Dim rs As Recordset
 
Set subform = Forms("SiteLists").Sites
 
SiteList = Combo2.Value
sql = "SELECT dbo_Site.Site_ID, dbo_Site.Name " & _
"FROM dbo_Site" & _
", SiteListNames, SiteLists " & _
"WHERE dbo_Site.Site_ID = SiteLists.Site " & _
"And SiteLists.SiteList = SiteListNames.SiteList " & _
"And SiteListNames.Name = '" & SiteList & "'"
 
Set rs = CurrentDb.OpenRecordset(sql, dbOpenDynaset)
 
'rs.Edit
'the above line produces an error message
'Cannnot update. Database or object is read only
 
Set subform.Form.Recordset = rs
 
 
subform.Form.Visible = True
 
End Sub

           
         

Keywords: Microsoft Access, 2003 editable r…

	Title
1	Using recordsets with subforms to per…
2	This Recordset is not updatable
3	Duplicating fields on subform in datash…
4	Recordset Not Updatable
5	How do I build a datasheet subform on …
6	variable recordset

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Microsoft Access, 2003 editable recordset

Asked by ceelly in Access Coding/Macros, Access Forms

Tags: Microsoft Access, 2003, VB, VB

About this solution