amirzazadeh
یک شنبه 20 تیر 1389, 08:53 صبح
بسیار از جنابعالی متشکرم من از اسکریپتی که نوشته بودید خیلی لذت بردم اگه میشه لطفا جمع تعداد رکوردها را که درفیلد RC نشان داده می شود کد نویسی کنید. باتشکر
سلام
لطفا كدها رو به اين شكل اصلاح كنيد:
Private Sub Command0_Click()
Dim filesys, filetxt, getname, path
Dim NO As Integer
Dim rsc As Recordset
Set filesys = CreateObject("Scripting.FileSystemObject")
Set filetxt = filesys.CreateTextFile("c:\NOS.txt", True)
path = filesys.GetAbsolutePathName("c:\NOS.txt")
getname = filesys.GetFileName(path)
filetxt.WriteLine ("<Y>")
filetxt.WriteLine ("<HR>")
filetxt.WriteLine ("<DC>" & 0 & "</DC>")
filetxt.WriteLine ("<DN>" & 0 & "</DN>")
Set rsc = CurrentDb.OpenRecordset("MAINQUERY", dbOpenDynaset)
rsc.MoveLast
filetxt.WriteLine ("<RC>" & rsc.RecordCount & "</RC>")
rsc.MoveFirst
filetxt.WriteLine ("<FD>" & 0 & "</FD>")
filetxt.WriteLine ("<TD>" & 0 & "</TD>")
filetxt.WriteLine ("<CR>" & 0 & "</CR>")
filetxt.WriteLine ("</HR>")
With rsc
Do Until rsc.EOF
NO = NO + 1
filetxt.WriteLine ("<X>")
filetxt.WriteLine ("<PH>")
filetxt.WriteLine ("<SQ>" & NO & "</SQ>" & "<ND>" & rsc.Fields("ND") & _
"</ND>" & "<RD>" & rsc.Fields("RD") & "</RD>" & "<VD>" & rsc.Fields("VD") & _
"</VD>" & "<PT>" & rsc.Fields("PT") & "</PT>" & "<CK>" & rsc.Fields("SN") & _
"</CK>" & "<SN>" & rsc.Fields("SN") & "</SN>" & "<RN>" & rsc.Fields("RN") & _
"</RN>" & "<GR>" & rsc.Fields("GR") & "</GR>" & "<PC>" & rsc.Fields("PC") & _
"</PC>" & "<PP>" & rsc.Fields("PP") & "</PP>" & "<IS>" & rsc.Fields("IS") & _
"</IS>" & "<PS>" & rsc.Fields("PS") & "</PS>")
filetxt.WriteLine ("</PH>")
filetxt.WriteLine ("<BY>")
filetxt.WriteLine ("<MH>" & "<SG>" & rsc.Fields("SG") & "</SG>" & "<MG>" & _
rsc.Fields("MG") & "</MG>" & "<MD>" & rsc.Fields("MD") & "</MD>" & "<MR>" & _
rsc.Fields("MR") & "</MR>" & "<MP>" & rsc.Fields("MP") & "</MP>" & "<MI>" & _
rsc.Fields("MI") & "</MI>" & "<MS>" & rsc.Fields("MS") & "</MS>" & "</MH>")
filetxt.WriteLine ("</BY>")
filetxt.WriteLine ("</X>")
rsc.MoveNext
Loop
End With
filetxt.WriteLine ("</Y>")
filetxt.Close
MsgBox "NOS.TXT FILE CREATED IN c:\NOS.TXT"
End Sub
.......................
موفق باشيد