eğer 6.mesajda sayın Mesut YAĞMUR Bey'in
Alıntı:...Teşekkürler. Ellerinize Sağlık. Hallettim....
ifadesini sayın Ozan Bey'in 5.mesajda yazmış olduğu
Alıntı:...Kodu aşağıdaki ile değiştirebilir misin?...
ifadesinin akabinde eklemiş oldukları kodlamaya dair geçerli kabul ettiklerini beyan etmiş sayarsak,sizin de bu çözüme yönelik olarak yapmanız gereken şu olacaktır diye düşünüyorum.
Private Sub Komut50_Click()
...
...
...
End Sub
boş bırakılan (nokta noktalı) kısımdaki alan içerisine,
DoCmd.RunCommand acCmdSaveRecord
i = [Forms]![kocan]!BaşlangıcNo
a = [Forms]![kocan]!BitişNo
For m = i To a
Me.Metin51.Value = i
If Len(i) = 1 Then
Metin51 = "00000" & i
ElseIf Len(i) = 2 Then
Metin51 = "0000" & i
ElseIf Len(i) = 3 Then
Metin51 = "000" & i
ElseIf Len(i) = 4 Then
Metin51 = "00" & i
ElseIf Len(i) = 5 Then
Metin51 = "0" & i
ElseIf Len(i) = 6 Then
Metin51 = i
ElseIf Len(i) = 7 Then
MsgBox ("Koçan No 6 haneye ulaştığı için " & i - 1 & " sayısında bitirildi")
Exit Sub
End If
With DoCmd
.SetWarnings False
.RunSQL "insert into cek(koçanno,çekno)" & " select [Forms]![KOCAN]!Kocanno, [Forms]![KOCAN]!Metin51"
.SetWarnings True
i = i + 1
End With
Next
MsgBox ("Çek Tablosu Oluşturuldu.")
kodlamasını kopyala yapıştır ile eklemek ve çalıştırmak.
versiyon farklı olduğundan denemedim.fakat sorunuzun cevabı bu olacaktır diye düşünüyorum.bilgilerinize.
iyi çalışmalar,
saygılar.
