hata nerde ben yardım edebilirim. st.

bununla çok uzun zamn alır ya hazır db bul 2 text 2 cmd ok ne uğraşıyom

abi şu sözlük olayına bi çözüm getirin

ben biraz uğraştımda olmuyor. Hata var birdaha kontrol etsen?

dim larda hata var diyor. Option Explicit Dim db As Database Dim rs As Recordset Dim ws As Workspace Dim max As Long Dim i As Long şurda hata veriyor.

'TURKCE SOZLUK HAZIRLAYIN 'Form üzerine bir adet Frame1 koyun. 'İçine biradet text1, bir adet list1 ve list2 yerleştirin. 'Formüzerine biradet Frame2 koyun. 'İçine biradet text2, bir adet text3 ve bir adet 'command1 ve command2 ve bir adet label1 ve label2 yerleştirin. 'C:\Belgelerim\Turkce sozluk. mdb accesde oluşturun. 'Tabloda Field1 sutununa "Kelime" , Field2 sutununa "anlami" yazın. 'Aşağıdaki kodları Form arkasına yazın. Option Explicit Dim db As Database Dim rs As Recordset Dim ws As Workspace Dim max As Long Dim i As Long Private Sub Command1_Click Dim x1, x2 As String x1 = Text2. Text If Text2 = "" Then 'text2 boşşa değer kaydolmasın MsgBox Exit Sub End If x2 = Text3. Text If Text3 = "" Then 'text3 boşşa değer kaydolmasın MsgBox Exit Sub End If rs. AddNew rs. Fields(0). Value = Text2 'sözlük rs. Fields(1). Value = Text3 'sözlük açıklamalrı rs. Update Text4 = rs. Index Text5 = rs. RecordCount List1. AddItem Text2 Text2. SetFocus Text2. Text = "" Text3. SetFocus Text3. Text = "" End Sub Private Sub Command2_Click Dim frm As Form For Each frm In Forms frm. Hide Unload frm Set frm = Nothing Next frm rs. Close db. Close 'Close the database End Sub Private Sub Form_Activate On Error Resume Next Text1. SetFocus List2. BackColor = vbYellow End Sub Private Sub Form_Load On Error Resume Next List1. Clear List2. Clear Command1. Caption = "Ekle" Command2. Caption = "Son" Frame1. Caption = "kelime ara" Frame2. Caption = "Sözlük ekle" Text1. Text = "" Text2. Text = "" Text3. Text = "" Text4. Text = "" Text5. Text = "" Label1. Caption = "sözlük" Label2. Caption = "Anlami" Set ws = DBEngine. Workspaces(0) Set db = ws. OpenDatabase Set rs = db. OpenRecordset list End Sub Private Function list If rs. RecordCount = 0 Then MsgBox Exit Function End If max = rs. RecordCount rs. MoveFirst List1. Clear For i = 1 To max List1. AddItem rs rs. MoveNext Next i End Function Private Sub AList1_Click On Error Resume Next Label1. Caption = List1. Text Set rs = db. OpenRecordset("Select from kelimeler where ingilizce = '" & Trim(List1. list(List1. ListIndex)) & "'") rs. MoveFirst Text2. Text = rs End Sub Private Sub Text1_Change Dim MatchFound As Boolean Dim Last As Integer, J As Integer Text2. Text = "" Last = List1. ListCount - 1 J = 0 MatchFound = False Do If InStr(1, List1. list , Text1. Text, 1) > 0 Then MatchFound = True List1. ListIndex = J End If J = J + 1 Loop Until J > Last Or MatchFound If Not MatchFound Then List1. ListIndex = -1 End If 'Call list1_Click End Sub Private Sub Text2_click Text2. Text = "" Text2. BackColor = vbYellow End Sub Private Sub Form_KeyPress '' Formun KeyPreview özelliği True yapın. 'Enter'a Basılmış İse If KeyAscii = 13 Then If TypeOf ActiveControl Is TextBox Then Dim x1, x2 As String x1 = Text2. Text If Text2 = "" Then 'text2 boşşa değer kaydolmasın MsgBox Exit Sub End If x2 = Text3. Text If Text3 = "" Then 'text3 boşşa değer kaydolmasın MsgBox Exit Sub End If rs. AddNew rs. Fields(0). Value = Text2 'sözlük rs. Fields(1). Value = Text3 'sözlük açıklamları rs. Update List1. AddItem Text2 Text2. SetFocus Text2. Text = "" Text3. SetFocus Text3. Text = "" End If End If End Sub Private Sub List1_Click Static a As Integer On Error Resume Next Dim anlami As Data Dim i, b, kelime As String List2. Clear Set db = ws. OpenDatabase Set rs = db. OpenRecordset rs. MoveFirst Do Until rs. EOF If List1. list(List1. ListIndex) = rs. Fields(0) Then List2. AddItem rs. Fields(1) End If rs. MoveNext Loop List2. AddItem rs. Fields(1) End Sub st.