Hi,

System: Access 2013 (aus Office Prof. Plus 2013).

Ich habe mit meinem üblichen Tool (Powerdesigner) eine Datenbank konzipiert und für die Access-Plattform ein Script generieren lassen. Das Script ist eine Textdatei mit der üblichen Endung .dat. Darin finden sich Anweisungen der Art

CreateTble C=Customer N="Customer"
(
   C=CustomerID T="INTEGER" P=Yes M=Yes N="CustomerID" Z=false,
   C=FirstName T="VARCHAR(100)" P=No M=Yes N="FirstName" Z=false,
   C=Surname T="VARCHAR(100)" P=No M=Yes N="Surname" Z=false
);

Nun möchte ich gerne via dieses Scripts in Access 2013 die Datenbank erstellen lassen. Wie geht das?

Danke Euch für die Hilfe!

Best

Cedy

Hallo,

vba Access 2003  unter XP oder auch unter Win7 bei der Ausführung des Befehls:

DoCmd.TransferText acImportDelim, "ImportSpezifikation", "MyTabelle", "C:\myDatei.csv"

bringt Fehler: 3011 - Datei C:\myDatei#csv kann nicht gefunden werden.

Ja, ich habe mich nicht vertippt:  Punkt wurde zu # umgewandelt.

Access such nach C:\myDatei#csv???

Manuelles Import nach der gleichen Spezifikation  funktioniert  ohne Probleme.

Auch explizite Eingabe der  Codepage 1252 
DoCmd.TransferText acImportDelim, "ImportSpezifikation", "MyTabelle", "C:\myDatei.csv",,,"1252"

bringt nichts.

Gruß

Johann

Es muss mit der Importspezifikation zu tun haben.
Ich habe die csv zu xls umgewandelt und ohne Spezifikation läuft  durch.
Frage?

Wo liegt die genaue Beschreibung der Spezifikation außer in der MSysIMEXSpecs.
Wenn die Spezifikation nicht vorhanden ist, dann schreibt Access dass er die Datei "Spezifikationsname"  nicht finden kann. Ist es also eine Datei?

Gruß

Johann

Hallo,

ist es möglich ein ("graphisches") nutzerdefiniertes Control (z.B. eine erweiterte Progressbar) aus VB-Net/VS2010 in Access in einem Formular nutzen ? Es sollte im Formulardesigner nutzbar bzw. dem Formular im Designer zufügbar sein.

Wenn ja, wer hat evtl. mal einen Link dazu ?

Danke im Voraus

Frank

Hallo,

ich habe ein großes Problem.

Ich importiere mit Access Daten aus einer Textdatei in eine Tabelle. Die Daten sind in der Textdatei in einer festgelegten Struktur und werden mittels einer Importspezifikation importiert.

Die Datenfelder in der Tabelle sind auch dementsprechend definiert.

Diese Tabelle wird dann nach Excel exportiert, dort optisch etwas verschönert und weiterverarbeitet.

Dies funktioniert auch fast alles wunderbar, allerdings ist nun ein Problem aufgetreten.

In der Tabelle sind Zahlenfelder enthalten. Manche mit, manche ohne Nachkommastellen. Beim Export der Tabelle nach Excel wird in Excel zwar mittels Rechtsklick/Felder formatieren die richtige Formatierung angezeigt, allerdings scheint diese nicht aktiv zu sein. Ich kann mit den Feldern nicht weiterrechnen. Dies ist erst möglich, wenn ich einmal ein Doppelklick in die betroffene Zelle gemacht habe. Dann ist die Zelle richtig formatiert.

Mit den Funktionen =ISTZAHL und =ISTTEXT lässt sich dieses ja auch prüfen.

Wie ist es nun möglich die Tabelle direkt so zu exportieren, dass die Zellen auch wirklich richtig formatiert sind ?

Es handelt sich teilweise um große Dateien mit mehreren tausend Datensätze. Damit fällt eine händische Anpassung weg.

