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
hocam bide metin kutusunun varsayılan değer kısmında ağaşıdaki kod yazıyor o
Kaydı_Alan metin kutusunda bu yazıyor =[Formlar]![ACILIS]![kullanıcı].[Column](1)
Form Açılış Parametreleri (OpenArgs) Hatası
Konuyu Okuyanlar: 1 Ziyaretçi