Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
12/06/2019 18:36
Konu Sahibi
Yunus Bozkurt
Yorumlar
11
Okunma
249
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Yunus Bozkurt

Yunus Bozkurt

Aktif Üye
38706
Yu.... Bo....
 44
 47
 193
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 16/06/2019,19:36
Çözüldü 
Şöyle bir şey yaptım ama "Invalid use of null " hatası alıyorum  aşağıdaki kodda yanlışlık var mı?

KYT0002 diye artarak  kayıt üretmesi lazım daha doğrusu tablonun en son kaytında ID alanında değer yoksa hata veriyor.

module

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
Function nurmaraAl(yb As String) As String
    Dim donenDeger As String
    Dim i As Integer
    donenDeger = ""
    For i = 1 To Len(yb)
        If Mid(yb, i, 1) >= "0" And Mid(yb, i, 1) <= "9" Then
            donenDeger = donenDeger + Mid(yb, i, 1)
        End If
    Next
 nurmaraAl = donenDeger
End Function



form olayı

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Current()
Dim strOldID As String
    Dim lngCurrentNumber As Long
    Dim lngNextNumber As Long
    Dim strNextNumber As String
    Dim strNewID As String
    
    strOldID = DLast("[ID]", "t_Nakliyeler") 'tabloda ID Alanı boş değil
       
    lngCurrentNumber = nurmaraAl(strOldID)
    lngNextNumber = lngCurrentNumber + 1
    strNextNumber = String(4 - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber)
    strNewID = "KYT" & strNextNumber
    Me.t_islemno = strNewID

End Sub


  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…

halily

halily

Uzman
65596
Ha....
 26
 1.160
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:22
strOldID =dmax("Cint(mid([ID],4))") +1
strNewID = "KYT" & format(strOldID ,"0000")

gibi bir kodu deneseniz?



...........
Yunus Bozkurt

Yunus Bozkurt

Aktif Üye
38706
Yu.... Bo....
 44
 47
 193
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 16/06/2019,19:36
Aynı hatayı türkçe veriyor bu sefer "Geçersiz Boş kullanımı"

  strOldID = DMax("Cint(Mid([ID],4))", "t_Nakliyeler") + 1

    strNewID = "KYT" & Format(strOldID, "0000")


  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…

halily

halily

Uzman
65596
Ha....
 26
 1.160
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:22
çalışmanızı ekleyin inceleyelim.



...........
halily

halily

Uzman
65596
Ha....
 26
 1.160
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:22
en son kendi çalışmamda aşağıdaki kodu denedim çalıştı

Visual Basic Code
strOldID = DMax("Mid([dosyano],4)", "[denetim]") + 1
    strNewID = "KYT" & Format(strOldID, "0000")



Yunus Bozkurt

Yunus Bozkurt

Aktif Üye
38706
Yu.... Bo....
 44
 47
 193
 18/08/2011
0
 Sinop
 
 Ofis 2010 64 Bit
 16/06/2019,19:36

Visual Basic Code
 strNewID = "KYT" & Format(strOldID, "0000")
    strOldID = DMax("Nz([ID],0)", "t_Nakliyeler") + 1
    Debug.Print


bu şekilde type mismatch hatası veriyor


Visual Basic Code
strNewID = "KYT" & Format(strOldID, "0000")
    strOldID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1
    Debug.Print


bu şelikde sadece KYT üretiyor numara vermiyor

bendeki  ilk kodu şu şekilde değiştirdim

Visual Basic Code
strOldID = DLast("[ID],0", "t_Nakliyeler") + 1

strOldID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1 'yenisi


  • En tehlikeli kelime ama’dır. Önceden söylenen her söylemi veya kelimeyi öldürür! Mesela, seni seviyorum ama gibi…

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Metin Tipinde Ayarlanmış Sürelerle İşlemlerde Toplama Sorunu yücel üzülmez 9 398 08/05/2019, 23:09
Son Yorum: halily
Çözüldü metin tipinde ayarlanmış sürelerle işlemsel yücel üzülmez 13 374 02/05/2019, 00:10
Son Yorum: halily
Çözüldü İlişkisiz Form Da Listenin Filtrelenen Alanını İlişkisiz Metin Kutusu İle Update ask200075 4 122 29/04/2019, 11:27
Son Yorum: ask200075
Çözüldü Metin Kutusu İstenildiği Zaman Okunur, İstediğim Zaman Yazılır Olsun eraslan 6 204 28/04/2019, 14:39
Son Yorum: ozanakkaya
Çözüldü Metin Kutusuna Girilen Veriye Göre Veri Çağırma fascioğlu 9 605 14/03/2019, 14:50
Son Yorum: programmer67

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.