Access de yardım basit bir örnek

[ferhat0606]

selam üstatlar

elimde muhtelif kodlar mevcut...

yalnız sizden istediğim excelde ve acses de bu kodlareı nasıl kullanacağım...

adım adım yazarmısınız...ben kod tanımlamayı bilmiyorum...bana basit bir örnek üzerinde anlatabilirmisiniz....adım adım.....şimdiden teşkür...

mesela "internetten bir dosya indirmesini" tanımlayalım

aşağıda kodu mevcuttur...bana acses de ya da excelde adım adım nasıl yapacağımı ya da başka bir yerde ....




Option Explicit

Private Declare Function InternetGetConnectedState _
Lib "wininet" ( _
ByRef lpdwFlags As Long, _
ByVal dwReserved As Long) _
As Long

Private Declare Function InternetAutodial _
Lib "wininet.dll" ( _
ByVal dwFlags As Long, _
ByVal dwReserved As Long) _
As Long

Private Declare Function InternetAutodialHangup _
Lib "wininet.dll" ( _
ByVal dwReserved As Long) _
As Long

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) _
As Long


Private Const INTERNET_CONNECTION_CONFIGURED = &H40
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10
Private Const INTERNET_AUTODIAL_FORCE_ONLINE = 1
Private Const INTERNET_AUTODIAL_FORCE_UNATTENDED = 2

Private Const S_OK = &H0
Private Const E_ABORT = &H80004004
Private Const E_ACCESSDENIED = &H80070005
Private Const E_OUTOFMEMORY = &H8007000E

Const strDownLoad As String = "http://www.salipazari-meb.gov.tr/programlar/kayit.zip"
Const strDest As String = "C:\kayit.zip"

Sub GetFile()
Dim DwnLoadOK As Boolean

DwnLoadOK = DownloadFile(strDownLoad, strDest)
If Not DwnLoadOK Then
MsgBox "Error downloading " & strDownLoad & vbCr & IeState
Else
MsgBox "Succesfully downloaded:= " & strDest
End If

End Sub

Public Function DownloadFile( _
URL As String, _
SaveAsFileName As String) As Boolean

Dim lngRetVal As Long
DownloadFile = False
End Function

Private Function IeState() As String
Dim Ret As Long
Dim Msg As String

InternetGetConnectedState Ret, 0&

If (Ret And INTERNET_CONNECTION_CONFIGURED) = _
INTERNET_CONNECTION_CONFIGURED Then _
Msg = "Local system has a valid connection to the Internet," & _
vbCr & "but it may or may not be currently connected."
If (Ret And INTERNET_CONNECTION_LAN) = _
INTERNET_CONNECTION_LAN Then _
Msg = Msg & vbCr & "Uses a local area network" & _
"to connect to the Internet."
If (Ret And INTERNET_CONNECTION_MODEM) = _
INTERNET_CONNECTION_MODEM Then _
Msg = Msg & vbCr & "A modem is used to connect to the Internet."
If (Ret And INTERNET_CONNECTION_OFFLINE) = _
INTERNET_CONNECTION_OFFLINE Then _
Msg = Msg & vbCr & "Local system is in offline mode."
If (Ret And INTERNET_CONNECTION_PROXY) = _
INTERNET_CONNECTION_PROXY Then _
Msg = Msg & vbCr & "Uses a proxy server to connect to the Internet."
If (Ret And INTERNET_RAS_INSTALLED) = INTERNET_RAS_INSTALLED Then _
Msg = Msg & vbCr & "System has RAS installed."

If Msg <> "" Then IeState = Msg

End Function