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.
(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
Private Sub SİRKET_AfterUpdate()'e aşağıdaki kodu yaz
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
Ayrıca Metin Kutusu adı SİRKET yerine SIRKET yaz, türkçe karakter kullanma
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]
(04/12/2008, 20:06)C*E*L*O*Y*C*E yazdı: [ -> ]size bir örnek göndereyim bunu siz kendinize uyarlayın
YA BEN GİRİŞ YAPAMADIM.ŞİFRE NEDİR.. KUSURA BAKMAYIN ÇOK YENİYİM
Access TE