probleem met visual basic in access

[marc1982]

ik heb het volgende probleem, ik ben bezig met een access database, en heb een zoekfunctie toegevoegd en wil deze aanpassen, en functies aan toevoegen, ik kan nu op deze manier zoeken op achternaam, postcode en telefoonnummer. nu wil ik telefoonnummer veranderen in woonplaats. ik post hier de source van de module in visual basic:
als er meer info nodig is, of standaard tips, alles is welkom
[quote]

Option Compare Database
Option Explicit

Private Sub Knop2_Click()
On Error GoTo Err_Knop2_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Klant_toevoegen"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop2_Click:
Exit Sub


Err_Knop2_Click:
MsgBox Err.Description
Resume Exit_Knop2_Click

End Sub

Private Sub Knop_wissen_Click()
Me.Achternaam = ""
Me.postcode = ""
Me.Bedrijfsnaam = ""


Me![klantenzoeken_sub].Form.RecordSource = "select * from klanten where false;"

End Sub

Private Sub Knop_Zoeken_Click()


Dim mijnsql As String, MijnCriteria As String, mijnrecordbron As String
Dim AantalArg As Integer
Dim Tdl As Variant
Dim ContactStr As String
Dim I As Integer


AantalArg = 0
MijnCriteria = ""
WaaraanToevoegen [Achternaam], "Klanten.Achternaam", MijnCriteria, AantalArg
WaaraanToevoegen [postcode], "Klanten.postcode", MijnCriteria, AantalArg
WaaraanToevoegen [Bedrijsnaam], "Klanten.Bedrijfsnaam", MijnCriteria, AantalArg

If MijnCriteria = "" Then
MijnCriteria = "True"
End If


mijnsql = "SELECT * FROM Klanten WHERE "


mijnrecordbron = mijnsql & MijnCriteria & " ORDER BY Klanten.Achternaam"

Debug.Print mijnrecordbron


Me![klantenzoeken_sub].Form.RecordSource = mijnrecordbron

If Me![klantenzoeken_sub].Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Er zijn geen klanten gevonden, voer de gegevens van de nieuwe klant in.", 48, "Geen klant gevonden."
Else
Me![klantenzoeken_sub].SetFocus
End If

End Sub
Private Sub WaaraanToevoegen(veldwaarde As Variant, VeldNaam As String, MijnCriteria As String, AantalArg As Integer)


If veldwaarde <> "" Then
' "And" toevoegen als er een ander criterium is.
If AantalArg > 0 Then
MijnCriteria = MijnCriteria & " And "
End If

' Het criterium toevoegen aan de bestaande criteria.
' VeldWaarde en sterretje tussen aanhalingstekens plaatsen.
MijnCriteria = (MijnCriteria & VeldNaam & " Like " & Chr(39) & Chr(42) & veldwaarde & Chr(42) & Chr(39))

' Aantal argumenten verhogen.
AantalArg = AantalArg + 1
End If

End Sub

Private Sub BesturingselementUitschakelen()

' Het besturingselement in de detailsectie uitschakelen (als dit was
' geactiveerd) nadat de gebruiker een zoekcriterium heeft gewijzigd.
Dim Tdl As Variant

If Me![Subformulier Klanten zoeken].Enabled Then
' Tdl = BesturingselementenActiveren("Detail", False)
End If

End Sub

Private Sub Knop12_Click()
Knop_Zoeken_Click
End Sub

Private Sub Knop13_Click()
Knop_Zoeken_Click
End Sub

Private Sub Knop18_Click()
On Error GoTo Err_Knop18_Click


DoCmd.Close

Exit_Knop18_Click:
Exit Sub

Err_Knop18_Click:
MsgBox Err.Description
Resume Exit_Knop18_Click

End Sub

Private Sub Knop24_Click()
On Error GoTo Err_Knop24_Click


DoCmd.GoToRecord , , acNewRec

Exit_Knop24_Click:
Exit Sub

Err_Knop24_Click:
MsgBox Err.Description
Resume Exit_Knop24_Click

End Sub
Private Sub Knop25_Click()
On Error GoTo Err_Knop25_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Klant bestand"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop25_Click:
Exit Sub

Err_Knop25_Click:
MsgBox Err.Description
Resume Exit_Knop25_Click

End Sub
Private Sub Knop26_Click()
On Error GoTo Err_Knop26_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Klant bestand"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop26_Click:
Exit Sub

Err_Knop26_Click:
MsgBox Err.Description
Resume Exit_Knop26_Click

End Sub
Private Sub Knop27_Click()
On Error GoTo Err_Knop27_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Knop27_Click:
Exit Sub

Err_Knop27_Click:
MsgBox Err.Description
Resume Exit_Knop27_Click

End Sub
Private Sub Knop28_Click()
On Error GoTo Err_Knop28_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "klantenzoeken"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop28_Click:
Exit Sub

Err_Knop28_Click:
MsgBox Err.Description
Resume Exit_Knop28_Click

End Sub
Private Sub Knop29_Click()
On Error GoTo Err_Knop29_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Klant bestand"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Knop29_Click:
Exit Sub

Err_Knop29_Click:
MsgBox Err.Description
Resume Exit_Knop29_Click

End Sub
Private Sub Knop30_Click()
On Error GoTo Err_Knop30_Click


DoCmd.GoToRecord , , acNewRec

Exit_Knop30_Click:
Exit Sub

Err_Knop30_Click:
MsgBox Err.Description
Resume Exit_Knop30_Click

End Sub

Private Sub Bedrijfsnaam_BeforeUpdate(Cancel As Integer)

End Sub


[qoute]

[gorgi_19]

als er meer info nodig is, of standaard tips, alles is welkom

Ja, wat is de relevante code. Ik heb heb iig weinig zin om deze hele lap code door te spitten op zoek naar iets, en ik gok meerderen. . Dit komt nu op mij over als : "Ik dump mijn code, kunnen jullie het oplossen voor mij?" Daar zijn iig een hoop mensen hier vrij allergisch voor.

Verder snap ik ook niet echt wat je wilt en vooral waar het probleem ligt.

Wat is het probleem, wat lukt jou niet, welke foutmeldingen krijg je? Wat heb je tot nu toe al geprobeerd? Ik heb iig nog geen concrete pogingen van jouw kant gezien om je eigen probleem op te lossen.

[ Voor 35% gewijzigd door gorgi_19 op 04-04-2003 20:12 ]

[OZ-Gump]

Aaaah... jeuk jeuk!
Uitslag in mijn bilnaad..!

Graag ff relevante code posten en voor de volgende keer Welkom in P&W -> Quickstart (update 2/10/2002) ff doorlezen. Debug zelf eens een beetje, anders kan iedereen programmeren als hij maar vaak genoeg op GoT komt. Beetje eigen inspanning is dus gewenst!

[Janoz]

Tja. Zie de opmerkingen hierboven. Hier kunnen andere gebruikers natuurlijk weinig mee.