[CODE]

       DoCmd.RunSavedImportExport "77sovstor"

        Set Db = Nothing

        Dim rs As DAO.Recordset, fld As DAO.Field
        Dim strSQL As String
        Set rs = CurrentDb.OpenRecordset("Select * From sovency77 Where False")
        For Each fld In rs.Fields
            If fld.Type = dbText Then
                strSQL = strSQL & ", Trim(sovency77." & fld.Name & ") As " & fld.Name
            Else
                strSQL = strSQL & ", " & fld.Name
            End If
        Next
        rs.Close
        strSQL = "Select " & Mid(strSQL, 3) & " From sovency77"
        CurrentDb.CreateQueryDef "77soven", strSQL
        DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "77soven", "E:\77\77sovstor.xls"
        DoCmd.DeleteObject acQuery, "77soven"
        Set xlAnw = CreateObject("excel.application")
        xlAnw.Visible = True
        xlAnw.Workbooks.Open FileName:="E:\77\77sovstor.XLS"
        xlAnw.Cells.Select
        xlAnw.Range("F:H;P:X;AG:AN;BE:BG;BP:BW;CN:CP;CY:DF;DW:DY;EH:EO;FF:FH;FQ:FX;GO:GQ").Select
        xlAnw.Selection.NumberFormat = "0"
        xlAnw.Cells.Select
        xlAnw.Range("Y:AF;AO:BC;BH:BO;BX:CL;CQ:CX;DG:DU;DZ:EG;EP:FD;FI:FP;FY:GM").Select
        xlAnw.Selection.NumberFormat = "0.00"
        xlAnw.Range("A:C;E:HZ").Select
            With Selection
                .HorizontalAlignment = xlRight
            End With
        xlAnw.Cells.Select
        xlAnw.Selection.Columns.AutoFit
        xlAnw.Rows("1:1").Select
        xlAnw.Selection.Interior.ColorIndex = xlNone
        xlAnw.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
        xlAnw.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
        xlAnw.Selection.Borders(xlEdgeLeft).LineStyle = xlNone
        xlAnw.Selection.Borders(xlEdgeTop).LineStyle = xlNone
        xlAnw.Selection.Borders(xlEdgeBottom).LineStyle = xlNone
        xlAnw.Selection.Borders(xlEdgeRight).LineStyle = xlNone
        xlAnw.Selection.Borders(xlInsideVertical).LineStyle = xlNone
        xlAnw.Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

[/CODE]

Ich hoffe hier kann mir jemand weiterhelfen, da die 299 Euro für eine direkte Anfrage bei Microsoft leider nicht in Frage kommen.

gruß

Patrick

Hallo zusammen

Ich brauche Eure Hilfe, da ich nicht mehr weiter komme. Ich möchte Daten aus der DB in ein Excel-Sheet exportieren. Das mache ich mit untenstehendem Code:

Sub test()
'Supercode

950 db.CreateQueryDef strNameTempQuery, strSQL
970 db.QueryDefs.Refresh
980 DoEvents

990 MsgBox "Blablabla.", vbInformation + vbOKOnly, "Supertitel"
Dim qrf As QueryDef
For Each qrf In db.QueryDefs
Debug.Print qrf.Name
Next
    ' Daten exportieren
1000 DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strNameTempQuery, strFileName

'Weiterer Supercode
End Sub

Zwischen den Zeilen 950 und 1000 steht kein weiterer Code. Die Variablen strNameTempQuery, strSQL und strFileName sind immer mit dem richtigen Wert gefüllt.

Jetzt habe ich eine Prozedur, welche diese 'Test'-Prozedur aufruft und mir die Daten wie gewünscht in ein Excel-Sheet abfüllt.

Das Problem ist, dass ich eine andere Prozedur habe, welche diese 'Test'-Prozedur ebenfalls aufruft, einzelne Codezeilen zu beginn nicht aufruft, mir dann aber bei TransferSpreadsheet diesen Fehler bringt:

? err.Number
3011
? err.Description
The Microsoft Access database engine could not find the object 'TempExport'. Make sure the object exists and that you spell its name and the path name correctly. If 'TempExport' is not a local object, check your network connection or contact the server administrator.

