vbaboolean

private function Touroku(byval iSta as integer,byval iNsta as integer) as boolean
	const animal_num as string = "Touroku"
	dim tSQL as string
	dim kazu as string
	dim lNum as long
	dim kansu1sql as string

	on error GoTo err_proc
	Touroku = false
	
	kazu = iif(isnull(dmax("通番","リアルタイム情報")),1,dmax("通番","リアルタイム情報")+1)

	kansu1sql = kansu1(data1,data2,"データ入力",data_online)
	if isnull(dmax("並び順","リアルタイム情報",kansu1sql) Then
		lNum = 1
	else
		lNum = dmax("並び順","リアルタイム情報",kansu1sql) + 1
	end if
	
	tSQL = ""
	tSQL = "insert into リアルタイム情報 values(" & kazu
	tSQL = tSQL & "," & format(me.txtdate.value,"yyyymmdd")
	tSQL = tSQL & "," & data2 & "," & data_online
	tSQL = tSQL & "," & iSta & "," & iNsta & "," & data3
	tSQL = tSQL & "," & minimum & "," & minimum & "," & lNum
	tSQL = tSQL & "," & format(now,"yyyymmdd") & "," & format(now,"hhmmss")
	tSQL = tSQL & "," & minimum & ")"
	dbinfo.execute tSQL
	
	Touroku = true
	exit function
	
err_proc:
	call showmsg(aquarium_num,animal_num,err.description)
end function