Form Açılış Parametreleri (OpenArgs) Hatası - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Form Açılış Parametreleri (OpenArgs) Hatası (/konu-form-acilis-parametreleri-openargs-hatasi.html) |
Form Açılış Parametreleri (OpenArgs) Hatası - osman06 - 24/12/2008 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 Cvp: Form Açılış Parametreleri (OpenArgs) Hatası - C*e*l*o*y*c*e - 24/12/2008 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 Cvp: Form Açılış Parametreleri (OpenArgs) Hatası - Bilgisayarcı - 24/12/2008 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. Cvp: Form Açılış Parametreleri (OpenArgs) Hatası - osman06 - 24/12/2008 hocam olmadı yapmadım örneği eklemeye çalışyorum eklemiyor Cvp: Form Açılış Parametreleri (OpenArgs) Hatası - Bilgisayarcı - 24/12/2008 Peki formu açarken bir parametre gönderiyorsun değil mi? Formu Açarken kullandığın kodu yazarsan bakarız. Cvp: Form Açılış Parametreleri (OpenArgs) Hatası - osman06 - 24/12/2008 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) |