Archive for April, 2010

Access link table from different database with vba

Apr 8th

Posted by yussi ariefiyono in vba

No comments

Problem:
you have lots of database with link table in it, and in one time some of path are changed.. rather than change them manually,  i create function that can do that for me :)

Solution:
In this function you can specify the link you want to find and replace it with your new link. it save me lots of time..

Function RelinkTable(setDB As String, FINDtext As String, REPLACEtext As String)
Dim dbs As Database
Dim Tdf As TableDef
Dim Tdfs As TableDefs
Set dbs = OpenDatabase(setDB)
Set Tdfs = dbs.TableDefs
‘Loop through the tables collection
For Each Tdf In Tdfs
If Tdf.SourceTableName <> “” And Tdf.Connect = “;DATABASE=” & FINDtext Then   ‘if its the linktable
Tdf.Connect = “;DATABASE=” & REPLACEtext ‘Set the new source
Tdf.RefreshLink ‘Refresh the link
End If
Next ‘Goto next table
Set dbs = Nothing
Set Tdfs = Nothing
End Function
,

get the latest file with batch command

Apr 8th

Posted by yussi ariefiyono in batch command

No comments

Problem:
get the latest file in the folder with batch command, in my case after getting the latest file. i will move it to other directory

Solution:
copy and paste this code, change it according to your need

@echo off
setlocal
:source directory
set srcDir= your source directory
:destination directory
set destdir=your destination directory
set lastmod=
pushd “%srcDir%”
for /f “tokens=*” %%a in (‘dir /b /od 2^>NUL’) do set lastmod=%%a
if “%lastmod%”==”" echo Could not locate files.&goto :eof
:copy
copy “%lastmod%” “%destdir%”
:delete
del “%lastmod%”

enjoy :)

, ,
«12