On Error Resume Next
For X = 0 To DCount("*", "Sorgu1")
If Len(X) = 1 Then
nesneadi = "dgListem$ctl0" & X & "$txtPRF1"
Else
nesneadi = "dgListem$ctl" & X & "$txtPRF1"
End If
WebBrowser9.Document.All(nesneadi).Value = Nz(DLookup("[snv1]", "Sorgu1", "[sirano]=" & X - 1), "")
Next X
Veri aldıktan sonra notları webbrowserdaki web sayfasına aktarma kodu