uyarı mesajı kod sorunu - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: uyarı mesajı kod sorunu (/konu-uyari-mesaji-kod-sorunu.html) |
uyarı mesajı kod sorunu - dayko - 19/10/2016 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 Cvp: uyarı mesajı kod sorunu - atoz112 - 19/10/2016 sayın dayko, bahsettiğiniz talebinize yönelik olarak;
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. Cvp: uyarı mesajı kod sorunu - dayko - 19/10/2016 atoz112 hocam emeğine sağlık kod oldu tşkler |