aanpassen script

[VB noob]

Ik heb het volgende script om een selectie uit een multi select list box weg te schrijven in een tabel.

Option Compare Database
Option Explicit
Private Sub cmdOK_Click()
On Error GoTo Err_Handler
' Declare variables
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim varItem As Variant
Dim strCriteria As String
Dim strSQL As String
' Get the database and stored query
Set db = CurrentDb()
Set qdf = db.QueryDefs("qryDogsSelected")
' Loop through the selected items in the list box and build a text string
If Me!lstDogIDs.ItemsSelected.Count > 0 Then
For Each varItem In Me!lstDogIDs.ItemsSelected
strCriteria = strCriteria & "Dogs.DogID = " & Chr(34) _
& Me!lstDogIDs.ItemData(varItem) & Chr(34) & "OR "
Next varItem
strCriteria = Left(strCriteria, Len(strCriteria) - 3)
Else
MsgBox "Must Select An Item From The List First"
Exit Sub
End If
' Build the new SQL statement incorporating the string
strSQL = "INSERT INTO DogsatSighting ( DogID ) " & _
"SELECT Dogs.DogID FROM Dogs " & _
"WHERE " & strCriteria & ";"
' Apply the new SQL statement to the query
qdf.SQL = strSQL
' Open the query
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryDogsSelected"
DoCmd.SetWarnings True
' Empty the memory
Set db = Nothing
Set qdf = Nothing

Exit_Handler:
Exit Sub

De query selecteert de DogIDs die vervolgens netjes worden weggeschreven in de tabel DogsatSighting.

Maar ik zou graag ook het event (de sighting) waar ze worden gezien erbij registreren.
Dus een nieuwe appendquery (laten we hem even 'new query' noemen) geschreven:

INSERT INTO DogsatSighting ( DogID, SightingID )
SELECT Dogs.DogID, Sightings.SightingID
FROM Dogs, Sightings
WHERE (((Sightings.SightingID)=[Sighting]) AND ((Dogs.Current)=[Pack seen]));

Maar nou moet ook het een en ander aangepast worden in het VBscript om de geselecteerde data weg te schrijven. Maar daar raak ik de weg kwijt.

 

[VB noob]

Is het zo simpel dat ik het niet zie?

 

[Hoornvan]

VB noob,

Zit je hier wel goed?
Ik heb er geen verstand van maar deze afdeling is voor VBA

het VBscript

 

[VB noob]

Ik dacht dat het VB was toegepast in Access...misschien dat een moderator het beter kan beoordelen en eventueel naar het Acces form kan verplaatsen.