hello;

when i run this code at myform , i dont have data in 2 files(salar and month1,2...etc)

any idea to this code ,better than i write
*****
close all

if month(date())=2
copy file salar.dbf to month1.dbf
select 28
use salar
zap
endif
CLOSE ALL
if month(date())=3
copy file salar.dbf to month2.dbf
select 28
use salar
zap
endif
CLOSE ALL
if month(date())=4
copy file salar.dbf to month3.dbf
select 28
use salar
zap
endif
close all
if month(date())=5
copy file salar.dbf to month4.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif
CLOSE ALL
if month(date())=6
copy file salar.dbf to month5.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif
CLOSE ALL
if month(date())=7
copy file salar.dbf to month6.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif
CLOSE ALL
if month(date())=8
copy file salar.dbf to month7.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif
CLOSE ALL
if month(date())=9
copy file salar.dbf to month8.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif
CLOSE ALL
if month(date())=10
copy file salar.dbf to month9.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif

CLOSE ALL
if month(date())=11
copy file salar.dbf to month10.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif

CLOSE ALL
if month(date())=12
copy file salar.dbf to month11.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on
endif
CLOSE ALL
if month(date())=1
copy file salar.dbf to month12.dbf
select 28
set excl on
use salar
zap
set excl on
use salar
zap
set excl on

endif