srings verketten?

19/05/2008 - 07:40 von jensspeedy | Report spam
hallo ihr wissenden ;-)

und eine kleine frage an euch hab ich trotzdem noch

wenn ich mit
[code]

Dim Nummer3 As Integer
Dim Nummer4 As String
Dim Nummer5 As Integer
Dim str0 As String

Nummer3 = (Nummer - 1000)
Nummer4 = (Nummer2 / 100)
Nummer5 = VBA.Left(Nummer4, VBA.InStr(1, Nummer4, ",") - 1)
Set objDBEngine = CreateObject("DAO.DBEngine.36")
Set objDBEngine = OpenDatabase("C:\z_vorlagen\zzz_db
\Datenbank1.mdb")
Set objRS = objDBEngine.OpenRecordset("SELECT * FROM z_adressen "
& _
"WHERE D010Nr=" & Nummer3 &
" " & _
"AND D060Nr=" & Nummer5,
_
dbOpenDynaset, dbSeeChanges)
If objRS.RecordCount >= 0 Then
ReplaceBookmarkText_1 "besi", _
str0 = "objRS!D160Anschrift & """ & "objRS!
D160Name1 & """

[/code]

versuche die werte zu verketten gibt mir die funktion
[code]

Function ReplaceBookmarkText_1(strBMName As String, strText As String)
Dim rng As Range

If ActiveDocument.Bookmarks.Exists(strBMName) Then
Set rng = ActiveDocument.Bookmarks(strBMName).Range
rng.Text = strText
ActiveDocument.Bookmarks.Add strBMName, rng
End If
End Function
[/code]

als text immer "falsch" aus - aber ich habe doch str0 als string
deklariert ?
ausgelesen aus der db werden übrigens TEXTE - ich schnall das nicht
*schnief*
kann einer helfen?

vielen dank schon mal

der jens
 

Lesen sie die antworten

#1 Rudi Tüscher
19/05/2008 - 10:01 | Warnen spam
Hallo Der Jens
warum einfach, wenn's kompliziert auch geht
setze deinen str0 nicht erst im Aufruf der Funktion zusammen - dort
kommt nàmlich das FALSCH her, ist ein logisches Falsch/False

Rudi Tüscher


On 19 mai, 07:40, jensspeedy wrote:
hallo ihr wissenden ;-)

und eine kleine frage an euch hab ich trotzdem noch

wenn ich mit
[code]

    Dim Nummer3 As Integer
    Dim Nummer4 As String
    Dim Nummer5 As Integer
    Dim str0 As String

    Nummer3 = (Nummer - 1000)
    Nummer4 = (Nummer2 / 100)
    Nummer5 = VBA.Left(Nummer4, VBA.InStr(1, Nummer4, ",") - 1)
    Set objDBEngine = CreateObject("DAO.DBEngine.36")
    Set objDBEngine = OpenDatabase("C:\z_vorlagen\zzz_db
\Datenbank1.mdb")
    Set objRS = objDBEngine.OpenRecordset("SELECT * FROM z_adressen "
& _
                                           "WHERE D010Nr=" & Nummer3 &
" " & _
                                             "AND D060Nr=" & Nummer5,
_
                                          dbOpenDynaset, dbSeeChanges)
    If objRS.RecordCount >= 0 Then
        ReplaceBookmarkText_1 "besi", _
                     str0 = "objRS!D160Anschrift & """ & "objRS!
D160Name1 & """

[/code]

versuche die werte zu verketten gibt mir die funktion
[code]

Function ReplaceBookmarkText_1(strBMName As String, strText As String)
    Dim rng As Range

    If ActiveDocument.Bookmarks.Exists(strBMName) Then
        Set rng = ActiveDocument.Bookmarks(strBMName).Range
        rng.Text = strText
        ActiveDocument.Bookmarks.Add strBMName, rng
    End If
End Function
[/code]

als text immer "falsch" aus  -  aber ich habe doch str0 als string
deklariert ?
ausgelesen aus der db werden übrigens TEXTE  -  ich schnall das nicht
*schnief*
kann einer helfen?

vielen dank schon mal

der jens

Ähnliche fragen