|
Tags
|
|
|
|
Author: Taruz - Replies: 17 - Views: 34518
|
|
GİRİŞ
Access ile hazırladığımız uygulamalarımızda yapmak istediklerimiz arttıkça artık menülerin, sihirbazların, makroların yetersiz kaldığını hissederiz.. Ama biz uygulamalarımızın daha özgün, esnek ve de kullanışlı olmasını istiyoruz.. Bu da demektir ki artık ufak ufak kod yazmayı öğrenmenin zamanı gelmiştir..
Merhaba arkadaşlar..
İf - Then - Else karar yapısı en sık kullandığımız yapılardan biridir.. Oldukça esnek ve ku
|
Author: orka80 - Replies: 5 - Views: 3213
|
|
Sorgu ile oluşturulmuş bir alt formda Gözlem soruları var. Ve bu sorulara “Yapıyor”, “Yapamıyor”, “Biraz yapıyor” gibi cevaplar işaretliyoruz.
Çalışkan öğrencilere tek tek “Yapıyor” seçeneğini işaretlemek yerine onaysec isimli açılan kutudan “Yapıyor” seçeneğini seçerek bütün soruları aynı anda “Yapıyor” olarak işaretliyorum.
Buraya kadar sorun yok.
Soru sayısı derslere ve sınıflara göre sürekli değiştiğinden soruları tablodan silmek yerine Sorulara ait kayıtları boş bırakıyorum. Durum
|
|
if then else sorsusu
|
|
merhaba arkadaslar accessde kargo takip programı yapmaya calısıyorum biyerde takıldım.
eger acılan kutu56 (gonerim sekli) TIR secilirse
metin67'ye (odenen tutara)
metin52 (kg) * 6 ile carpıp metin 67 ye yazmasını
eger kutu56 (gonerim sekli) UCAK secilirse
metin67'ye (odenen tutara)
metin52 (kg) * 9,5 ile carpıp metin 67 ye yazmasının istiyorum.
If Açılan Kutu56 = "TIR" Then
Metin67 = [kg]*6
Else
Açılan Kutu56 = [kg]*9.5
End If
boyle yazlıyorum ama olmuyor.
yardımcı ol
|
|
If Then Else Kullanımı ile Hesap Kontrolü
|
|
Merhabalar, yapmış olduğum bir projede If Then Else şartlarını ve bu şarta bağlı olarak sorgu çalıştırmayı tabloya kayıt yapmayı düşünüyorum. İkili şartta herhangi bir sorun yaşamıyorum ancak şart 3 lü olunca kod bir türlü çalışmıyor.
1. ödeme tam yapıldığında uyarı mesajı verip (ÖDEMENİZ KAYIT EDİLDİ) tabloya kayıt etsin
[color=#000000][font=Exo, sans-serif]2. ödeme eksik yapıldığında uyarı versin (EKSİK ÖDEME YAPTINIZ) kalan bakiyeyi ak
|
|
IF - THEN - ELSE Sorunu
|
|
If ((IsNull(Me.Metin1) Or Me.Metin1 = "") And (IsNull(Me.Metin3) Or Me.Metin3 = "") And (IsNull(Me.Metin5) Or Me.Metin5 = "") And (IsNull(Me.Açılan_Kutu14) Or Me.Açılan_Kutu14 = "" Or Me.Açılan_Kutu14 = "*") And (IsNull(Me.Metin9) Or Me.Metin9 = "")) Then
MsgBox "Seçim yapmadınız! Lütfen bir seçim yapınız...", vbOKOnly + vbInformation, "Bilgilendirme Penceresi"
ElseIf ((Me.Metin1 <= 645000) And (Me.Metin1 >= 648200)) Then
MsgBox "Kriterlere uygun olmayan bir değer girdiniz...", vbOKOnly + v
|
