RE: RE: Datenbank Design ändern

[Michel Thomas]

Hallo Oliver und alle anderen
>ja, das geht auch mit einer Schleife. Wahrscheinlich sind dann aber 
>einige Felder auch NULL? Gehen wir einfach 'mal davon aus und erweitern

>das Ganze: 

so habe ich es für mich angepasst

es kommt aber immer die Fehlermeldung Typen unterträglich wo ist der
Fehler?


mfG

Thomas Michel


Sub convert()
 
  Dim rs As Recordset
  Dim s As String
  Dim t As String
  Dim i As Long
 
  Set rs = CurrentDb.openrecordset("select * from tabelle1")
  While Not rs.EOF
    For i = 0 To 30
      t = Trim(Str(i))
      If Not IsNull(rs.Fields("m" + t)) And _
        Not IsNull(rs.Fields("z" + t)) And _
        Not IsNull(rs.Fields("e" + t)) Then
        s = "insert into new (id,menge,zutat,stueck) values ("
        s = s + Str(rs!id) + ","
        s = s + Str(rs.Fields("menge" + t)) + ","
        s = s + "'" + rs.Fields("zutat" + t) + "',"
        s = s + "'" + rs.Fields("einheit" + t) + "')"
        CurrentDb.Execute s
      End If
    Next
    rs.MoveNext
  Wend
  rs.Close
 
End Sub



Ciao Oliver
--
Good programming is 40% experience, 30% skill, 20% RTFM, 10% caffeine, 
and 5% attention to detail. 

Oliver Six, CAHOS GmbH, Cimbernstr. 51, Germany 81377 Muenchen, Phone 
+49 89 71 01 93 40,  Fax +49 89 71 01 93 41 

---
!!NEU!!
Fragen und Antworten zu MySQL und dieser Liste unter
-->>  http://www.4t2.com/mysql 

---
!!NEU!!
Fragen und Antworten zu MySQL und dieser Liste unter
-->>  http://www.4t2.com/mysql