Çoklu seçimle liste kutusundan metin kutusuna aktarma

1 2
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
1 2