Ich frage ja gleich vor der Ausführung den Namen aller Queries ab und dort ist die 'TempExport' vorhanden! Also von der einen Prozedur aufgerufen funktioniert alles (auch mehrfach, hatte nie probleme), von der anderen Aufgerufen funktioniert es nicht, obwohl alle Parameter den richtigen Wert haben und die Abfrage existiert.

Decompile und alles in neue DB importiert hat keine Verbesserung gebracht.

Kann mir jemand hier weiterhelfen?

Danke und Gruss Thomas

Hallo,

wenn ich aus einer bestimmten .MDB eine Tabelle exportiere, werden - je nach Exporteinstellungen - falsche Daten generiert.
Einstellungen für den Export:
- Textdatei
- Mit Trennzeichen
- Feldtrennzeichen: Tabulatorzeichen
- Textqualifizieren: {kein}
- Feldnamen in erster Zeile einbeziehen: Wenn ja => Fehler in der Textdatei. Wenn nein => ok.

Weil ich hier keine Daten hochladen kann, habe ich die .mdb auf .jpb umbenannt und als Bild hochgeladen. Zum Nachvollziehen bitte das "Bild" downloaden und umbenennen.
Der Link ist: http://social.msdn.microsoft.com/Forums/getfile/461197. Download kann z.B. mit Chrome erfolgen: Link in Adressleiste eingeben, Am Grafik-Icon Kontextmenü - Bild speichern unter. usw.

Hallo,

ich habe folgendes Problem bzw folgende Frage:

mein Makro liest in Outlook Ordner aus und kopiert sie in ein Excelsheet, nur bisher habe ich es noch nicht geschafft, die Unterorder (Subfolders) mit auszulesen. Kennt jemand eine Möglichkeit, wie ich ich die Unterordner beim auslesen automatisch mit einbeziehe und kopiere? Vielen Dank im voraus!

Hier der Code

Sub Outlookauslesen()
Dim objOutlook As Outlook.Application
Dim objnSpace As Namespace
Dim objFolder As MAPIFolder
Dim objMsg As Object 'MailItem
Dim olFolder As Outlook.MAPIFolder
Dim LRow As Long
Dim myAr() As Variant
Dim counter As Integer
  
   Set objOutlook = New Outlook.Application
   Set objnSpace = objOutlook.GetNamespace("MAPI")
   Set objFolder = objnSpace.PickFolder
   Set olFolder = objNS.GetDefaultFolder(olFolderInbox)
   Set olFolder = olFolder.Folders("Done")

With Sheets("Ordner1") 'Tabellennamen anpassen
  
   'Tabellblatt löschen
   .Range("A2:C" & .Rows.Count).Clear
  
   'Titels
   .Cells(1, 1) = "Absender"
   .Cells(1, 2) = "Datum"
   .Cells(1, 3) = "Betreff"
   .Cells(1, 4) = "Kategorie"
   .Range("A1:C1").Font.Bold = True
  
   'Array festlegen
   ReDim myAr(1 To objFolder.Items.Count, 1 To 4)
  
   'Mails aus Ordner lesen
   Debug.Print "Items im Folder"; objFolder.Items.Count

   On Error GoTo ErrorHandler
   For counter = 1 To objFolder.Items.Count
   Set objMsg = objFolder.Items(counter)
            LRow = LRow + 1
            If Not objMsg = Empty Then
            myAr(LRow, 1) = objMsg.SenderEmailAddress  
            myAr(LRow, 2) = objMsg.ReceivedTime        
            myAr(LRow, 3) = objMsg.Subject             
            myAr(LRow, 4) = objMsg.Categories          
            Else
            myAr(LRow, 1) = "Interner Lesefehler - Objekt ist initial."
            myAr(LRow, 4) = counter
            End If
    Next counter
   
   'Daten in Zellen kopieren
   .Range("A2:A3000").Resize(LRow, 4) = myAr
   'Breite der Spalten formatieren
   .Columns("A:D").EntireColumn.AutoFit
  
End With

Hallo

Ich beschäftige mich noch nicht lange mit den Ribbons, habe aber schon welche im Einsatz.

