merhaba arkadaşlar
bir arkadaşımızkonuyu şu şekilde özetlemiş.

Bu açılan kutunun güncelleme sonrasında olayına aşağıdaki kodları yazalım.
Me.Metin1 = musterino.column(1)
Me.Metin2 = musterino.column(2)
Me.Metin3 = musterino.column(3)

bu şöyle neden olmuyor.
---------------

for i=1 to 500

"me.metin" & i = musterino.column(i)
next
-----------------
bu kodun çalışması gerkmez mi nerede hata yapıyorum acaba teşekkürler

Arkadaşlar formumda
frm_dersler formu için;


"snf" adında bir metin kutum var. Bu metin kutusunun içerisindeki değere göre (9,10,11,12 gibi) "txtsnfmevcudu" metin kutusuna girilen değere göre alttaki kod işliyor.

Private Sub txtsnfmevcudu_AfterUpdate()
If snf < 11 Then
Select Case Me.txtsnfmevcudu

Case Is <= 21
Me.txtgrpsay = 1
Case Is <= 31
Me.txtgrpsay = 2

Case Is >= 32
Me.txtgrpsay = 3
End Select

Else
Select Case Me.txtsnfmevcudu

Case Is <= 16
Me.txtgrpsay = 1
C