Håller på med en applikation som ska hämta ett personnr i en tabell, stoppa in det i en variabel och testa det mot olika villkor, beroende på om svaret blir 1, 2 eller tre ska sedan med personnr som urval hämta hela den posten från en annan tabell och kopiera in den i en eller två ytterligare andra tabeller beroende på om jag fick 1, 2 eller 3 i ifsatsen och därefter gå till nästa personnr i första tabellen och fortsätta med loopen.

Början ser ut å här men sen blev det stopp för mig

Public Sub Command1_Click()

'cnTest.Open "Provider=Microsoft OLE DB Provider for SQL Server;" & "Data Source=HEMCAILLA"
rsPnr.MoveFirst
Do Until rsPnr.EOF

txtPnr.Text = rsPnr![Personnr]
strPnr = rsPnr![Personnr]

With rsPnr
.Open "Insert into Pnrkollny Select * from Pnrkoll where osv Personnr='strPnr'"


rsPnr.MoveNext
Loop
End Sub

Tack på förhand!

Det går nog att direkt använda insert fråger istället för att loopa igenom recordsetet. Kan kanske hjälpa dig snickra ihop dem om du gav mig definitionen för alla tabeller inblandade och vad 1, 2 resp 3 skall göra...