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

Ekteki örnekte END_IF_KULLANIMI adlı formda cariID alanı örneğin 0 ise hiçbirşey yapma bir sonraki alana geç sıfırdan büyük ise

kodu çalışıp tablodan adı soyadı gelsin ve bir sonraki alana geç şeklinde yapmak istedim ama malesef bir olmadı.Buna ek olarak karar yapısında belli aralık ta veya küçükse büyükse gibi değerler kullanılmak istenirse nasıl kullanılır.

Bir örnek gösterebili

Herkese Merhaba

Ekte sunulan Açıklama daki gibi Kayıtları yazdırabilirmiyiz.

İnanın 10 gündür uğraşıyorum yapamadım.

Üsdatlardan yardımlarını bekliyoruz.

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

Merhaba arkadaşlar

Bir sorum olacak.Veri tabanında Doldurulan adında tabloma EKLEME formunda kayıt ekliyorum.Bir sql komutu içinde girilen kaydın daha önce var olup olmadığını kontrol et butonu altında yapıp,mesaj box ile kullanıcıya kaydın olup olmadığını göstermek istiyorum.

Ayrıca girilen kaydın doküman kodunun,SAP tablosundaki versiyonu ile Doldurulan tablosundaki versiyonunu karşılaştırıp eğer farklıysa mesela Sap'daki C olup eklenecek olan yeni kaydın versiyonu B ise kaydetmeden önc

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

Private Sub kaydet_Click()
If IsNull(Me.birim) Or IsNull(Me.kodu) Or IsNull(Me.islem_tani) Then MsgBox "Lütfen alanları boş geçmeyin ", 48, "Kayıt İşlemi"

Me.birim.SetFocus

Exit Sub

Else


DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ana ([birim],[kodu],[islem_tani]) VALUES ('" & Me.birim.Value & "','" & Me.kodu.Value & "','" & Me.islem_tani.Value & "')"
DoCmd.SetWarnings True
Me.Refresh
 Me.kimlik = ""
 Me.birim = ""
 Me.kodu = ""
 Me.islem_tani = ""
 
 End If
End Su

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

merhaba arkadaşlar bu hatayı alıyorum Dlookup[color=#212121][size=medium][font=-apple-system, BlinkMacSystemFont,] fonksiyonumda , her şey gayet iyi gidiyordu burada takıldım, yardımcı olursanız çok sevinirim, dosya ekte. ayrıca ilk baştaki if else koşulum