14/03/2010, 17:07
ayhan2122
Butonun adı Komut50 olsun, click olayına;
Kod:
Private Sub Komut50_Click()
On Error GoTo Err_Komut50_Click
For i = 1 To 20
If IsNull(Me("Alt" & i)) Then
Exit For
Else
DoCmd.RunSQL "INSERT INTO Tablo1 ( Secimler ) SELECT '" & Me("Alt" & i) & "';"
End If
Next
Exit_Komut50_Click:
Exit Sub
Err_Komut50_Click:
' MsgBox Err.Description
Resume Exit_Komut50_Click
End Sub