Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
09/04/2012 13:30
Konu Sahibi
accessman
Yorumlar
1
Okunma
1141
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi günler
bu ekledediğim kodda

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub TestFTPUpload()
On Error GoTo ErrHandler
Dim objFTP As InetTransferLib.FTP
Dim hedef As String 'BEN EKLEDİM
Dim sSVR As String 'BEN EKLEDİM
Dim kaynak As String 'BEN EKLEDİM

sSVR = Nz(Me.server_adres, "") & ":" & Nz(Me.server_port, "") 'BEN EKLEDİM
hedef = [server_heAdres] & [server_heDosya]
'ShellExecute(0, nil, sSVR, nil, nil, SW_SHOWDEFAULT)

 Set objFTP = New InetTransferLib.FTP
 With objFTP
 .FtpURL = sSVR
 .SourceFile = vbNullString
 .DestinationFile = hedef
 .AutoCreateRemoteDir = True
 If Not .IsConnected Then .DialDefaultNumber
 .ConnectToFTPHost [server_user], [server_password]
 .UploadFileToFTPServer
 End With


ExitHere:
 On Error Resume Next
 Set objFTP = Nothing
 Call SysCmd(acSysCmdRemoveMeter)
 Exit Sub
ErrHandler:
 MsgBox Err.Number & vbCrLf & Err.Description, vbCritical + vbOKOnly, Err.Source
 Resume ExitHere
End Sub


şu satırdaki
.SourceFile = vbNullString
kod ile göabknderilecek dosya seçiliyor
ama herseferinde seçmek yerine ben bunu tablodan

Xdosya_adi = Dlookup ("[dosya_adı]", "YEDEKLE", "[sno] = 1")

alarak yapmak istiyorum
nasıl yapabilirim
teşekkürler


@benbendedeilem
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
.SourceFile = Nz(DLookup("[DOSYA_ADI]", "DOSYAM", "cstr(tarih)='" & CStr(DMax("tarih", "DOSYAM")) & "'"), 0)
yazınca oluyormuş


@benbendedeilem
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Metin Dosyasından Otomatik Veri Çekme cazcaz678 8 562 01/08/2017, 16:10 pfilcik
Çözüldü Metin Veya Sayı Birleştirme ufukcem 10 623 22/06/2017, 09:31 ufukcem
Çözüldü Tarihe Göre Toplam Almak m_demir 11 471 20/06/2017, 22:41 m_demir
Çözüldü Metin Ayırma ufukcem 2 231 16/06/2017, 10:10 ufukcem
Çözüldü Tablo Değerini Belirli Sayılar Arasına Almak lanetdas 2 252 28/05/2017, 17:18 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.