problem to build vba code

[gstylianou]

I greet all the friends of the forum,




I would like the help of more experienced friends about the conversion of the code below:


I have the table "tempSVN" which has a Number field. I would like to add into the same table also the fields "svnID" (Autonumber) and "DateAdded" (short date format). As you may understand this is not the problem for me, but the problem is the following code which is runing for the moment and is taking only the value of the "S". I would like to add also the svnID and the DateAdded into a table "tempSVN"

Public Function CheckVolumeSerialNumber()
Dim S, strCheck0, strCheck1, strCheck2, strCheck3, strCheck4 As String

VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
Serial = Replace(Trim(Str$(Serial)), "-", "")

S = Serial

' I would like when i'm running the query to add also the new fields (svnID and DateAdded)
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tempSVN VALUES ('" & S & "')"
DoCmd.SetWarnings True

End Function

Can anybody help?

Thanks in advanced

[ItsMe]

I am not familiar with GetVolumeInformation. I am not finding any examples for entry points for svnID and DateAdded. Not even sure what svnID is anyway. What is it you are doing with Serial?

Maybe something like Attributes will manage what you need.
https://www.accessforums.net/program...tml#post237647

[orange]

gstylianou,

Where did you find that code? What exactly do you want to do in plain English -no vba?

This statement
Dim S, strCheck0, strCheck1, strCheck2, strCheck3, strCheck4 As String

does NOT do what you think. In Access you must explicitly dim the variable with a datatype. If you do not declare the datatype, the default assignment is variant.

So for each of your variables to be strings, you need something like:

Dim S as string
Dim strCheck0 as string.... OR
Dim S as string, strCheck0 as string....

[gstylianou]

Hello guys,

With this code you can read the Hard Disc Serial Number. Is working fine...

[June7]

Your INSERT statement looks incomplete. It doesn't identify the field to populate. Use Execute method and SetWarnings not needed.

How does Serial get populated?

If svnID is an autonumber field, no need to include in the INSERT statement.

CurrentDb.Execute "INSERT INTO tempSVN([field for S value], DateAdded) VALUES ('" & S & "', Date())"

[gstylianou]

Good morning June7 from Cyprus,

let me try your example and i will let you know

Thanks in advanced

[gstylianou]

June7 I would like to thank you very much for your help.

Another one issue....! With this code is working fine but i need each time i'm running the code i need to going to "Record,,New" ( i mean the "SvnNumber" field which is on tblSVN)

Is that possible man?

[June7]

I don't understand the question.

[gstylianou]

Hello June7,

Thank you very much for your interest to help. The issue has been solved with your code.

Thanks again.