Sizin Access seçeneklerinde Eylem sorgularında onay isteme seçeneği işaretli. Sayın Aykay'da ise bu seçenek "gösterme" şeklinde yani işaretsiz. Bu yüzden access'teki eylemler sizde onay ister ama sayın Aykay'da onay istemeden gerçekleşir. Bu nedenle yukardaki silme butonundaki kodların ilk başına
Kod:
DoCmd.SetWarnings False
Kod:
DoCmd.SetWarnings true
Yeni kodlar şöyle olacak:
Kod:
Private Sub Komut2_Click()
DoCmd.SetWarnings False
On Error GoTo Err_Komut2_Click
If MsgBox("Seçilen satır silinecektir. Emin misiniz?", _
vbYesNo) = vbYes Then
Cancel = True
DoCmd.RunSQL "Delete Tablo1.sno FROM Tablo1 WHERE (((Tablo1.sno)=[Formlar]![Form1]![Metin3]));", -1
End If
Me.Tablo1_alt_formu.Requery
DoCmd.SetWarnings True
Exit_Komut2_Click:
Exit Sub
Err_Komut2_Click:
MsgBox Err.Description
Resume Exit_Komut2_Click
End Sub
Kolay gelsin.