Bu bir siteden bulduğum FTP nin Access ile kullanımı ile ilgili modul

For Each Değişkenimiz in Hangi Nesne
Komutlar

Gerekirse Exit For

Next Değişkenimiz

*Each: Her biri
For Each - Next döngüsü ise nesnelerle hareket eder,rakamlara ihtiyaç duymaz,nesneler topluluğuna aynı aynı eylemi uygulatmak için kullanılır.


Şimdi örneklerle daha iyi anlamaya çalışalım.

Soru;Excel hücrelerine,föngü ile 1 ile 25 arasında rakam yazdırabilirmiyiz,

Cevap:
[code]Sub Duayen_1_25()

Dim rng As Range, say As Byte

For Each rng In Range("a1:a25")

say = say

[code]
Option Compare Database
Option Explicit

Private Type tRESULTS
strName As String
strFullPath As String
strTypeName As String
lngSize As Long
varTimeCreated As Variant
varTimeAccessed As Variant
varTimeWritten As Variant
strMajorVersion As String
strMinorVersion As String
strMajorBuild As String
strMinorBuild As String
End Type

Private WithEvents mclsFO As FileSystemEx.FileObject
Private atResults() As tRESULTS
Private mblnCancel As Boolean
Private mblnSingleFile As B

Selamlar,
1-Tablohft (Haftalık puantaj)
2-Tabloay (Aylık Puantaj)

Yapmak istediğimi kısaca şöyle anlatmaya çalışayım;

Tablohft tablosunda g0,g1,g2,g3… diye alanlar var (Haftanın günlerine göre rakamlar var)
Tabloay tablosunda Tarih1,tarih2,….diye alanlarım var (Aydaki günler var)
Formda bulunan ay ve yıl alanlarında seçim yapıp güncelle dediğim zaman;

1-Önce Hafta bütünlüğüne göre aydaki ilk günü buluyorum,
Ve bu güne denk gelen Tablohft tablosunda uygun alandaki rakamı Tabloay tablosudaki il

Merhabalar acaba textbox ları for içinde değişkenli kullanmak mümkünmü ?
örneğin


gibi ?

Herkese Selam,

FormA'da bulunan CVRID alanı üzerinde For...Next döngüsü yapmak istiyorum. Ancak FormA'daki bu CVRID (otomatik sayı) alanının ilk değeri ve son değeri sabit değil, ilk değer 1, 2, 3, 4,...100 de olabilir, en son değeri aynı şekilde 1, 2, 3, 4,...100 de olabilir tablodaki verilerin sayısına bağlı olarak ilk ve son CVRID değerleri değişebilir. Sebebi de şu, ben bu değerleri aynı form üzerinde bir-iki tane kritere göre süzerek formda görüntüleyeceğim, sonra da döngüyü çalıştıracağ

Merhaba arkadaşlar,
benim yapmak istedigim olay, 2500 adet müşterim var,
müşterinin baş harfine göre sıra nımarası verdirmek,
öncelikler mevcut numaraları degiştirmem gerek
a harfiyle başlayan bir müşteriyi seçip numaralandır butonuna tıkladığımda
Baş harfi A olan müşterilere sırasına göre A1 A2 A3 A4 A5
B harfi ile başlayan bir müşteri seçip aynısını yapmak istiyorum,
ben biraz uğraştım yapamadım malesef, kodlarımı aşağıya ekliyorum,

Dim ne, i As String, a, e As Integer
i = Left([F

Merhabalar;
Aşağıda ki kodda artışın 2'şer 2'şer nasıl artırabilirim.
Saygılarımla....

For i = 8 To 79

        If S.Cells(i, "g") = 0 Then

           S.Rows(i).EntireRow.Hidden = True

        End If

Next i

Herkese iyi bayramlar çok kıymetli arkadaşlar
Küçük bir veri kayıt ve takip Access uygulaması yapıyorum bu konularda siz değerli üstatlardan yardım bekliyorum

ekteki sunmuş olduğum dosyada Bilgi Ekranı Formu üzerinde Kayıtlaraltformunda ADI SOYADI'na göre arama yapmak istiyorum kendim bir şeyler yaptım ama tam olarak olmadı birde mümkünse alt formdaki kişi bilgisine tıkladığımda forma veri aktarabilsin değerli vaktinizi alıyorum iyi günler

reklamm