Alanları kontrol etsin boş ise kayıt yapmasın,

kalbinidinle · 8 Nisan 2007

Buna benzer soruların sorulduğunu biliyorum ama bu sorulmadı çünkü tek tek irdeledim (en azından ben öyle zannediyorum)

Sorum : Formda yaklaşık 6 alanın kaydet butonuna basıldığında kontrol edilerek alanlar dolu ise kaydetmesini boş ise boş alanın uyararak bildirmesini boş alana fokuslamasını istiyorum.
Eğer boş alan yoksa kaydetmesini, bilgilerin kaydedildiğini bildirmesini istiyorum.

Kolay diyebilirsiniz ancak beceremedim, yardımcı olacak arkadaşlara şimdiden teşekkürler.

modalı · 8 Nisan 2007

Gerçi daha önce eklemiştim aynı örneği ama tekrar ekliyorum.

Uygulamada modül içinde bir fonksiyon var ve bu fonksiyon formdan çağrılıyor, veri girilmemiş alanı bulup uyarıyor.

İyi çalışmalar

sonmez · 8 Nisan 2007

veri gerekli uyarısı

hocam çok güzel ellerinize saglık benim sorum bu konuyu ilgilendirdiginden buraya yazıyorum tamamı degilde bazılarında boş geçmem gerekiyor burda 6 tane ama bende 30 yakın bazıları mutlaka olmalı bazıları gerektiginde olmalı olmazssa olmazları uyar gerekli olmayanları gözartmesi gerekirse nasıl yapabiliriz teşekkür ediyorum

kalbinidinle · 8 Nisan 2007

modalı' Alıntı:
......veri girilmemiş alanı bulup uyarıyor.
İyi çalışmalar

Sayın modalı teşekkür ediyorum yardımınız için;
Yalnız ben formda her alanı değil, benim istediğim alanları kontrol etmek istiyorum, eğer boşsa o alanlar, kullanıcı uyarılsın, doldurmadan devam edemesin, yada vazgeçsin.

Kısaca tüm alanlar değil isteğim, isteğim yalnız tercih ettiğim alanların kontrolü, yardımlarınız için şimdiden teşekkür ediyorum.

abkbek · 20 Ağustos 2008

Sayın kalbini dinle bu sorunun cevabını bulabildiniz mi? eğer varsa örneğinizi paylaşabilir misiniz?

gulsum1 · 20 Ağustos 2008

ÖNCE BİR TABLO YAPIN
ADI T_Fields
ALANLAR
ID OTOMOTİK SAYI
FieldName METİN
ARAMA VE KONTROLEDECEĞİNİZ FORMUN TABLOSUNUN ALANLARINI ALAN AÇILAN KUTU

ReqdStatus EVET KAYIR

SONRA BİR SORGU
ADI Q_Reqd
ALANLAR AYNI AMA ReqdStatus UN ÖLÇÜT KISMINA <>0 YAZIN

BU KISIM FORMA

Private Sub Form_BeforeUpdate(Cancel As Integer)

On Error GoTo ErrTrap
Dim Fst As String, Fnm As String, Fcn As String
Dim rst As DAO.Recordset

' Set the recordset as per the fields selected to be required.
Set rst = CurrentDb.OpenRecordset("Q_Reqd", dbOpenDynaset)
' Exit - if no record
If rst.BOF And rst.EOF Then
GoTo ExitPoint
End If

' Build up a string, containing the names of required fields still blank.
Fst = ""
rst.MoveFirst
Do While Not rst.EOF
Fnm = rst.Fields("FieldName")
If Len(Me(Fnm)) > 0 Then
Else
Fst = Fst & IIf(Len(Fst) > 0, ", ", "") & Fnm
End If
rst.MoveNext
Loop

If Len(Fst) > 0 Then
' Get the name of first field listed in the string Fst.
If InStr(Fst, ",") > 0 Then
Fcn = Left(Fst, InStr(Fst, ",") - 1)
Else
Fcn = Fst
End If

MsgBox "BU ALANLARI " & _
"BOŞ GEÇEMEZSİNİZ" & vbCrLf & _
"(" & Fst & ")"
Me(Fcn).SetFocus

