kod sadece ilk dört sıra için yapıldı alan adları değişti dikkat et veri alım adları değil
'İLAÇLARIN DURUMUNA GÖRE AKTAR TUŞLARINI AKTİF PASİF YAPMA
Dim i As Integer
For i = 0 To 3 Step 1
If IsNull(Me("Alan" & i & "1")) Or IsNull(Me("Alan" & i & "2")) Or IsNull(Me("Alan" & i & "3")) Or IsNull(Me("Alan" & i & "4")) Then Me("Alan" & i & "7").Enabled = False Else Me("Alan" & i & "7").Enabled = True
Next i
bu kod ilk dört sırayı kontrol eder sen sonraki sıraların alan adlarını değiştirdikten sonra For i = 0 To 3 Step 1 burdaki 3 4 5 diye artıracaksın ve burayıda kopyala yapıştırla artıracaksın IsNull(Me("Alan" & i & "3")) burdaki örneği incele
kayıtları değiştir istediğinin olduğunu görürsün
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Son Düzenleme: 17/12/2009, 16:26, Düzenleyen: esrefigit.