Code:
Function s1()Dim x As String
'this one works
x = Forms_TitleScreen.searchbox.Value
If IsNumeric(x) Then
If Len(x) = 4 Then
Dim numsql As String
numsql = "SELECT Movies.MovieID, Movies.Title, Movies.Year FROM Movies WHERE Movies.Year = " & CStr(x) & ";"
DoCmd.OpenForm ("Info")
Form_Info.Visible = False
Form_Info.searchbox.Value = x
Form_Info.Result.RowSource = numsql
Form_Info.Visible = True
Call i1
End If
End If
If IsNumeric(x) = False Then
If (InStr(1, x, "a") > 0 Or InStr(1, x, "b") > 0 Or InStr(1, x, "c") > 0 Or InStr(1, x, "d") > 0 Or InStr(1, x, "e") > 0 _
Or InStr(1, x, "f") > 0 Or InStr(1, x, "g") > 0 Or InStr(1, x, "h") > 0 Or InStr(1, x, "i") > 0 Or InStr(1, x, "j") > 0 _
Or InStr(1, x, "k") > 0 Or InStr(1, x, "l") > 0 Or InStr(1, x, "m") > 0 Or InStr(1, x, "n") > 0 Or InStr(1, x, "o") > 0 _
Or InStr(1, x, "p") > 0 Or InStr(1, x, "q") > 0 Or InStr(1, x, "r") > 0 Or InStr(1, x, "s") > 0 Or InStr(1, x, "t") > 0 _
Or InStr(1, x, "u") > 0 Or InStr(1, x, "v") > 0 Or InStr(1, x, "w") > 0 Or InStr(1, x, "x") > 0 Or InStr(1, x, "y") > 0 _
Or InStr(1, x, "z") > 0 Or InStr(1, x, "A") > 0 Or InStr(1, x, "B") > 0 Or InStr(1, x, "C") > 0 Or InStr(1, x, "D") > 0 _
Or InStr(1, x, "E") > 0 Or InStr(1, x, "F") > 0 Or InStr(1, x, "G") > 0 Or InStr(1, x, "H") > 0 Or InStr(1, x, "I") > 0 _
Or InStr(1, x, "J") > 0 Or InStr(1, x, "K") > 0 Or InStr(1, x, "L") > 0 Or InStr(1, x, "M") > 0 Or InStr(1, x, "N") > 0 _
Or InStr(1, x, "O") > 0 Or InStr(1, x, "P") > 0 Or InStr(1, x, "Q") > 0 Or InStr(1, x, "R") > 0 Or InStr(1, x, "S") > 0 _
Or InStr(1, x, "T") > 0 Or InStr(1, x, "U") > 0 Or InStr(1, x, "V") > 0 Or InStr(1, x, "W") > 0 Or InStr(1, x, "X") > 0 _
Or InStr(1, x, "Y") > 0 Or InStr(1, x, "Z") > 0 Or Len(x) <> 4) Then
Dim txtsql As String
Dim tmp As String
tmp = x
x = "*" & x & "*"
txtsql = "SELECT Movies.MovieID, Movies.Title, Movies.Year FROM Movies WHERE Movies.Title like '" & x & "';"
DoCmd.OpenForm ("Info")
Form_Info.Visible = False
Form_Info.searchbox.Value = tmp
Form_Info.Result.RowSource = txtsql
Form_Info.Visible = True
Call i1
End If
End If
End Function