öncelikle bir çalışmanıza bir modül ekleyip aşağıdaki kodu yapıştırın

Function BasAl(TxtAlan As String) As String

Dim x, y, xy As Integer

x = InStr(1, TxtAlan, " /")

y = InStr(1, TxtAlan, " -->")

If x < y And x > 0 Then xy = x - 1 'TxtAlan = Mid(TxtAlan, 1, x - 1)

If y < x And y > 0 Then xy = y - 1 'TxtAlan = Mid(TxtAlan, 1, y - 1)

If x > 0 And y = 0 Then xy = x - 1

If y > 0 And x = 0 Then xy = y - 1

If y = 0 And x = 0 Then xy = Len(TxtAlan)

BasAl = Mid(TxtAlan, 1, xy)

End Function

sonra da sorgunuzun ilgili alanına aşağıdaki kodu yazın

alan1: BasAl([TabloAdi]![AlanAdi])