November 19, 2008 02:35am pst

1. capricorn1 1,164,378
2. LSMCons... 643,742
3. boag2000 584,207
4. DatabaseMX 439,605
5. peter57r 402,190
6. harfang 277,504
7. matthews... 220,454
8. jimhorn 192,522
9. TextReport 132,746
10. MikeToole 120,513
11. omgang 115,275
12. frankytee 99,014
13. koutny 94,835
14. GRayL 90,855
15. angelIII 90,320
16. irudyk 89,074
17. LennyGray 81,272
18. mbizup 79,933
19. Rick_Ric... 79,617
20. hnasr 76,855
21. cactus_d... 71,848
22. JDettman 69,055
23. eghtebas 68,487
24. jmoss111 68,371
25. rorya 64,932

1. capricorn1 1,785,223
2. LSMCons... 875,861
3. DatabaseMX 742,330
4. peter57r 639,699
5. boag2000 624,119
6. harfang 459,052
7. jimhorn 388,512
8. matthews... 369,718
9. jefftwilley 353,737
10. mbizup 275,650
11. frankytee 234,267
12. MikeToole 225,563
13. stevbe 222,014
14. omgang 187,510
15. GRayL 176,661
16. rockiroads 166,783
17. LPurvis 144,870
18. JDettman 138,915
19. angelIII 133,378
20. TextReport 133,246
21. ragoran 112,130
22. koutny 109,860
23. dqmq 106,796
24. Rick_Ric... 103,217
25. eghtebas 96,062

10.05.2008 at 04:20AM PDT, ID: 23788420

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

6.2

Trying to save temp table data created for form to a permanent table

Asked by Destiny947 in Access Coding/Macros, Microsoft Access Database, Access Forms

Tags: microsoft, access, 2003, vba, 3704: Operation is not allowed when the object is closed

I have a basic form that uploads data from a spreadsheet, populates the fields and assigns a number for the project.

There are 3 tables involved: tblPlan, tblStrPlanBldgs, and TempSPBuildings.

Currently, saving the data from the form to the tblPlan works just fine. I have created a button to test saving the building information (which uses the Temp table) to tblStrPlanBldgs and am getting the following error message "3704: Operation is not allowed when the object is closed." This occurs on the line
.Open "tblMailCodes", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
from the code below.

Start 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:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:

           
           
             Private Sub cmdTestSaveBldgs_Click()
On Error GoTo ErrorHandle
 
Dim MailCodeID As Variant
Dim PlanID As Integer, SubPlanNo As Integer, AuthAction As String, plan As String
Dim desc As String, approval As Date, auth As Date, MailCode As String
 
Dim rst As ADODB.Recordset, rst1 As ADODB.Recordset, rst2 As ADODB.Recordset, rst3 As ADODB.Recordset
  
desc = Me!txtPlanDescription
plan = Me!txtPlanNo
approval = Me!txtCharterApprovalDate
'auth = Me.txtAuthDate
 
'rst = tblPlan
'rst1 = TempSPBuildingInfo table
'rst2 = tblStrPlanBldgs
'rst3 = tblMailCodes
 
Set rst = New ADODB.Recordset
   With rst
        .Open "tblPlan", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
        .Find "PlanNo = '" & plan & "'"
        Debug.Print .Fields("PlanNo").Value
        PlanID = .Fields("PlanAutoID").Value
        Debug.Print .Fields("PlanAutoID").Value
   End With
   'MailCodeID = DLookup("[mailcodeid]", "[tblmailcodes]", "[tblmailcodes].[mailcode] = " & [tblapatemp2].[Mail Code] & "'")
 
Set rst1 = New ADODB.Recordset
 
 
    With rst1
    .Open "TempSPBuildingInfo", CurrentProject.Connection, adOpenStatic, adLockOptimistic
    Do While Not rst1.EOF
 
        MailCode = .Fields("Mail Code").Value
        With rst3
            Set rst3 = New ADODB.Recordset
            Do While Not rst3.EOF
                .Open "tblMailCodes", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
                .Find "Mailcode = '" & MailCode & "'"
                MailCodeID = .Fields("mailcodeid").Value
                MsgBox MailCodeID
            rst3.MoveNext
            Loop
        End With
        Debug.Print .Fields("Mail Code").Value
        AuthAction = .Fields("Action").Value
        Debug.Print .Fields("Action").Value
    rst1.MoveNext
    Loop
    End With
    
rst.Close
rst1.Close
rst3.Close
 
ExitHere:
    Set rst = Nothing
    Set rst1 = Nothing
    Set rst3 = Nothing
    Exit Sub
 
ErrorHandle:
    MsgBox Err.Number & ": " & Err.Description
    Resume ExitHere
End Sub

           
         

Keywords: Trying to save temp table data created …

	Title
1	insert into #temp exec
2	Clearing Oracle 10G Temp Tablespace
3	Create Temp Table In Access
4	Drop temp table
5	cpu mobo temperatures
6	Delete temp files remotely

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

Trying to save temp table data created for form to a permanent table

Asked by Destiny947 in Access Coding/Macros, Microsoft Access Database, Access Forms

Tags: microsoft, access, 2003, vba, 3704: Operation is not allowed when the object is closed

About this solution