Move wgmaster/vba/Form_* to wgmaster/vba/form/*

wgmaster/vba/form/Form_MRundschreibenEMail.frm

@@ -0,0 +1,83 @@
+Dim where1 As String
+
+Private Sub BOk_Click()
+
+Dim adressen As String
+
+adressen = GetEMailadressen()
+subject = TBetreff
+body = TEMailText
+If OVerdeckt Then
+ DoCmd.SendObject acSendReport, "Mitglieder-Information", acFormatPDF, , , adressen, subject, body
+Else
+ DoCmd.SendObject acSendReport, "Mitglieder-Information", acFormatPDF, adressen, , , subject, body
+End If
+End Sub
+
+Function GetEMailadressen() As String
+
+Dim db1 As Database
+Dim rs1 As Recordset
+Dim adressen As String
+Set db1 = CurrentDb
+Set rs1 = db1.OpenRecordset("SELECT * FROM TMitglieder" + where1)
+adressen = ""
+While Not rs1.EOF
+ If Not IsNull(rs1("EMail")) Then
+  adressen = adressen + rs1("EMail") + ";"
+ End If
+ rs1.MoveNext
+Wend
+rs1.Close
+adressen = Left(adressen, Len(adressen) - 1)
+GetEMailadressen = adressen
+
+End Function
+
+Public Sub SetWhereClause(where2 As String)
+
+where1 = where2
+
+LAnzahl.Caption = Format(DCount("MGNR", "TMitglieder", Mid(where1, 8))) + " Mitglieder mit E-Mail Adresse gefunden"
+
+
+End Sub
+
+Private Sub Form_Close()
+
+ SetParameter "RUNDSCHREIBENEMAIL_BETREFF", TBetreff
+ SetParameter "RUNDSCHREIBENEMAIL_EMAILTEXT", TEMailText
+ SetParameter "RUNDSCHREIBENEMAIL_TEXT", TRundschreiben
+
+End Sub
+
+Private Sub Form_Open(Cancel As Integer)
+
+Dim betreff As String
+Dim emailtext As String
+Dim rundschreiben As String
+
+If IsNull(GetParameter("RUNDSCHREIBENEMAIL_BETREFF")) Then
+ betreff = "Rundschreiben"
+ SetParameter "RUNDSCHREIBENEMAIL_BETREFF", betreff
+End If
+betreff = GetParameter("RUNDSCHREIBENEMAIL_BETREFF")
+
+If IsNull(GetParameter("RUNDSCHREIBENEMAIL_EMAILTEXT")) Then
+ emailtext = "Liebe Mitglieder"
+ SetParameter "RUNDSCHREIBENEMAIL_EMAILTEXT", emailtext
+End If
+emailtext = GetParameter("RUNDSCHREIBENEMAIL_EMAILTEXT")
+
+
+If IsNull(GetParameter("RUNDSCHREIBENEMAIL_TEXT")) Then
+ rundschreiben = "Rundschreiben"
+ SetParameter "RUNDSCHREIBENEMAIL_TEXT", rundschreiben
+End If
+rundschreiben = GetParameter("RUNDSCHREIBENEMAIL_TEXT")
+
+TBetreff = betreff
+TEMailText = emailtext
+TRundschreiben = rundschreiben
+
+End Sub