Cancel = 1
End If

ExitPoint:
If Not rst Is Nothing Then
rst.Close
Set rst = Nothing
End If
On Error GoTo 0
Exit Sub

ErrTrap:
MsgBox Err.Number & " - " & Err.Description
Resume ExitPoint
End Sub

bu kod ile tabloya eklediğiniz formların kontrol edilmesini istediğiniz alanları seçiyorsunuz ve ne kadar form ve ne kadar alan seçiyorsanız onları kontrol ediyor her şey otomotik

Not:Kod ecnebi bir kardeşe aittir teşekkürleri bir borç bilirim ayrıca bu ve buna benzer kodlar accesskod deposunda var

beab05 · 20 Ağustos 2008

Merhabalar;
Form üzerindeki boş alanların kontrolü için en basit ve etkin yol "for each" döngüsü kullanmaktır. Yeni bir tablo, sorgu ekleyip ve de bütün bir kayıt setini kontrol ettirmeye gerek yok. Çok fazla veri olan tablolarda bu vt nin gereksiz yavaşlamasına neden olacaktır.

Form üzerindeki boş bırakılmaması istenen alanların özelliklerine girin ve diğer sekmesinden im(tag) kısmına örneğin bb yazınız.. Daha sonra formun güncelleştirme öncesine de alttaki kodları ekleyiniz..

Kod:

Dim ctl As Object
For Each ctl In Me.Controls
If (ctl.ControlType = acTextBox) And ctl.Tag = "[COLOR="red"]bb[/COLOR]" Then
If Nz(ctl, "") = "" Then
MsgBox (ctl.Name & vbCrLf & " isimli alan&#305; bo&#351; b&#305;rakamazs&#305;n&#305;z." & vbCrLf & " L&#252;tfen ilgili alan&#305; doldurunuz.. ")
ctl.SetFocus
Cancel = True
End If
End If
Next

abkbek · 21 Ağustos 2008

Sayın Gulsum1 ve sayın beab05 öncelikle cevap verme nezaketinizden ve paylaşımınızdan dolayı çok teşekkür ederim.

Sayın beab05, yukarıdaki çözüm yöntemi ile şu da yapılabilir mi acaba; alan boş ise kullanıcının alana gireceği verinin daha açıklayıcı olmasını sağlamak için formdaki 3 alternatifli bir alanı kontrol etsin o alandaki veriye göre boş alanı açıklayacağımız şekle göre girsin. örneğin; adres türü ve Tlf.no adlı alanlarımız olsun ve Tlf.no boş geçilmesini istemediğimiz alan olsun. kullanıcı Tlf.no.yu atlamışsa mesaj çıkarken adres türü alanına baksın ve eğer ev ise mesajda ev telefonunu yazmasını belirtsin, iş ise iş tlf.nu.sını yazmasını belirtsin. şeklinde

mehmetdemiral · 21 Ağustos 2008

Ben arkadaşların önerdiklerini sizin istediğiniz şekle getirdim. Bunun için adres türü alanında ev adresi veya iş adresi seçimine bağlı olarak uyarı verdirdim. Tablonuza da ilaveler yaptım. Siz bu örneği istediğniz şekle getirisiniz. Buyrun:

abkbek · 22 Ağustos 2008

Sayın mehmetdemiral,
çok teşekkür ederim. örneğinizden istifade edeceğim.

beab05 · 22 Ağustos 2008

Merhaba;
Sayın Mehmetdemiral, cancel=true satırını diğer tag döngüsü için eklemeyi unutmuş sanırım. Üstteki gibi ekleyiniz.

Ayrıca uygulamaya açılan kutu (combobox) eklenmişse ve varsayılan değer verilmemişse onun da boş olmaması gerekir mevcut yapıya göre..

........
If (ctl.ControlType = acTextBox or ctl.ControlType = accombobox) And ctl.Tag = "bb" Then
...................

Gibi değiştirilmesi gerekir..

Alanları kontrol etsin boş ise kayıt yapmasın,

kalbinidinle

modalı

sonmez

kalbinidinle

abkbek

gulsum1

beab05

Özel Üye

abkbek

mehmetdemiral

abkbek

beab05

Özel Üye