+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Çoklu seçimle liste kutusundan metin kutusuna aktarma (/konu-coklu-secimle-liste-kutusundan-metin-kutusuna-aktarma.html)
Sayfalar:
1
2
Cvp: Çoklu seçimle liste kutusundan metin kutusuna aktarma - ayhan2122 - 14/03/2010
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