17/02/2009, 22:55
Ado İle Yapılmış Tüm özellikleri ile bir form uygulaması
17/02/2009, 23:43
atlantis8334
bu metin kutusuna değer girdiğimde diğer metin kutular güncellenmiyor..
18/02/2009, 11:07
naimelik
teşekkürler
19/02/2009, 21:11
Nurullah_Serdar
benim bu konuda sormak istediğim bir konu var hocam. kayıtları kodla güncelleyebiliyoruz. form üzerindeki güncelle butonunu kayıttaki herhangi bir alan da değişiklik yaptığımızda aktif hale gelmesi için herhangi bir kod yazılabilirmi.
kayıt ilk açıldığıda güncelle butonu pasif olacak ama alanların herhangi birinde değişiklik olduğunda aktif hale gelecek.
kayıt ilk açıldığıda güncelle butonu pasif olacak ama alanların herhangi birinde değişiklik olduğunda aktif hale gelecek.
07/03/2009, 00:01
esrefigit
http://support.microsoft.com/kb/239114/
bu adresdeki sisteminize uygun Jet 4.0 Service Pack 8 paketini yükleyin
2.bunu mutlaka deneyin
regsvr32.exe Msjetoledb40.dll
bu adresdeki sisteminize uygun Jet 4.0 Service Pack 8 paketini yükleyin
2.bunu mutlaka deneyin
regsvr32.exe Msjetoledb40.dll
21/05/2009, 03:26
candasm
Kod:
Option Compare Database
Option Explicit
Public conn As ADODB.Connection
Public rst As ADODB.Recordset
Private Sub Form_Load()
Set conn = CurrentProject.Connection
Set rst = New ADODB.Recordset
Me.error.Visible = False
End Sub
Private Sub iesire_Click()
Application.Quit
End Sub
Private Sub intrare_Click()
If IsNull(Me.nume) Or Me.nume = "" Then
Me.error.Visible = True
MsgBox "Greşit nume "
Error_ = True
End If
If IsNull(Me.parola) Or Me.parola = "" Then
Me.error.Visible = True
MsgBox "Greşit parola "
Error_ = True
End If
If Error_ = False Then
strSql = "SELECT DISTINCT nume FROM `agentii` WHERE nume=" & Me.nume & " and parola=" & Me.parola
rst.Open strSql, CurrentProject.Connection, adOpenStatic, adLockReadOnly
If rst.RecordCount = 1 Then
MsgBox "ok"
Else
MsgBox ":("
End If
Me.error.Visible = False
End If
End Subbu kodu çalıştırdığımda hep hata alıyorum acaba nerede hata yapıyorum