Skip to main content

AccessTr.neT


uyarı mesajı kod sorunu

uyarı mesajı kod sorunu

#1
Private Sub Komut7_Click()
Dim sorgu, tablo As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
tablo = "Select * from OGRENCI"
rs.Open tablo, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Debug.Print sorgu
rs.MoveFirst
Do Until rs.EOF
sorgu = "UPDATE OGRENCI SET OGRENCI.GUZERGAH ='" & Me.Metin3 & "' , OGRENCI.PLAKA ='" & Me.Metin4 & "' , OGRENCI.SECIM ='" & Me.Metin19 & "' " & _
" WHERE OGRENCI.TC='" & rs.Fields("TC") & "'"
    If rs.Fields("SECIM") = True Then
        DoCmd.SetWarnings False
            Debug.Print sorgu
            CurrentDb.Execute sorgu
        DoCmd.SetWarnings True
    End If
   rs.MoveNext
Loop
Me.Requery
Me.OGRENCIONUR.Requery
End Sub

bu şekilde bir kodum var ama kod içine değişirmek istiyormusunuz evet ise değiştirsin hayır ise işlem yapmasın demek istiyorum ama baya bi denedim beceremedim ne yapabilirim acaba
Ege Web Ajans
Bilgi Güçtür.....
Son Düzenleme: 19/10/2016, 14:08, Düzenleyen: dayko.
Cevapla
#2
sayın dayko,

bahsettiğiniz talebinize yönelik olarak;

Private Sub Komut7_Click()




If MsgBox("İslemi DEĞİŞTİRMEK istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then
Dim sorgu, tablo As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
tablo = "Select * from OGRENCI"
rs.Open tablo, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Debug.Print sorgu
rs.MoveFirst
Do Until rs.EOF
sorgu = "UPDATE OGRENCI SET OGRENCI.GUZERGAH ='" & Me.Metin3 & "' , OGRENCI.PLAKA ='" & Me.Metin4 & "' , OGRENCI.SECIM ='" & Me.Metin19 & "' " & _
" WHERE OGRENCI.TC='" & rs.Fields("TC") & "'"
    If rs.Fields("SECIM") = True Then
        DoCmd.SetWarnings False
            Debug.Print sorgu
            CurrentDb.Execute sorgu
        DoCmd.SetWarnings True
    End If
   rs.MoveNext
Loop
Me.Requery
Me.OGRENCIONUR.Requery
Else
Me.Undo
Exit Sub
End If
End Sub

kod satırlarını deneyiniz.

gerektiği takdirde,
Site Kuralları gereği lütfen içeriğinde farazi gerçek dışı uydurma olacak halde ve sonuçları görebilmek adına da birkaç kayıt barındıracak halde örnek uygulamanızı dahil ediniz.

bilginize...iyi çalışmalar,saygılar.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
atoz112 hocam emeğine sağlık kod oldu tşkler
Ege Web Ajans
Bilgi Güçtür.....
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task