MERHABA ARKADAŞLAR.
Access'e yeni başladım. başlayalı 3-4 hafta oldu. Access-Sql'den indridiğim örnekleri inceleyerek biraz gelişitirdim.
Ben dershanede çalışan bir öğretmenim. İl geneli yaptığımız denemeler oluyor. bunların kayıtlarını tutmak, raporlarını almak için bir çalışmam oldu. Fakat bu çalışmada bir türlü yapamadığım bir nokta var.
örnekte de göreceğiniz üzere SALON NO ve SIRA NO diye alanlar var. Salon ve Sıra numaralarını kendimiz giriyoruz. ben her Salonda bir tane sıra no olsu

Merhaba arkadaşlar daha düzgünü var mı diye baktığımda forumda göremediğim bir kodu paylaşmak istedim 

bu kod yapısında a veya b metin kutusu içerisinde ki verilerden biri dolu olduğu durumlarda işleme devam ediyor mevcut örneklerin hepsi hem a hem b boş değilse şeklinde oldugu için paylaşmak istedim basit bir şey ama iş görüyor

umarım yanlış yere açmamışımdır konuyu

[code=vba]
If IsNull([a]) Then
alan1=0
Else
alan1=1
End If

If IsNull([b]) Then
alan2=0
Else
alan2=1
End If

merhaba Formda boş geçmesini istemediğim iki alan var (Aydınlatılan+FailiMechul) bu alanların en az birisi dolu olacak ve en fazla 1 değeri alacak her ikisi boş geçtiğinde bana ileti vermesini istiyorum (alanları boş geçemezsiniz en az birisini doldurmalısınız diye) teşekkürler kolay gelsin

merhabalar,
eklemiş olduğum dosyada İRSALİYE OLUŞTUR formunda,
İrsaliye no
müşteri adı
yapılan işlem
teslim eden
teslim alan
araç plaka
girdikten sonra "İrsaliye Bilgilerini Kaydet" butonuna tıkladığımda

Eğer aynı irsaliye "IRSALIYE_BILGILERI_ORTAK" veri tabanında kayıtlı ise kaydetmesin, bu irsaliye kayıtlıdır diye uyarı mesajı versin,

tarihle ilgili başka bir konu oluşturmuştum, Sn taruz'un cevabını bu formda kullanmaya çalıştım ama uyarlayamadım, http://www.access-sql.com/Konu-A

[align=justify]Merhabalar. Öncelikle yapmak istediğim şeyi kısaca anlatayım.
Bir kamu kurumunda belli bir bölgeye giriş izni veriyoruz. Bu izin karşılığında ücret alıyoruz. Ancak ücret alınabilmesi için kişinin daha önce 30 gün girmiş olması lazım. (Yani yıl içerisinde 30 gün muafiyet var.) Örnek bir form hazırladım. Burada yapmak istediğim şey veri girildikten (veya excelde alındıktan sonra) Ad-soyad ve kurum/firma karşılaştırması yaparak daha önceki izinleri bulması ve 30 gün olunca uyarı v

Ekleyeceğim ve son halini vereceğim programda veri tablosunda kayıt yoksa alt form daki staj dosyası yazdır raporunda makro hatası uyarısı yerine kayıtlı öğrenci yoktur mesajını verdirmek istiyorum. Şimdiden teşekkürler.

Herkese merhaba.

Ana formun üzerinde bir alt formum var ve kaynağını seçeneklere göre değiştiriyorum. Alt formların kaynağı sorgulara bağlı. eğer altformda kayıt yoksa mesajla uyarı verdirmeyi bir türlü yapamadım.
böyle bir şey denedim ama olmadı.

If IsNull(IzinAltForm.RecordSource) Then
MsgBox "Görüntüleyecek veri yok!!"
End If

Yardım rica ediyorum.

selamlar,
eklemiş olduğum dosyada bir sonraki adıma geçiş yapıyorum,
bu dosyayı bu hale getirmemde yardımcı olan sayın dsezgin'e de teşekkür ederim.

bu dosyada parti numarasını girdikten sonra (veri tabanında 1-2-3-5 nolu partiler mevcut) örneğin 1, 1 nolu partiyi girip sonraki duruma geçiş yaptığımda sonraki durum eğer,
makine çıkış
Ramöz çıkış gibi
içinde çıkış kelimesi varsa mesaj vermesini istiyorum, like komutu kullanmaya çalıştım ama yapamadım,
yardımcı olabilirsen

merhaba arkadaşlar
eklediğim dosyada günlük döviz kuru alıp kaydetme yapılıyor.

Dosya ilk açıldığında döviz kurunu alıyor veritabanına kaydediyor.
ikinci bir kez açıldığında aynı güne ait veri olduğu için kayıt ekleme (örnek ekte) iletisi veriyor.

benim istediğim ikinci ve sonraki açılışlarda döviz kuru kayıt edildi mesajı vermesi kaydet kodunu çalıştırmaması.

İyi çalışmalar- kolay gelsin.

Hocalarım merhaba , arama yaptığım alanda arama yaparken isim soyisim girdiğimde enter ' e basmadan kişi yoksa hata nasıl verdiririm?

kişiyi bulamadığı zaman end debug hatası veriyor çünkü. bunun yerine kişi bulunamadı diye uyarı verdirebilir miyim?

kullandığım kod aşağıdadır.

DoCmd.SearchForRecord , "", acFirst, "[Kimlik] = " & Str(Nz(Screen.ActiveControl, 0))
Liste48.Requery
Liste51.Requery
Form_FRM_YENİOGRENCİTAKİP.ALTFRM_BORCALACAK.Requery
Metin59.Caption = Format(Nz(DSum("borc_