Skip to main content

AccessTr.neT


Kaydet Butonu Şartları

Kaydet Butonu Şartları

Çözüldü #1
Aşağıda vermiş olduğum kodları nasıl düzenlersek sağlıklı çalışmış olur.


Private Sub btnKaydet_Click()
Dim gtrh, dtrh As Integer
Dim ogrencino As Integer

Dim ctrl As control
For Each ctrl In Me.Controls
If ctrl.Tag = "A" Then
ctrl.enabled = True
End If
Next


If txtgidenler = 0 Then
MsgBox "Lütfen evci çıkacak öğrenci ya da öğrencileri seçiniz?", , "FŞATL"
Else
If IsNull(txtgidis) Or IsNull(txtdonus) Then
If MsgBox("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ? Yine de devam etmek istiyor musunuz ?", vbYesNo, "DIKKAT") = vbYes Then
MsgBox ("Eksik Bilgi var, Evci Gidiş yada Evci Dönüş Tarihlerini Girmemiş Olabilirsiniz ?")

Komut5_Click
Exit Sub
MsgBox "..... Veriler Aktarılmadı .....", vbInformation
Else

ogrencino = Me.Listeevci.Column(0)
gtrh = CLng(txtgidis)
dtrh = CLng(txtdonus)

If DCount("ogrenciID", "Tblevci", "[ogrenciID] = " & ogrencino & " And Clng([gidistarihi])= " & gtrh & " And clng([donustarihi]) = " & dtrh) > 0 Then
MsgBox (" Bu tarihler arası kayıt var !")
Else
DoCmd.OpenQuery "SoRguevci"
Komut5_Click
MsgBox "..... ISLEM TAMAM .....", vbInformation
End If

End If
End If
End If


End Sub
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Kaydet Butonu Şartları - Yazar: SeferŞANLI - 26/10/2021, 09:46
RE: Kaydet Butonu Şartları - Yazar: berduş - 26/10/2021, 10:45
RE: Kaydet Butonu Şartları - Yazar: SeferŞANLI - 26/10/2021, 12:18
RE: Kaydet Butonu Şartları - Yazar: SeferŞANLI - 26/10/2021, 16:17
Re: Kaydet Butonu Şartları - Yazar: lemoncher2 - 07/11/2021, 18:28
RE: Kaydet Butonu Şartları - Yazar: SeferŞANLI - 07/11/2021, 19:35
RE: Kaydet Butonu Şartları - Yazar: lemoncher2 - 07/11/2021, 22:33
RE: Kaydet Butonu Şartları - Yazar: SeferŞANLI - 08/11/2021, 00:00
RE: Kaydet Butonu Şartları - Yazar: lemoncher2 - 08/11/2021, 00:22
RE: Kaydet Butonu Şartları - Yazar: SeferŞANLI - 08/11/2021, 00:45
RE: Kaydet Butonu Şartları - Yazar: lemoncher2 - 08/11/2021, 20:35
RE: Kaydet Butonu Şartları - Yazar: SeferŞANLI - 09/11/2021, 00:42
RE: Kaydet Butonu Şartları - Yazar: lemoncher2 - 09/11/2021, 20:31