mrb
aşağıdaki kodda neyin yanlış olduğunu bulamadım

listede bi isme tıkladıpımda bi form açılıyor ve formda bazı bilgiler geliyor ama bilgini birinin kodları aşağıdaki gibi

tıkladığımda aşağıdaki hatayı veriyor

Run-time error "94"
Invalid use of Null

Formun yüklendiğinde yazan kod :
Option Compare Database

Private Sub Form_Load()
Me.Kaydı_Alan = GetTagFromArg(Me.OpenArgs, "Value") bu kısım sarı oluyo
End Sub


Modül kodu :
Option Compare Database

Public Function GetTagFromArg(ByVal OpenArgs As String, ByVal Tag As String) As String
Dim strArgument() As String
strArgument = Split(OpenArgs, ":")
Dim i As Integer

For i = 0 To UBound(strArgument)
If InStr(strArgument(i), Tag) And InStr(strArgument(i), "=") > 0 Then
GetTagFromArg = Mid$(strArgument(i), InStr(strArgument(i), "=") + 1)
Exit Function
End If
Next
GetTagFromArg = ""
End Function