(05/12/2008, 02:50)sledgeab yazdı: Tablo adı ve Alan isilmeri için

ŞİRKET TANIMLAMA EKRANI
yerine
SIRKETTANIMLAMAEKRANI

ŞİRKET
yerine
SIRKET

Kod yazma ve kod çalıştırmada sorun çıkmaması için tablo ve alan isimlerinde türkçe karakter kullanılmaz ve kelime aralarına boşluk bırakılmaz.

güncellendiğinde bu alan oraya gelmez çünkü kodda rs.addnew yazılı yani bu tabloya yeni kayıt ekler.
tabloya bir kayıt ekle rs.addnew yerine rs.movelast yazki eski veriyi güncellesin.

Function kullanıcı()
Dim rs As New ADODB.Recordset
rs.Open "SIRKETTANIMLAMAEKRANI", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
rs("SİRKET") = AD.Value
rs.Update
Set rs = Nothing
End Function


Private Sub SİRKET_AfterUpdate()
Call kullanıcı
End Sub

call kullanıcı hatası veriyor