Skip to main content

AccessTr.neT


Etiketler
Yazar: berk_okan - Cevaplar: 0 - İzleme: 1534
Visual Basic .NET - Ders 274 : Private Değişkenlere Ulaşma -1
http://www.youtube.com/watch?v=C9VgZsdwRLs
Yazar: berk_okan - Cevaplar: 0 - İzleme: 1663
Visual Basic. NET - Ders 275 : Private Değişkenlere Ulaşma -2
http://www.youtube.com/watch?v=5C4MmKrBXE4
Yazar: berk_okan - Cevaplar: 0 - İzleme: 1692
Visual Basic .NET - Ders 276 : Private Değişkenlere Ulaşma -3
http://www.youtube.com/watch?v=wJttrsdrdvQ
Yazar: YuNuSEmReN - Cevaplar: 5 - İzleme: 2578
Private Sub Butonac() Me.TASI.SetFocus Sorunu
forumdan bulduğum bir uygulamayı düzenlemeye çalışıyorum ama aşağıda belirtilen hatayı aldım sabahtır cıkamadım işin içinden 

Private Sub Butonac()

Me.TASI.SetFocus

satırında uyarı alıyorum nasıl gecebilirim
Yazar: sozcan3403 - Cevaplar: 11 - İzleme: 3873
private sub ile başlayan kodlar
merhabalar,

SQL den alınan verileri günlük raporlamam gerekiyor. ve yapmam gereken yenile-filtrele-gönder Img-grin

bunlar için form sitelerinden yardım alarak kodlar düzenledim. yenile ve filtrele için "Sub auto_open()" kodu işe yarıyor.

ancak "Private Sub CommandButton1_Click()" ile başlayan kodlar için aynı şeyi yapamadım.

konu ile ilgili yardımınızı rica ediyorum.

teşekkürler.
Yazar: yenginoglu - Cevaplar: 1 - İzleme: 639
Private Function Buildname(dr As Aht_tagdevicerec) As Variant
Merhaba, 

Private Function BuildName(dr As aht_tagDeviceRec) As Variant 
burada hata veriyor nasıl giderilir bu hata acaba


Saygılarımla,
Yazar: HORZUM - Cevaplar: 10 - İzleme: 541
Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması
İYİ GÜNLER ÜSTADLARIM. AŞAĞIDAKİ KODU ÇALIŞTIRAMADIM...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim bul As Range
    Dim trh As Date
    Dim CsutunTarih As Date 
 
  With ThisWorkbook.Sheets("T1")
If (Target.Column = 3 Or Target.Column = 5) And Target.Row >= 1 Then
        If IsDate(Cells(Target.Row, "c")) And Len(Cells(Target.Row, "E") & "") > 0 Then
            SonStn = .Cells(1, .Columns.Count).End(xlToLeft).Column
                    Set bul = .Range("B1:" & .Ce