Solved

insert vba access using rst_insert.Fields("first") = rst_search.Fields("firstname")

Posted on 2008-06-10
4
566 Views
Last Modified: 2011-10-19
I must do a kind of VBA procedure to select data from different tables to insert and my Director
wants me to use a specific access process to imitate in a way an ORACLE stored procedure cursor:

I've tried to find the codeing way on internet but if the cursor is available for what concerns the select
the insertion is not achieved

I've defined the query REQUERY:
SELECT manager.firstname, manager.lastname
FROM manager;

and T1 has two columns first and last.

The code is:



Private Sub Bascule2_Click()

Dim requete As String
Dim rst_search As Recordset
Dim rst_insert As Recordset
Dim rst_cum_fact_ytd As Recordset
Dim nom_collab As String
Dim pnom_collab As String
Dim datesortie_collab As String
Dim matricule_collab As String
Dim CYTD As Double

Set rst_search = CurrentDb.OpenRecordset("REQUERY")

 

      Set rst_insert = CurrentDb.OpenRecordset("T1", dbOpenTable)


If rst_search.RecordCount > 0 Then
    rst_search.MoveLast
    rst_search.MoveFirst
    Do




        rst_insert.AddNew

       
        rst_insert.Fields("first") = rst_search.Fields("firstname")
         rst_insert.Fields("last") = rst_search.Fields("lastname")
         
         'MsgBox rst_search.Fields("firstname")
       
        rst_search.MoveNext
         
Loop Until rst_search.EOF

End If

End Sub


I include the database where is the code (pres button insert into T1)
that an expert suggested me to do;


Thanks if you can help.

David
manager1.mdb
0
Comment
Question by:davidgfi
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
4 Comments
 
LVL 19

Accepted Solution

by:
frankytee earned 500 total points
ID: 21757090
you missed the update, it goes just before the movenext like below
'---------------------------------------------------------------------
        rst_insert.update
'---------------------------------------------------------------------
        rst_search.MoveNext        
etc
0
 

Author Closing Comment

by:davidgfi
ID: 31466024
Thanks a lot.
Sorry I did not ommit update by inadvertance but I learn very fast
microsoft with expert exchange for my new Job.

Best David
0
 
LVL 19

Expert Comment

by:frankytee
ID: 21759588
you're welcome.
0
 

Author Comment

by:davidgfi
ID: 21760096
Thanks,
Never knows maybe one day I can pretend to help others.
Best David
0

Featured Post

Guide to Performance: Optimization & Monitoring

Nowadays, monitoring is a mixture of tools, systems, and codes—making it a very complex process. And with this complexity, comes variables for failure. Get DZone’s new Guide to Performance to learn how to proactively find these variables and solve them before a disruption occurs.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

As they say in love and is true in SQL: you can sum some Data some of the time, but you can't always aggregate all Data all the time! Introduction: By the end of this Article it is my intention to bring the meaning and value of the above quote to…
I'm trying, I really am. But I've seen so many wrong approaches involving date(time) boundaries I despair about my inability to explain it. I've seen quite a few recently that define a non-leap year as 364 days, or 366 days and the list goes on. …
How to Install VMware Tools in Red Hat Enterprise Linux 6.4 (RHEL 6.4) Step-by-Step Tutorial

737 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question