Jetzt zu meiner Frage:
In jedem meiner Formulare hat es ein Unterformular 'ufrmFormHead'. Ich rufe beim Start jedes Hauptformulares die Klasse clsFormHead mit New clsFormHead auf. Dort kann ich auswählen, welche Schaltflächen mir auf dem ufrmFormHead angezeigt werden sollen, die Grösse, Farbe, Titel und noch diverses anderes. In der Klasse reagiere ich auch auf das Klicken auf die im ufrm vorhandenen Schaltflächen. Hier ein kleiner Auszug aus dem Head meiner Klasse in der Hoffnung, dass man sieht, was alles darin geschieht (ist noch einiges mehr, aber ich möchte niemanden unnötig langweilen).

Public Event CloseForm(ByRef cancel As Boolean, ByRef CloseApplication As Boolean)
Public Event PrintForm(ByRef cancel As Boolean)
Public Event SearchForm()
Public Event ExcelExport()
Public Event Edit(ByRef cancel As Boolean, ByRef Clicked As Boolean)    ' Damit kann der Event gecanceled werden.
Public Event RestoreWindow()

Private WithEvents frmFormContainer As Form    ' Mainform
Private WithEvents frmFormHead As Form         ' Form frmFormHead

' Damti beim click auf alle der Buttons auch etwas geschieht
Private WithEvents btnClose As Access.CommandButton         '(Alt + Shift + O)
Private WithEvents btnPrint As Access.CommandButton         '(Alt + Shift + P)
Private WithEvents btnSearch As Access.CommandButton        '(Alt + Shift + F)
Private WithEvents btnExcel As Access.CommandButton         '(Alt + Shift + E)
Private WithEvents btnEdit As Access.CommandButton          '(Alt + Shift + D)
Private WithEvents btnRestoreWindow As Access.CommandButton    '(Alt + Shift + R)

Soweit funktioniert meine Klasse mittlerweile auch ausgezeichnet.

Jetzt aber möchte ich diese Buttons in ein Ribbon auslagern. Ribbon erstellen und die Buttons einfügen ist kein Problem. Dieses entsteht erst, wenn ich mir überlege, wie ich die vorhanden Klasse eine Formulares anspreche, um die Funktionalität beizubehalten. Falls es überhaupt möglich ist muss ich von einem allgemeinen Modul (wo die Abarbeitung der Ribbons stattfindet) auf eine Klasse, welche von einem Formular aufgerufen wurde zugreifen. Und das auf jedem geöffneten Formular individuell. Da habe ich keinen Plan für. Wer kann mir hier etwas helfen, mich hier etwas zurecht zu finden?

Danke und Gruss Thomas

hallo zusammen,

ich habe ein einfaches Tabellenformular bei dem am Ende eine Summe über ein Zahlenfeld gebildet wird.

=summe(feld). Funktioniert auf einem Win7 Client problemlos.

Am Terminal Server wird dieses Feld jedoch nicht angezeigt? Es erscheint auch ständig "Berechnung läuft..."

Hat jemand eine Idee.

Chris

Thomas@Team-Moeller.de
Blog: Blog.Team-Moeller.de
Homepage: www.Team-Moeller.de

Ich habe seit Urzeiten einen Bericht (Rechnungsstellung) in benutzung.

Innerhalb gibt es einen unterbericht mit den einzelnen Leistungsziffern.

Der Code im Report greift auf den Unterbericht zu und bestimmt letztlich Rechnungsbetrag, USt und andere Dinge und trägt per Code diese Items in eine Tabelle ein.

Das hat lange absolut problemlos funktioniert.

Ohne für mich ersichtlichen Grund kriege ich jetzt Fehlermeldungen imCode mit den Zugriffen auf Felder im Unnterbericht.

Ich habe HIER nichts geändert.

Woran kann das wohl liegen?

Hallo zusammen,

seit kurzem gibt es auf http://www.accessdevelopers.org/ eine Lobby
für Access Entwickler.

