Skip to main content

AccessTr.neT


Etiketler
Yazar: accessman - Cevaplar: 2 - İzleme: 573
Klasördeki Dosyaları Sanal Listboxa Almak
şu fonksiyon dosyaları tabloya kaydediyor
bunu modüle yerleştirip tablo yerine global listboxa kaydetsek
formdaki listboxa da sanal glabal listboxu eşitlesek nasıl olur
buradaki amacım bu fonksiyonu modulde yerleştirip her formdan çağırabilmek
tabloya kaydetmesine gerek yok onun yerine listboxa kaydetsin

[vb]Private Sub subListFolders(ByVal strFolders As String, intCounter As Integer)
    Dim dbs As Database
    Dim fso As New FileSystemObject
    Dim fldFolders As Folder
    Dim fldr As Folder
Yazar: m_demir - Cevaplar: 4 - İzleme: 750
Tablodan Forma Veri Almak
Merhaba Arkadaşlar

Eklediğim Uygulamada Personel Formu Listede personeli seçip satış formu butonu ile PersonelBilgileri formuna geçiş yapıyorum. PersonelBilgileri Formu listede seçili olan pesonele ait satış bilgileri olması gerekirken genel bütün satışlar görünüyor. 

[color=#333333][font=Tahoma, Verdana, Arial, sans-serif][size=medium]PersonelBilgileri Formu listede sadece seçili olan şahısa ait satış bilgilerinin görünmesi için nasıl bir kod ekleme
Yazar: accessman - Cevaplar: 19 - İzleme: 2099
Klasördeki Tüm Alt Klasör Ve Dosyaları Listboxa Almak
Klasördeki tüm alt klasör ve dosyaları Listboxa Almak için şu kodda nasıl bir değişiklik yapmak lazım

[vb]Private Sub getSubListFiles(ByVal strFolders As String, intCounter As Integer)
    Dim fso As New FileSystemObject
    Dim fldFolders As Folder
    Dim fldr As Folder
    Dim subfldr As Folder
    Dim sfldFolders As String
    Dim strSQL As String

    Set fldFolders = fso.GetFolder(TrailingSlash(strFolders))
   
    Me.listSource.AddItem intCounter & ";" & fldFolders.Path & ";
Yazar: accessman - Cevaplar: 2 - İzleme: 910
Dosya Bilgilerini Almak
[vb]Private Function GetTextForOutput(ByVal filePath As String) As String
    ' Verify that the file exists.
    If My.Computer.FileSystem.FileExists(filePath) = False Then
        Throw New Exception("File Not Found: " & filePath)
    End If

    ' Create a new StringBuilder, which is used
    ' to efficiently build strings.
    Dim sb As New System.Text.StringBuilder()

    ' Obtain file information.
    Dim thisFile As System.IO.FileInfo = My.Computer.FileSystem.GetFileInfo(filePat
Yazar: SeferŞANLI - Cevaplar: 3 - İzleme: 616
Excelden Acese Veri Almak
Sayın arkadaşlar ekleyeceğim programda şöyle bir şey yapmak istiyorum. Bir buton tıklayarak Excel tablosundan aceeese kayıtarı aldırmak istiyorum.
Ama bir takım sorunlar var.
Birincisi eklediğim orjinal liste bizim e-okul sisteminden indirmiş olduğum liste. Bunu düzenlemeden belirli talimatlar yardımıyla tbl_ogrenciye aldırabilirmiyiz. (Ad soyad, Okul no, sınıfı) bilgilerini
İkincisi ise belirli bir şekilde sadeleştirdiğim liste. yani düzenlenmiş liste. Aynı şekilde (Ad soyad, Okul no, sınıfı
Yazar: accessman - Cevaplar: 2 - İzleme: 450
Log Dosyasından Listboxa Veri Almak
Log Dosyasından Listboxa  nasıl Veri Alabiliriz
[vb]Public Sub readFromTxtFile()
    Const conPATH_TO_FILE As String = "C:\Program Files\Medex.log"
    Dim strLine As String
    Dim varLineContents As Variant
    Dim intCtr As Integer
    
    Open conPATH_TO_FILE For Input As #1        'Open file.
    
    Do While Not EOF(1)                         'Loop until end of file.
      Line Input #1, strLine                    'Read line into variable.
        varLineContents = Split(str
Yazar: m_demir - Cevaplar: 2 - İzleme: 452
Yazıcıda Çıktı Almak
Merhaba Arkadaşlar

Eklediğim kod ile Excel sayfasında dolu olan alanı seçip yazdırıyorum. Yatay kağıt olarak ayarlıyor. Çıktıyı dikey kağıda çıkarması için koda nasıl bir değişiklik yapmam gerekiyor.

ActiveSheet.PageSetup.PrintArea = "$A$1:$D$" & [A65536].End(3).Row
ActiveSheet.PrintOut
Yazar: edacan19 - Cevaplar: 6 - İzleme: 1000
Sql Ve İlişki Kullanmadan Başka Tablodan Veri Almak
Arkadaşlar merhaba, puantaj formundaki açılan kutudan seçim yapınca personel tablosundaki veriler gelsin istiyorum Vba kod ile yapabilirmiyiz.
Yazar: ates2014 - Cevaplar: 11 - İzleme: 927
Kur Almak
Merhaba arkadaşlar,
aşağıdaki kod ila kurları alıyoruz yalnız
bulunduğumuz günü alıyor,
tarih seçerek, istediğim tarihin kurlarını nasıl alabilirim.

Dim HTTP As Object, Html As Object
Dim URL As String

URL = "https://yorum.altin.in/tum/dolar"

Set HTTP = CreateObject("MSXML2.XMLHTTP")
Set Html = CreateObject("HTMLFILE")

HTTP.Open "GET", URL, False
HTTP.Send

If HTTP.Status = 200 Then
HTML.body.innerHTML = HTTP.respo
Yazar: m_demir - Cevaplar: 6 - İzleme: 907
Yedek Almak
Merhaba Arkadaşlar

Eklediğim kodlarla Excel kitabını kapattığım zaman kayıt yapıyor ve C nin altındaki yedek klasörüne yedek alıyor.

Yedek aldığı zaman aynı Excel kitabından 2 tane yedek alıyor. 1 tane yedek almam için kodda nasıl bir değişiklik yapmam gerekiyor.

[vb]Private Sub Workbook_BeforeClose(Cancel As Boolean)

'Private Sub Workbook_BeforeClose(Cancel As Boolean)'Oyomatik yedekleme başı
Set ds = CreateObject("Scripting.FileSystemObject")
'ThisWorkbook.Save
A
Task