Hiho,
ich habe ein Formular, in welches ich Werte eingeben kann.
(suchname_alt und suchname_neu)
Diese Struktur kann ich nicht verändern, jedoch möchte ich gerne aus diesem Formular mit der Funktion Public Sub Umhängen_Click() die beiden werte an ein Modul übergeben… wo und wie muss ich die Variable deklarieren um mit ihr zu arbeiten? Stehe grade etwas auf dem schlauch
Hier der Formularaufbau
[PHP]Option Compare Database
Sub Form_Open(Cancel As Integer)
Me.suchname_alt = „“
Me.suchname_neu = „“
Me.FilterOn = False
Me.Filter = „“
End Sub
Sub suchname_alt_AfterUpdate()
Form_doubletten_umhaengen.Filter = „((Adressen.SuchName=“"" & Me.suchname_alt & „“"))"
Form_doubletten_umhaengen.FilterOn = True
DoCmd.GoToRecord , , acFirst
End Sub
Public Sub Umhängen_Click()
On Error GoTo Err_Umhängen_Click
Call Doubletten_umhaengen_aktivitaeten_kontakte(Me.suchname_alt, Me.suchname_neu)
Exit_Umhängen_Click:
Exit Sub
Err_Umhängen_Click:
MsgBox Err.Description
Resume Exit_Umhängen_Click
End Sub
[/PHP]Hier mein Modul
[PHP]Option Compare Database
Sub Doubletten_umhaengen_aktivitaeten_kontakte(suchname_alt, suchname_neu)
DoCmd.RunSQL „UPDATE Kontakte SET Kontakte.SuchName = suchname_neu WHERE Kontakte.SuchName = suchname_alt;“
DoCmd.RunSQL „UPDATE Aktivitäten SET Aktivitäten.SuchName = suchname_neu WHERE Aktivitäten.SuchName = suchname_alt;“
End Sub
[/PHP]