AccessTr.neT

Sayfalar: 1 2 3 4 5 6

teşekkür ederim hocam

bu metin kutusuna değer girdiğimde diğer metin kutular güncellenmiyor..

teşekkürler

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.

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

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 Sub

bu kodu çalıştırdığımda hep hata alıyorum acaba nerede hata yapıyorum Img-cray

acces ve vbde yeniyimde [/align]

Sayfalar: 1 2 3 4 5 6

BKCAN

atlantis8334

naimelik

Nurullah_Serdar

esrefigit

candasm