iyi çalışmalar
komut1 tıklama olayı
Private Sub Komut1_Click()
Dim txtGuncelle As String
txtGuncelle = "update OGR set [ADI]=left([ADI SOYADI],instrRev([ADI SOYADI],' ')-1), [SOYADI]=mid([ADI SOYADI],instrRev([ADI SOYADI],' ')+1)"
CurrentDb.Execute txtGuncelle
End Sub