(05/12/2008, 00:14)sledgeab yazdı: [ -> ]Konuyu 1. mesajdan itibaren tekrar okudum, aktivasyon ile ilgili hiç birşey yok, aktivasyon, aktive nereden çıktı anlamadım,
benim yazdığım kod kullanıcı giriş yaptığında giriş formunda giriş yapan kullanıcının isminin yazdırılması,
sona doğru yazmıştım bunu başka amaçlada kullanmak istiyorum diye . bu nedenle siz konuya hakim olduğunuzdan daha rahat anlatabilirim diye onu örnek gösterdim
bene şimdi polsoftun logon programı varmı ona bakıyordum ama aktivasyo haricinde kullanıcı girişi bende başka bir ffprogram kullanıyorum onu daha önce eklemiştim aktivasyon üzerinde eklediğim olayı yapabilirmiyiz acaba ?
Serial Formuna aşağıdaki kodu ekle
Kod:
Function kullanıcı()
Dim rs As New ADODB.Recordset
rs.Open "AD", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("AD") = AD.Value
rs.Update
Set rs = Nothing
End Function
Daha sonra serial formunda bulunan onayla butonunun tıklandığında olayındaki kodun en üstüne veya metin kutusu güncellendiğinde olayına aşağıdakini yaz.
Bu şekilde onayla butonu tıklandığında veya metin kutusu güncellendiğinde AD tablosuna veri gönderilsin.
(05/12/2008, 00:34)sledgeab yazdı: [ -> ]Serial Formuna aşağıdaki kodu ekle
Kod:
Function kullanıcı()
Dim rs As New ADODB.Recordset
rs.Open "AD", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("AD") = AD.Value
rs.Update
Set rs = Nothing
End Function
Daha sonra serial formunda bulunan onayla butonunun tıklandığında olayındaki kodun en üstüne veya metin kutusu güncellendiğinde olayına aşağıdakini yaz.
Bu şekilde onayla butonu tıklandığında veya metin kutusu güncellendiğinde AD tablosuna veri gönderilsin.
açıldığıda kısmına mı ? yazacağım
Function kullanıcı() ile başlayan kodu Serial Formundaki kodların en altına ekle, call ile istediğin yerde fonksiyonu çalıştır
(05/12/2008, 00:44)sledgeab yazdı: [ -> ]Function kullanıcı() ile başlayan kodu Serial Formundaki kodların en altına ekle, call ile istediğin yerde fonksiyonu çalıştır
tamam sayende oldu Çok Çooook teşekür ediyorum çoçukların deyimi kadar bu kadaaaaar teşekürler
harikasın bilgi birikimine sayğılarımı sunuyorum.
Ado kullanırken mutlaka referanslara Microsoft Ado Ext....... yazan referansı eklemeyi unutma,
Hayat vb'ya benzer, referansında benimki gibi MISSING yazıyorsa ..........