Print i VBA

Jeg vil gerne have den sætte " på hver side af 1, det kan jeg bare ikke få den til.

Print #1, "<wpt lat="; """1"""; " lon="; """1"""; ">"

Det virker fint, så længe det er 1 og 2 der er sat ind, men når jeg prøver at hente data fra en tabel virker det ikke helt, nogen ide ?

Set rs = CurrentDb.OpenRecordset("SELECT * FROM EXPORTSITE", dbOpenDynaset)

If (rs.RecordCount <> 0) Then
  rs.MoveFirst

  Open strSaveFileName For Output As #1
 
    Print #1, "<?xml version="; "1.0"; " encoding="; "UTF-8"; " standalone="; "no"; " ?>"
   
  Do While rs.EOF = False
 
    TempExportCount = TempExportCount + 1


      Print #1, "<wpt lat="; """& rs.Fields("; [SITE_POSITION_LATITUDE]; ").Value &""", "lon="; """& rs.Fields("; [SITE_POSITION_LONGITUDE]; ").Value &"""; ">"
      Print #1, "</wpt>"
   
    rs.MoveNext
  Loop
    'Print #1, "</statics>"
End If

If you declare two variables and then use this in the code this should work
Dim fldA As String
Dim fldB As String

fldA = rs.Fields("; [SITE_POSITION_LATITUDE]
fldB = [SITE_POSITION_LONGITUDE]

Print #1, "<wpt lat="; """"; fldA; """"; " lon="; """"; fldB; """"; ">"

Ooops
fldA = rs.[SITE_POSITION_LATITUDE]
fldB = rs.[SITE_POSITION_LONGITUDE]

Det virker ikke helt, jeg har sat det ind sådan her
Dim rs As DAO.Recordset
Dim latpos As String
Dim longpos As String

latpos = rs.[SITE_POSITION_LATITUDE]
longpos = rs.[SITE_POSITION_LONGITUDE]

Set rs = CurrentDb.OpenRecordset("SELECT * FROM EXPORTSITE", dbOpenDynaset)




If (rs.RecordCount <> 0) Then
  rs.MoveFirst

  Open strSaveFileName For Output As #1
 
    Print #1, "<?xml version="; "1.0"; " encoding="; "UTF-8"; " standalone="; "no"; " ?>"
   
  Do While rs.EOF = False
 
    TempExportCount = TempExportCount + 1


      Print #1, "<wpt lat="; """;latpos;""", "lon="; """;longpos;"""; ">"
      Print #1, "</wpt>"
   
    rs.MoveNext
  Loop
    'Print #1, "</statics>"
End If

har også prøvet version

Dim rs As DAO.Recordset
Dim latpos As String
Dim longpos As String



Set rs = CurrentDb.OpenRecordset("SELECT * FROM EXPORTSITE", dbOpenDynaset)

latpos = rs.[SITE_POSITION_LATITUDE]
longpos = rs.[SITE_POSITION_LONGITUDE]


If (rs.RecordCount <> 0) Then
  rs.MoveFirst

  Open strSaveFileName For Output As #1
 
    Print #1, "<?xml version="; "1.0"; " encoding="; "UTF-8"; " standalone="; "no"; " ?>"
   
  Do While rs.EOF = False
 
    TempExportCount = TempExportCount + 1


      Print #1, "<wpt lat="; """;latpos;""", "lon="; """;longpos;"""; ">"
      Print #1, "</wpt>"
   
    rs.MoveNext
  Loop
    'Print #1, "</statics>"
End If

you dont say what problem you get.

You need to make sure that latpos  and longpos  contain correct data.

Actually I think I can see a problem ..You need 4 > """" you only have 3

Print #1, "<wpt lat="; """";latpos;"""", "lon="; """";longpos;""""; ">"

I'm only looking at the single print line of code how you get the data into the variables is up to you...

Hej

Den kommer op med denne i VBA

Compile error: Method or data member not found

og den marker rs.[SITE_POSITION_LATITUDE]  I VBA

As I said,
"I'm only looking at the single print line of code how you get the data into the variables is up to you... "

A while since I used recordsets so you probably need to use rs.fields ....

thanks