AccessTr.neT

Tam Versiyon: Ekle,Sil
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Öncelikle herkese selamlar..

Çok uzunca bir aradan sonra access'te yapılmış bir program ihtiyacım oldu. Ara verdiğim için bir çok şeyi unuttum. Sitede yaklaşık 3 saattir araştırma yapıyorum bu konuda örnek bulamadım. Bulduklarım da ya şifreli ya da exe haline dönüştürülmüş olduğu için kodlarını göremedim. Bana formdan bilgileri doldurduğum ve ekle butonuna bastığım zaman bilgileri tabloya kaydeden ve gene aynı şekilde silmeye bastığım zaman tablodan silen programın kodunu verebilir misinz ?


Saygılarımla,
Sn erdemum öncelikle örnek eklemeniz gerekir. Bir de şu konuya göz atınız.

https://accesstr.net/konu-kayit-eklemek-...light=ekle

Saygılar.
kontrollü Kayıt

If MsgBox("Yeni kayıt eklemek istiyor musunuz?", vbYesNo + vbQuestion, "accesstr.net") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Else
Me.Undo
End If

Kontrollü Sil
Dim onay As String
onay = MsgBox("Kaydı silmek istediğinize emin misiniz?", vbYesNo, "accesstr.net")
If onay = 6 Then
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "Kayıt Silme İptal edildi", vbOKOnly, "accesstr.net"
End If
DoCmd.SetWarnings True

kolay gelsin