Skip to main content

AccessTr.neT


Etiketler
Yazar: berk_okan - Cevaplar: 0 - İzleme: 1530
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: 1656
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: 1685
Visual Basic .NET - Ders 276 : Private Değişkenlere Ulaşma -3
http://www.youtube.com/watch?v=wJttrsdrdvQ
Yazar: YuNuSEmReN - Cevaplar: 5 - İzleme: 2571
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: 3866
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: 635
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: 529
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
Task