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.
İLİŞKİSİZ FORM NESNESİ
(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
Son Düzenleme: 05/12/2008, 03:06, Düzenleyen: karam.
Private Sub SİRKET_AfterUpdate()'e aşağıdaki kodu yaz
Ayrıca Metin Kutusu adı SİRKET yerine SIRKET yaz, türkçe karakter kullanma
Kod:
Dim rs As New ADODB.Recordset
rs.Open "SIRKETTANIMLAMAEKRANI", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.MoveLast
rs("SIRKET") = AD.Value
rs.Update
Set rs = Nothing
HATA VEMİYOR AMA DEĞER DE GELMİYOR TEKRAR AÇTIM KAPADI AMA ÖNEMLİ DEĞİL İLK YAPTIĞIMIZDA BENİM İŞİMİ GÖRÜYOR TEŞEKÜR EDERİM
HEMDE ÇOKKK[/align]
HEMDE ÇOKKK[/align]
Konuyu Okuyanlar: 1 Ziyaretçi