DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
With DoCmd
.SetWarnings False
.RunSQL ("update tablo1 set met4 = right(met3,3)" & " where left(met3,2)='11'")
.RunSQL ("update tablo1 set metin3 = Left([met3],Len([met3])-Len([met4]))" & " where left(met3,2)='11'")
.SetWarnings True
End With