VBScript: Deel uit variabele herkennen

[johanw]

Ik wil een gebeurtenis koppelen aan het feit of er "-CL-" voorkomt in een variabele. Hoe moet dat?

Ik weet niet waar ik op moet zoeken in mijn visual basic boek.

 

[klariop]

Geplaatst door johanw
Ik wil een gebeurtenis koppelen aan het feit of er "-CL-" voorkomt in een variabele. Hoe moet dat?

Ik weet niet waar ik op moet zoeken in mijn visual basic boek.

Volgens mij is er maar één manier: gebruik een bestaande event en test je variabele.

bv.

private sub txtZomaar_beforeupdate(cancel as integer)

if Instr(1, jevariabele, "-CL-", 1)<>0 then

doe wat je moet doen

end if

 

[johanw]

Lijkt me idd wat ik zoek, ga het proberen!

 

[johanw]

Private Sub F_Opslaan_Click()

'ALS F_Shell_PN -CL- bevat moet client Yes zijn anders Nee.
If InStr(1, F_Shell_PN, "-CL-", 1) <> 0 Then
Client = "Yes"

Else
Client = "No"

End If


Dim MySql As String

MySql = "INSERT INTO tbl_bestellingen (Shell_PN, Client) VALUES (F_Shell_PN, Client);"

DoCmd.SetWarnings False
DoCmd.RunSQL MySql
DoCmd.SetWarnings True



End Sub


Dit heb ik geprobeerd. Als ik nu op opslaan klik vraag ie mij de variabele Client op te geven.

 

[Bartuls]

Dat komt omdat je onderscheid moet maken tussen de naam van een variabele en de inhoud van een variabele.

Private Sub F_Opslaan_Click()

'ALS F_Shell_PN -CL- bevat moet client Yes zijn anders Nee.

Dim Client as String
Dim MySql As String

If InStr(1, F_Shell_PN, "-CL-", 1) <> 0 Then
Client = "Yes"
Else
Client = "No"
End If

MySql = ""
MySql = MySql & "INSERT INTO tbl_bestellingen "
MySql = MySql & "(Shell_PN, Client) "
MySql = MySql & "VALUES ('" & cstr(F_Shell_PN) & "', '" & cstr(Client) & "');"

DoCmd.SetWarnings False
DoCmd.RunSQL MySql
DoCmd.SetWarnings True

End Sub

 

[johanw]

Oke, dit werkt.

Maar waar slaat cstr op?

en wat moet cstr zijn als Client geen text is maar een integer?

 

[Bartuls]

cstr() is gewoon een van de conversie functie die access in zich heeft. Meer informatie daarover kun je in de access help vinden.

Als de variabele client een integer is dan moet cstr nog steeds gebruikt worden.

Als je even voor de docmd statements een regeltje plaatst msgbox MySql dan kun je de inhoud van MySql bekijken.

Vergelijk de inhoud van MySql van de werkende code en de niet werkende code met elkaar, dan wordt wel duidelijk wat de verschillen tussen de werkende en de niet werkende code zijn.