Arkadaşlar Ado ile kaydet butonun kodlarını bir arkadaşın çalışmasından alarak ve öğrenerek uyarlamaya çalışıyorum. lakin hata alıyorum. İlgilenebilir misiniz?
[sql]
If IsNull(Me.txtid) Or Me.txtid = "" Then
MsgBox "Lütfen Öğrenci Kayıt Sırasını Yazınız!", , "Kayıt İşlemi"
Me.txtid.SetFocus
Exit Sub
End If

Dim txtidKontrol As Long
txtidKontrol = Nz(DCount("ogrid", "tbl_ogrenciler", "ogrid='" & Me.txtid & "'"))
If txtidKontrol <> 0 Then
Cancel = False
MsgBox "Girmekte Oldugu

[Resim: https://resim.accesstr.net/do.php?img=9870]


[vb]Private Sub Komut8_Click()

Dim rs As New ADODB.Recordset
'If MsgBox("Değişiklikler Kaydedilsin mi?", 36, "Kayıt Ediliyor") = vbYes Then
rs.Open "tbl_ihale", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs.AddNew

rs!giden_evrak_sayisi = Me.txtgidenevrak
rs!gelen_evrak_sayisi = Me.txtgelenevrak
rs!teklif_tarihi = Me.txttektar
rs!ihale_onay_tarihi = Me.txtihaleonay
rs!fatura_tarihi = Me.txtfattar
rs!muayene_kablu_tarihi = M

Ana form üzerinden "yeni" butonuyla ikinci bir forma gidilerek veri kaydı yapılıyor. İkinci formda sadece "kaydet" ve "kapat" butonu var. Yapılan kayıtlar ana formda liste kutusuna düşüyor.

Ana formda liste kutusundan satır seçilerek "düzenle" butonuna tıklayınca ikinci formdaki "kayde" butonun kaydı kaydet olarak çalışmasını nasıl sağlarız.

Sekmeli bir form oluşturdum ve 2 adet buton ekledim. 

Sekme1'de KAYDET ve İLERLE butonuna tıkladığımda 2. Sekme Açılsın, 
Sekme2'de ise KAYDET ve KAPAT butonuna tıkladığımda Kaydetsin ve Kapatsın vede Kaydedildi uyarısı verilsin istiyorum bunu nasıl yapabilirim?

[Resim: https://resim.accesstr.net/do.php?img=9984]

Arkadaşlar, konu başlığında ifade ettiğim işlemleri yapan örnek bir veri tabanı var mı?. Konusu önemli değil. Kullanıcı hatalarını engelleyen bir çalışma varsa paylaşabilir misiniz?

Merhaba

Form üzeriden kayıt işlemi gerçekleştirmek istiyorum. Kaydet butonuna tıkladığımda,

“Nesne başvurusu bir nesnenin örneğine ayarlanmadı”  uyarısı alıyorum.

Kayıt işlemi gerçekleşiyor. Access tablosuna kaydediyor. Yalnız kaydedildiğine dair uyarı gelmiyor. 

Bu sorunu nasıl çözerim.




[Resim: https://resim.accesstr.net/do.php?img=10138]

Merhaba,

Formda metin kutusuna veri girdiğimde kaydet butonuna basmadan tabloya verileri kaydetiyor.
ben metine veri girdiğimde kaydet butonuna basmadan veri girişi yapmasını istemiyorum tabloya bu konuda yardımcı olabilirmisiniz?

selam hocalarım;
Access de bir çalışmam var
bu çalışmada veri alanında otomatik sadece güncel yıl görünsün istiyorum kaydet butonuna bastığımda veri denetim kaynağında kayıtlı olmasını istiyorum fakat bir türlü yapamadım.
varsayılan değer kısmına =format(date();"yyyy") yazdım oluyor fakat denetim kaynağında kaydı göremiyorum. sadece form açılınca görünüyor
nasıl yapmam gerekiyor acaba

---

birde otomatik sıra numarası verirken örneğin
txt_bicak_No = Nz(DMax("bicak_No", "tbl_kisiler"), "A"

Formda bulunan "yeni kayıt" ve Kaydet/güncelle" butonlarım var.
Kaydet/güncelle butonunda 4 alana göre mükerrer sorgulaması yapmak istiyorum. Dört alan eşitse mesaj versin ve kayıt gerçekleşmesin istyorum. Yapmaya çalıştım ama..

[code]Private Sub kmtkaydet_Click()
On Error GoTo Err_kaydıkaydet_Click

kural1 = DCount("ders_id", "tbl_dersler", "dersinadi='" & Me.txtdersadi & "'")
kural2 = DCount("ders_id", "tbl_dersler", "sinifi='" & Me.txtsinif & "'")
kural3 = DCount("ders_id", "tbl_ders

Aşağıda vermiş olduğum kodları nasıl düzenlersek sağlıklı çalışmış olur.


[vb]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