Çekiliş ile 2 Adet Microsoft Excel Kitabı Hediye Edilecektir. Ayrıntılı Bilgi İçin [Tıklayınız]

ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/12/2008 11:48
Konu Sahibi
osman06
Yorumlar
23
Okunma
6184
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

osman06

Aktif Üye
Kullanici Avatari
Aktif Üye
237
22/11/2008
0
Ankara
Ofis 2003
12/09/2017,23:44
Çözüldü 
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

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
3.040
29/10/2008
927
Ankara
Yazılım
Ofis 2010 32 Bit
Çözüldü 
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

Bilgisayarcı

Atçalı
Kullanici Avatari
Aktif Üye
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
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

osman06

Aktif Üye
Kullanici Avatari
Aktif Üye
237
22/11/2008
0
Ankara
Ofis 2003
12/09/2017,23:44
Çözüldü 
hocam olmadı yapmadım
örneği eklemeye çalışyorum eklemiyor


Cevapla

Bilgisayarcı

Atçalı
Kullanici Avatari
Aktif Üye
657
29/01/2008
410
Antalya
Ofis 2003
01/11/2011,15:17
Çözüldü 
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

osman06

Aktif Üye
Kullanici Avatari
Aktif Üye
237
22/11/2008
0
Ankara
Ofis 2003
12/09/2017,23:44
Çözüldü 
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


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü #boyut! Problemi (hatası) macirercan 6 122 10/12/2017, 19:46 macirercan
Çözüldü Arama Butonu Hatası ers6886 3 124 27/10/2017, 23:00 ers6886
Çözüldü mouse sağ klik kısayol menü hatası mehmetbesir 5 1.405 25/10/2017, 11:25 ates2014
Çözüldü Dlookup Kodu Hatası accessdelisi 3 176 14/10/2017, 07:52 accessdelisi
Çözüldü Windows 10'da Access Kısayol İkonu Hatası serkan1985 2 160 06/10/2017, 19:42 serkan1985
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.