Public Function makeSäljare() 'Create rs Dim rsData As ADODB.Recordset Set rsData = New ADODB.Recordset Dim sql As String 'Select what should be included in the rs. rsData.Open "SELECT Forhandler, Selger FROM data", _ CurrentProject.Connection, adOpenDynamic, adLockOptimistic rsData.MoveFirst MsgBox rsData.GetString 'Manipulate each row of the result column. Do While Not rsData.EOF sql = "INSERT INTO säljare (Partner_Namn, Namn ) VALUES ('" & rsData!forhandler & "','" & rsData!Selger & "');" MsgBox sql 'DoCmd.SetWarnings (False) DoCmd.RunSQL (sql) 'DoCmd.SetWarnings (True) rsData.MoveNext 'If rsData.EOF Then Exit Do Loop rsData.Close End Function
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)