Wir sind offen für weitere Access-Entwickler, die sich mit Kollegen
vernetzen und Access als ernsthafte Entwicklungsplattform fördern
möchten.

Die Teilnahme ist kostenlos und ohne größere Verpflichtungen - nur
Transparenz bei den persönlichen Daten und etwas aktive Mitwirkung.

Einfach bei Interesse im Kontaktformular
http://www.accessdevelopers.org/contact-us anmelden, wir schicken dann
eine Einladungsmail für den internen Office365-Bereich. Voraussetzung
zum Einloggen ist ein vorhandenes Microsoft-Konto (ehem. Passport,
Office Live Id) oder eine Office 365-Id.

Gruppenrichtlinien
WSUS Package Publisher
HowTos zum WSUS Package Publisher
NNTP-Bridge für MS-Foren

Guten Tag,

ich habe ein Problem bei der Einstellung der Spaltenbreiten via Access VBA (ich benutze Access 2010 unter Windows 7): Ich habe in einem Formular eine Listbox, die üblicherweise aus 4 Spalten besteht die - in Twips - 0, 340, 1985 und 1220 breit sind (6,25 cm), die Liste selbst ist etwas breiter (auf 6,3 cm) eingestellt. Das funktioniert, so daß ich keine horizontale Bildlaufleiste angezeigt bekomme. Unter bestimmten Umständen will ich die Breite der Listbox und ihrer Spalten mittels VBA verändern und berechne sie neu auf die Werte 0, 340, 5149 und 1220. Diese Werte stelle ich mit dem Befehl ListeAb.ColumnWidths = allgKZalph1 ein. Die Listenbreite stelle ich mit ListeAb.Width = Me.WindowWidth - 450 (= 7215) ein, also größer als die Summe der Spaltenbreiten (die ergeben 6709). Diese Veränderung wird auch angenommen, allerdings wird nun grundsätzlich eine horizontale Bildlaufleiste angezeigt. Ändere ich einen der vorstehenden Werte - nur aus Beispielgründen - rechnerisch auf einen geringeren Wert bleibt das Problem das gleiche. Die veränderte Spalte wird zwar schmaler, eine andere (nachfolgende) aber breiter, so daß die Bildlaufleiste trotzdem erscheint.

Weiß jemand was ich falsch mache ? Danke im Voraus!

Ulrich Schrader

Viele Grüße Stefan

Guten Morgen,

ich habe folgendes Problem. Eine Webdatenbank, die auf Access basiert wurde auf einem SharePoint-Server hochgeladen. Soweit hat alles funktioniert, allerdings funktioniert die Suchfunktion in der Webdarstellung nicht. Die Datei hat 500 Datensätze, da fällt das durchsucher jeder einzelnen Datei eher schwer.

Hat jemand eine Idee, wie ich das Problem angehen kann?

Gruß Engin

Hallo ich habe eine Abfrage unter Access die mit einer mdB/accdb funktioniert aber über eine ODBC Verbindung zum SQL Server 2012 leider nicht

Abfrage:

UPDATE tblArtikel LEFT JOIN tblArtikel_Zusatz ON tblArtikel.ArtikelNummer = tblArtikel_Zusatz.ArtikelNummer SET tblArtikel_Zusatz.ArtikelNummer = tblArtikel.ArtikelNummer
WHERE (((tblArtikel_Zusatz.ArtikelNummer) Is Null));

hintergrund ist das ich eine Tabelle habe in der datensätze stehen (tblArtikel) und mit dieser abfrage einen leeren datensatz in der tabelle tblArtikel_Zusatz anlegen möchte wenn dieser nicht vorhanden ist

Fehlermeldung

ODBC-Aufruf fehlgeschlagen

