title image


Smiley noch ein problem
ich bekomm jetzt die meldung "Die Argumente sind vom falschen Typ, liegen außerhalb des Gültigkeitsbereich oder sind miteinander unvereinbar"

was kann das denn jetzt sein?



so sieht es jetzt genau aus :

Dim DB As ADODB.Connection

Dim rs As ADODB.Recordset

Set DB = CurrentProject.Connection

Set rs = New ADODB.Recordset



rs.Open "SELECT ab_kopfdaten.to_invoice, Sum(ab_kopfdaten.GesamtsummePositionen) AS [Summe von GesamtsummePositionen], Year([Auftragsdatum]) AS Jahr, Month([Auftragsdatum]) AS Monat, Stammdaten.Firmenname, Stammdaten.Firmenname2, Stammdaten.Strasse, Stammdaten.PLZ, Stammdaten.Ort, Stammdaten.Land, Stammdaten.Status FROM ab_kopfdaten INNER JOIN Stammdaten ON ab_kopfdaten.to_invoice = Stammdaten.Namenskuerzel GROUP BY ab_kopfdaten.to_invoice, Year([Auftragsdatum]), Month([Auftragsdatum]), Stammdaten.Firmenname, Stammdaten.Firmenname2, Stammdaten.Strasse, Stammdaten.PLZ, Stammdaten.Ort, Stammdaten.Land, Stammdaten.Status HAVING (((Stammdaten.Status) 'Kunde GHX')) ORDER BY Year([Auftragsdatum]) DESC , Month([Auftragsdatum]) DESC", rnrcnn3, adOpenKeyset, adLockOptimistic



rs.Open "SELECT * from TAB_Rechnungsnummer"

Do While rs.EOF = False

MsgBox rs!Auftragsnummer

rs.movenext

Loop



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: