Genel bir soru

1 2
18/09/2013, 13:40

fascioğlu

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.

Örnek.rar
Oficce 2003
18/09/2013, 17:22

C*e*l*o*y*c*e

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
18/09/2013, 19:41

fascioğlu

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.
18/09/2013, 20:39

fascioğlu

Ö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
18/09/2013, 22:10

fatih karagöl

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
18/09/2013, 22:19

fascioğlu

Çok teşekkür ederim fatih bey böylelikle 1.sorumun cevabını almış oldum.kaldı diğer 2 soru.
1 2