alexa-tracking

ask bantu gan

Main Content

1024
1024
KASKUS
51
244
https://www.kaskus.co.id/thread/53c7617296bde62c018b459e/ask-bantu-gan
ask bantu gan
gan ada yang tau cara penomoran otomatis dengan foxpro dan jika tahun berganti nomor tersebut kembali ke nomor 001emoticon-Matabelo

Hepi 
arrr helpppp

gan mau nanya
saya sudah menginput data sampai ke nomor 1715003
nah ketika saya masuk ke form cetak data sudah ada nah ketika saya klik button kembali
masuk ke form pendaftran nomor tidak menunjukkan nomor 1715004 malah muncul nomor 1715001

ane paka cooding ini gan

a1="001"
b= angkatan
c=YEAR(DATE())
GO BOTTOM

IF (b <> c) &&AND (!EOF())
thisform.text14.Value=a1
thisform.text3.SetFocus
thisform.Refresh
ELSE

IF (b <> c) AND (!EOF())
thisform.text14.Value=a1
thisform.text3.SetFocus
thisform.Refresh
ELSE

a2=LTRIM(STR(VAL(no)+1))
thisform.text14.Value="00"+a2
thisform.text3.SetFocus

ENDIF
ENDIF
thisform.Refresh

emoticon-Matabeloask bantu ganemoticon-Belomatabeloemoticon-Belomatabelo
×