VBA Access variabele in formulier

• 

  Joker2

  17-05-2005 08:44

  Beste Accessers,

  Ik heb een vraag:

  Toegevoegde VBA-code gebruik ik in verschillende formulieren, maar er is telkens iets net even anders. Daar zou ik graag variablen van maken, zodat ik niet iedere keer veel moet aanpassen, maar enkel de waarde van de variabelen.

  Het gaat om de variabelen:

  - tv01_RapportageRegioPortie

  - !!))

  Ik kan hier twee stringvariabelen van maken, stel:

  - strTabelNaam as String

  - strFormulierNaam as String.

  Maar mijn probleem is hoe ik dat dat in onderstaande VBA moet aanpassen.

  Het probleem zit volgens mij in de toe te passen haakjes / aanhalingstekens.

  Alvast bedankt voor jullie (re)acties.

  Jan / Joker2

  ————————————–

  BESTAANDE VBA

  Private Sub cmb_Regio_AfterUpdate()

  If IsNull(Me.cmb_Regio) Then

  cmb_Portie.RowSource = “SELECT tv01_RapportageRegio.Portie ” & _

  “FROM tv01_RapportageRegioPortie ” & _

  “GROUP BY tv01_RapportageRegioPortie.Portie, tv01_RapportageRegioPortie.RegioID ” & _

  “HAVING (((tv01_RapportageRegioPortie.Portie) Is Not Null));”

  Me.cmb_Portie = “”

  Else

  cmb_Portie.RowSource = “SELECT tv01_RapportageRegioPortie.Portie ” & _

  “FROM tv01_RapportageRegioPortie ” & _

  “GROUP BY tv01_RapportageRegioPortie.Portie, tv01_RapportageRegioPortie.RegioID ” & _

  "HAVING (((tv01_RapportageRegioPortie.RegioID)=!!));"

  Me.cmb_Portie = “”

  End If

  End Sub
• 

  Nico den Tuinder

  18-05-2005 12:59

  Volgens mij kun je binnen een rowsource-SQL statement geen directe verwijzing opnemen naar de waarde van een besturingselement op je formulier.

  Hoe ik dit doe? Iets als dit:

  dim strSQL as string

  strSQL = “Select, etc”

  strSQL = strSQL & “FROM….”

  strSQL = strSQL & “WHERE = ” & me.cmbWaarde

  Me.cmbPortie.RowSource = strSQL

  Je kunt dan de volledige SQL opvragen in het direct venster.

  Succes,

  Nico