[RESOLVED] Block if without end if

[_MeRKeZ_]

Hi friends,

I receive the same error message which is "Block if without end if"

If you tell the where the mistake is, it will be perfect for me.
I have been dealing with this problem for hours

If kategori2 = "" And kategori3 = "" And kategori4 = "" Then
        Open "D:\\test.txt" For Input As #1
            Input #1, okunan
                   If InStr(1, okunan, kategori1, 1) <= 0 Then
                MsgBox "Böyle bir kayıt yok."
                Exit Sub
     ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 4, 1) Then
        w = Left(okunan, M - 4)
        w = Trim(w)
        u = Len(w)
    
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 5, 1) = "" Then
        w = Left(okunan, M - 5)
        w = Trim(w)
        u = Len(w)
    
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 6, 1) = "" Then
        w = Left(okunan, M - 6)
        w = Trim(w)
        u = Len(w)
   
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 7, 1) = "" Then
        w = Left(okunan, M - 7)
        w = Trim(w)
        u = Len(w)
    
    ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 8, 1) = "" Then
        w = Left(okunan, M - 8)
        w = Trim(w)
        u = Len(w)
    End If
    
    If Mid(w, u - 1, 1) = "" Then
        c = Mid(w, u, 1)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 2, 1) = "" Then
        c = Mid(w, u - 1, 2)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 3, 1) = "" Then
        c = Mid(w, u - 2, 3)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 4, 1) = "" Then
        c = Mid(w, u - 3, 4)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 5, 1) = "" Then
        c = Mid(w, u - 4, 5)
        c = stok_sayisi + c
    ElseIf Mid(w, u - 6, 1) = "" Then
        c = Mid(w, u - 5, 6)
        c = stok_sayisi + c
    End If
    Text_stok_sayisi.Text = c
    
 
End Sub

[seditives]

If InStr(1, okunan, kategori1, 1) <= 0 Then
MsgBox "Böyle bir kayıt yok."
Exit Sub

I think it may be here, its hard to remake thi as you have alot of varibles and other things going in and out of these if statements try this

If InStr(1, okunan, kategori1, 1) <= 0 Then
                MsgBox "Böyle bir kayıt yok."
                Exit Sub
End If

[Jacob Roman]

When posting code in VBForums, be sure to use [highlight=vb] Your code here [/highlight]. Also if you were to indent your code, you can see all the places where your if statement blocks are and more. Makes it 100 times easier to debug:

Public Function Test(Val1 As Long, Val2 As Long) As Long
 
    If Val1 >= 500 Then
         If Val2 >= 500 Then
               Exit Function
         End If
    Else
         Test = Val1 + Val2
    End If
 
End Sub

[Steve Grant]

It just needs an End If before the End Sub.


End IF
End Sub.

Steve.

[LaVolpe]

It just needs an End If before the End Sub.

End IF
End Sub.

Steve.

Nope, don't think so. His indenting may have thrown you off. seditives reply in #2 is the correct answer I believe

There is another problem too. He isn't closing his file before exiting the routine; that'll raise an error next time the file is trying to be accessed with the hardcoded file number of #1

[incidentals]

might i suggest you look at the select statement

to replace the long list of elseif s

it is easier to use

nicely structured

and only has one "end" to worry about

here to talk

[MarkT]

With proper indenting it is a little easier to spot the missing End If. Changes highlighted in red

Private Sub Form_Load()
    If kategori2 = "" And kategori3 = "" And kategori4 = "" Then
        Open "D:\\test.txt" For Input As #1
        Input #1, okunan
        Close #1      
         
        If InStr(1, okunan, kategori1, 1) <= 0 Then
            MsgBox "B&#246;yle bir kayit yok."
            Exit Sub
        ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 4, 1) Then
            w = Left(okunan, M - 4)
            w = Trim(w)
            u = Len(w)
        ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 5, 1) = "" Then
            w = Left(okunan, M - 5)
            w = Trim(w)
            u = Len(w)
        ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 6, 1) = "" Then
            w = Left(okunan, M - 6)
            w = Trim(w)
            u = Len(w)
        ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 7, 1) = "" Then
            w = Left(okunan, M - 7)
            w = Trim(w)
            u = Len(w)
        ElseIf InStr(1, okunan, kategori1, 1) > 0 And Mid(okunan, M - 8, 1) = "" Then
            w = Left(okunan, M - 8)
            w = Trim(w)
            u = Len(w)
        End If

        If Mid(w, u - 1, 1) = "" Then
            c = Mid(w, u, 1)
            c = stok_sayisi + c
        ElseIf Mid(w, u - 2, 1) = "" Then
            c = Mid(w, u - 1, 2)
            c = stok_sayisi + c
        ElseIf Mid(w, u - 3, 1) = "" Then
            c = Mid(w, u - 2, 3)
            c = stok_sayisi + c
        ElseIf Mid(w, u - 4, 1) = "" Then
            c = Mid(w, u - 3, 4)
            c = stok_sayisi + c
        ElseIf Mid(w, u - 5, 1) = "" Then
            c = Mid(w, u - 4, 5)
            c = stok_sayisi + c
        ElseIf Mid(w, u - 6, 1) = "" Then
            c = Mid(w, u - 5, 6)
            c = stok_sayisi + c
        End If
    End If   
 
    Text_stok_sayisi.Text = c
End Sub

[_MeRKeZ_]

it's done thanks