een module maken

[phobia]

Ik heb een Tabel met records regel(1), regel(2), regel(3) enz.
nu moet er op elke regel eenzelfde controle worden uitgevoerd.

Nu schrijf ik ze voor elke regel apart, maar volgens mij moet het ook makkelijker kunnen.

Kan iemand mij daarmee opweg helpen?

het gaat om de volgende repeterende code:

Private Sub regel2_LostFocus()
Dim breek As Integer
If IsNull(regel2) Then regel2 = "<br />"
breek = InStr(regel2, "<br />")
If breek = 0 Then regel2 = regel2 & "<br />"
If regel3 = "_____________" Or regel3 = "" Then regel3 = ""
End Sub
Private Sub regel3_LostFocus()
Dim breek As Integer
If IsNull(regel3) Then regel3 = "<br />"
breek = InStr(regel3, "<br />")
If breek = 0 Then regel3 = regel3 & "<br />"
If regel4 = "_____________" Or regel4 = "" Then regel4 = ""
End Sub
Private Sub regel4_LostFocus()
If IsNull(regel4) Then regel3 = "<br />"
breek = InStr(regel4, "<br />")
If breek = 0 Then regel4 = regel4 & "<br />"
If regel5 = "_____________" Or regel5 = "" Then regel5 = ""
End Sub

op deze manier werkt het wel, maar is het wel heel omslachtig.

 

[snb]

Ik heb geen idee in welk programma je dit doet en of je gebruik maakt van een userform. De code kan in ieder geval simpeler:

Private Sub regel2_LostFocus()
  if instr(regel2, "<br />")=0 then regel2= regel2 & "<br />"
  If regel3 = "_____________" Or regel3 = "" Then regel3 = ""
End Sub

Als dit over een userform gaat:

Private Sub regel2_LostFocus()
  sjek 2
End Sub

Private Sub regel3_LostFocus()
  sjek 3
End Sub

Private Sub regel4_LostFocus()
  sjek 4
End Sub

Private Sub sjek(x)
 if instr(Me("regel" & x), "<br />")=0 then Me("regel" & x)=  & "<br />"
 If Me("regel" & x+1) = "_____________" Or Me("regel" & x+1) = "" Then Me("regel" & x+1) = ""
End Sub

 

[phobia]

Het is voor op een userform, Ik ben een pagina aan het maken waar een brief geschreven kan worden en klaar gemaakt word voor het verzenden in HTML.

if instr(Me("regel" & x), "<br />")=0 then Me("regel" & x)= & "<br />"

werkt alleen niet!

 

[phobia]

De onderstaande code zet wel de <br /> achter de tekst,
Maar ook als het al in de tekst staat.
Dus ik krijg nu na 2x het veld verlaten <br /><br />
en dat is juist niet de bedoeling!

Private Sub break(x)
 If IsNull("regel" & x) Then Me("regel" & x) = "<br />"
 breek = InStr("regel" & x, "<br />")
 If breek = 0 Then Me("regel" & x) = Me("regel" & x) & "<br />"
 If Me("regel" & x + 1) = "_____________" Or Me("regel" & x + 1) = "" Then Me("regel" & x + 1) = ""
End Sub

 

[phobia]

Op gelost, paar Me vergeten

Private Sub break(x)
 If IsNull(Me("regel" & x)) Then Me("regel" & x) = "<br />"
 breek = InStr(Me("regel" & x), "<br />")
 If breek = 0 Then Me("regel" & x) = Me("regel" & x) & "<br />"
 If Me("regel" & x + 1) = "_____________" Or Me("regel" & x + 1) = "" Then Me("regel" & x + 1) = ""
End Sub

 

[snb]

En nu nog opschonen:

Private Sub break(x)
 If  InStr(Me("regel" & x), "<br />") = 0 Then Me("regel" & x) = Me("regel" & x) & "<br />"
 If Me("regel" & x + 1) = "_____________" Or Me("regel" & x + 1) = "" Then Me("regel" & x + 1) = ""
End Sub

 

[phobia]

Kan ik deze ook maken?

Private Sub FormMail_Click()
Dim db As Database
Dim rs As Recordset
Dim HTML As String
Dim onderwerp As String
nr = 1

SQL = "select * from tblBody where Id = '" & keuzeform & "';"
Set db = CurrentDb
Set rs = db.OpenRecordset(SQL)
rs.MoveFirst
onderwerp = rs!Brief
FormMail_Click_loop:
If rs!("body" & nr) = "_____________" Then
    GoTo FormMail_mail
Else
    HTML = HTML + rs!("body" & nr)
    nr = nr + 1
    GoTo FormMail_Click_loop
End If
FormMail_Click_mail:
rs.Close
db.Close

Het werkt bij mij nog niet, maar kan dit überhaupt?

 

[phobia]

En nu nog opschonen:

 [COLOR="Red"][B]If  InStr(Me("regel" & x), "<br />") = 0 Then Me("regel" & x) = Me("regel" & x) & "<br />"[/B][/COLOR]

End Sub

Deze code werkt nog steeds niet bij mij!

 

[snb]

zijn regel1, regel2, regel3 etc. wel tekstvakken ?
Hier loopt de code als een zonnetje.

 

[phobia]

ja, staan ingesteld als tekst

Maar dat idee wat ik heb wat daarboven staat, kan dat ook?

 

[snb]

ja, staan ingesteld als tekst

Volgens mij begrijp je mijn vraag niet.
Plaats je userform dan eens hier.

 

[phobia]

Ik zal hem morgen voor je posten.

maar wat jou code bij mij niet doet is...Als ik de tekst weg haal in het tekstvlak
en ik ga naar het volgende dan komt er geen <br /> meer te staan.


Maar dat stuk code wat ik ook gepost heb, is dat iets wat wel kan?
Of wil ik iets wat totaal niet kan. ik wil de teksten aan elkaar plakken om er een HTMLbody te maken voor een mail.

 

[phobia]

Nou dit is de Db dan.......