Skip to main content

AccessTr.neT


Genel bir soru

Genel bir soru

Çözüldü #1
Değerli hocalarım genel bir sorum olacak sizlere,
Soracağım sorular ile ilgili sorular sormuştum ama ben genel olarak özetleyerek sorumu yineliyorum,
Bu konuda beni aydınlatır ve yardımcı olabilirseniz sizlere minnettar olacağım,
Soru şu;
Üzerinde çalıştığım projemde uygulamak istediğim,
1-Formda doldurulması gereken alanlar doldurulmadan bir sonraki alana geçildiğinde "Boş alan"uyarısını vermesi,
2-Doldurulması zorunlu alanlar ile diğer alanlardaki işlemler bittikten sonra ikinci bir kayıda geçerken veya yeni kayıt eklerken bir önceki yapılan işlemin "yapılan işlem kaydedilsinmi"(Evet-Hayır-İptal, Evet dediğimizde kaydetmesi,Hayır dediğimizde silmesi,iptal dediğimizde ise düzeltme yapması) uyarısını vermesi
Tüm işlemleri formu kapatmadan yapabilmek,
3-Yapılan işlemlerin kontrolünün kullanıcıda olması içinde (kapat) butonu ile formu kapattığımızda otomatik kaydetme işlemini yapmaması,
Saygılarımla.

Ek Dosyalar
Örnek.rar
Oficce 2003
Son Düzenleme: 18/09/2013, 22:00, Düzenleyen: fascioğlu.
Cevapla
Çözüldü #2
1.sorunun cevabı aşagıda diğer cevapları formda ararsan zaten var,gerçi buda var ama yinede vermiş olayım,lütfen sormadan önce arama motorunu kullanarak arama yapınız.

Private Sub Adısoyadı_Exit(Cancel As Integer)
If IsNull(Me![Adısoyadı]) Then
If MsgBox("Adı Soyadı alanı boş... Boş geçilsinmi..? ", vbYesNo) = vbNo Then
Me.Adısoyadı.SetFocus
Else
Me.tcno.SetFocus
End If
End If
End Sub
Cevapla
Çözüldü #3
Hocam,tabiri cayiz ise kaç gündür siteyi delik deşik ettim,ancak farklı farklı şeyler benim istediğim cevapları ya ben anlayamadım veya bulamadım.Cevabınız için tşk.deneyip bakayım sönra size döneyim.
Saygılarımla.
Not: Kodu nereye yapıştıracağım.
Son Düzenleme: 18/09/2013, 19:42, Düzenleyen: fascioğlu.
Cevapla
Çözüldü #4
Ek Dosyalar
Örnek.rar


Hocam örnek ekledim,uygulama tamam ancak tek sorun formu kapattığımda boş geçilsinmi uyarısına hayır dememe rağmen formu kapatıyor bunu nasıl düzenleyebiliriz
Son Düzenleme: 18/09/2013, 21:55, Düzenleyen: fascioğlu.
Cevapla
Çözüldü #5
Selamlar
kapat düğmesinin kodunu bu şekilde ayalarsanız kapanmaz

Private Sub Komut15_Click()
On Error GoTo Err_Komut15_Click
If telefon & tcno & Adısoyadı <> "" Then
If IsNull(Adısoyadı) Or Adısoyadı = "" Then
GoTo eksikBilgi
End If
If IsNull(tcno) Or tcno = "" Then
GoTo eksikBilgi
End If
If IsNull(telefon) Or telefon = "" Then
GoTo eksikBilgi
End If
End If

DoCmd.Close

Exit_Komut15_Click:
Exit Sub

Err_Komut15_Click:
MsgBox Err.Description
Resume Exit_Komut15_Click
eksikBilgi:
MsgBox "Eksik bilgi mevcut"
End Sub
Hayatta listbox kullanmam..
Cevapla
Çözüldü #6
Çok teşekkür ederim fatih bey böylelikle 1.sorumun cevabını almış oldum.kaldı diğer 2 soru.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da