Skip to main content

AccessTr.neT


Form Açılış Parametreleri (OpenArgs) Hatası

Form Açılış Parametreleri (OpenArgs) Hatası

Çözüldü #1
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
Cevapla
Çözüldü #2
bildiğim kadarıyla ve örneğin olmadığına göre
Public Function GetTagFromArg(ByVal OpenArgs As String, ByVal Tag As String) As String
kısmını kod sayfasının en üst kısımdaki
Option Compare Database ..nin altına yazmayı dene

birde şunu dene
Me.Kaydı_Alan isimli erdeki metin kutusunun adının Kaydı_Alan olup olmadığını kontrol et
Cevapla
Çözüldü #3
Load yerine OPEN olayına yazmayı dene. Benim bildiğim açılış parametrelerine ancak Form_Open'da ulaşılablir.

Ayrıca foksyion gereksiz gibi sanki. OpenArgs'ı bu fonksiyon olmadan da kullanabilirsin.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
Çözüldü #4
hocam olmadı yapmadım
örneği eklemeye çalışyorum eklemiyor
Cevapla
Çözüldü #5
Peki formu açarken bir parametre gönderiyorsun değil mi?
Formu Açarken kullandığın kodu yazarsan bakarız.
Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes


Cevapla
Çözüldü #6
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)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task