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
Hier mein ModulPHP-Code: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-Code: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
Problem gelöst
wer-weiss-was - Experten-Forum
Links: Tobias Bauer - IT- und Funkdienstleistungen - Bilderrahmen-kaufen.de - Der Onlineshop für Bilderrahmen & Fotorahmen - Funkforum
Lesezeichen