Ungültiger Argumentenwert(#0)

Hallo,

ich habe die Migration von Access 2000 auf 2010 zurückgestellt, da einige Access 2010 native Suchaktionen (Strg+F und dann im indizierten Feld suchen) um den Faktor 100 bis 1000 länger dauern.

Dies bestätigte auch das ODBC-Trace Protokoll. Auf dem selben PC sieht man im SQL.log unter Access 2000 noch ein
SELECT mit LIKE '000223%'. Unter 2010 zieht er sich die komplette Tabelle Feld für Feld.

Wie kann ich dieses Verhalten abstellen?

PS: Umprogrammierung kommt nicht in Frage, da an zu vielen Stellen mit Strg+F gesucht wurde, was vorher auch bei Tabellen mit 100tausenden von Datensätzen ging.

System: Ora11gR2 Client (Win7/64) und Server Ora11gR2 LINUX;

Bin dankbar für Hinweise.

Ich habe Porbleme eine stored procedure von Access (2007/2010) aus auzuführen.

Mit der stored procedure wird eine Volltextsuche in der file_stream-Spalte einer  FILETABLE durchgeführt.

Der Parameter ist der Suchstring.

Das funktioniert im Grunde auf dem SQL-Server auch ganz gut.

Nun möchte ich in meinem ACCESS-Fomular diesen Suchparamter eingeben, auf dem SQL-Server suchen lassen und ein Recordset zurückbekommen, mit dem ich einUnterformular fülle.

Ist das überhaupt der richtige Weg?

Eine normale Abfrage erscheint mir ungeeeignet, da meines Wissens Suche mit CONTAINS nur auf dem SQL selber geht.

Zum anderen bekomme ich eine Fehlermeldung, die besagt, ich hätte den Parameter nicht angegeben, obwohl er da ist.

Ich baue eine ADODB.Connection auf und übermittle dann mit ADODB.command und .Parameter("@suchstring").value den eigentlichen WertIn der Fehlermeldung wird anstatt des Parameters nur ein ? genannt

Was mache ich falsch ?

Thomas@Team-Moeller.de
Blog: Blog.Team-Moeller.de
Homepage: www.Team-Moeller.de

Moin,

ich versuche aus Access 2010 automatisch Termine zu erstellen (über die Schnittstelle zum Outlook 2010). Allerdings landet der größte Teil davon direkt im Papierkorb, mit folgender Meldung:

"Diese Besprechungsanfrage wurde aktualisiert, nachdem diese Nachricht gesendet wurde. (...)"

Mein VBA-Code sieht wie folgt aus:

Option Compare Database
Option Explicit

Private Sub Form_AfterInsert()
 On Error GoTo err_proc
    Dim oOutlookApp As Outlook.Application
    Dim oOutlookTermin As Outlook.AppointmentItem
    ' Recordset-Objekt deklarieren
    Dim rs As DAO.Recordset
                
    Set oOutlookApp = CreateObject("Outlook.Application")
    Set oOutlookTermin = oOutlookApp.CreateItem(olAppointmentItem)
    ' Recordset-Objekt initialisieren
    Set rs = CurrentDb.OpenRecordset("Select Projektname, Wiedervorlage, Laufzeitende, [Bearbeiter Justiziariat], [Aktenzeichen Justiziariat], Institut From Vertrag WHERE Wiedervorlage is not NULL")
    Do While Not rs.EOF
      If CDate(rs!Wiedervorlage) > CDate(Date) Then
      With oOutlookTermin
        .MeetingStatus = olMeeting
        .Recipients.Add ("e@mail")
        .Start = CDate(rs!Wiedervorlage) + CDate(#10:00:00 AM#)
        .Duration = 30
        .Subject = rs!Projektname
        .Body = "Der Vertrag endet am " & rs!Laufzeitende & vbCrLf & "Bearbeiter: " & rs![Bearbeiter Justiziariat] & vbCrLf & _"Aktenzeichen Justiziariat: " & rs![Aktenzeichen Justiziariat] & vbCrLf & "Institut: " & rs!Institut
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 5
        .Send
      End With
      End If
      rs.MoveNext
     Loop
end_proc:
    rs.Close
    Set oOutlookApp = Nothing
    Exit Sub
err_proc:
    'On Error Resume Next
    MsgBox Err.Description, , Err.Number
    Resume end_proc
End Sub

Nun würde ich gerne verstehen, warum das so ist und was ich machen kann, damit die im Posteingang landen.

Gruß

Jens