Etiketler
|
|
|
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: 793
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
|
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 & ";
|
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
|
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ı
|
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: 490
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
|
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.
|
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: 970
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
|