VBA: returnere værdi når skrivning til Access database
Jeg anvender VBA i excel til at skrive data til en Access database.Et simpelt script er indsat herunder.
Den tabel jeg skriver til har to felter:
uid (autonummerering)
Tekst (text)
Mit spørgsmål er, hvordan jeg kan få min funktion til at returnere den værdi, feltet uid er tildelt.
Script:
Const ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Q:\PL\PLA\ALLE\03 Periodeplan\Sandkasse\Access programmering\TestDB.mdb;Persist Security Info=False"
Function SkrivTilDBViaSQL(Tekst As String) As Boolean
Dim SQLstr As String
Dim MyCon As New ADODB.Connection
Dim test As String
MyCon.ConnectionString = ConStr
MyCon.Open
SQLstr = "INSERT INTO tblTest (Tekst) VALUES ('" & Tekst & "')"
MyCon.Execute SQLstr
SkrivTilDBViaSQL = True
'Oprydning i fht. DB
MyCon.Close
Set MyCon = Nothing
End Function