vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Top-Preis! AP-Access-Tools-CD Volume 1  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fragen & Antworten rund um sev-Komponenten
Re: sevDataGrid2 unter MSAccess: Abstürze? 
Autor: Axelander
Datum: 27.07.07 08:33
Hallo,
kein Problem, hier ist er: 

   With Me.F_Eingangsliste
      .LockUpdate True
      .Icons.Add LoadPicture(CurrentProject.Path & "\" & "mappe.ico")
 
      If Not rst.EOF Then
         .DataMode = Mode_Recordset
         .CreateClone = True
         Set .Recordset = rst
 
         ' ID
         ' Mappensymbol sichtbar im persönlichen Posteingang
         If Me.F_Postfach_Auswahl = conPEMappen Then
            .Columns(1).Visible = False
         Else
            .Columns(1).Visible = True
         End If
         .Columns(1).ColType = 512
         .Columns(1).Width = 250
 
         ' Eingangsart
         .Columns(2).Width = 700
 
         ' Eingang am
         .Columns(3).Width = 1600
 
         ' Anzahl Seiten
         .Columns(8).Width = 200
 
         ' Bei Terminvorlagen Termin sichtbar
         If Me.F_Postfach_Auswahl = conPETerminvorlagen Then
            .Columns(10).Width = 900
            .Columns(10).Visible = True
         Else
            .Columns(10).Visible = False
         End If
 
         ' Bemerkung
         .Columns(11).Width = 5000
 
         ' unsichtbare Felder
         .Columns(4).Visible = False
         .Columns(5).Visible = False
         .Columns(6).Visible = False
         .Columns(7).Visible = False
         .Columns(9).Visible = False
         .Columns(12).Visible = False
         .Columns(13).Visible = False
         .Columns(14).Visible = False
         .Columns(15).Visible = False
         .Columns(16).Visible = False
         .Columns(17).Visible = False
         .Columns(18).Visible = False
         .Columns(19).Visible = False
         .Columns(20).Visible = False
      Else
         Kein_Fax_vorhanden
      End If
 
      .AllowColumnSizing = True
      .LockUpdate False
      .Refresh
   End With
Gruß
Alex
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
sevDataGrid2 unter MSAccess: Abstürze?713Axelander26.07.07 16:22
Re: sevDataGrid2 unter MSAccess: Abstürze?521rsvisionmaster26.07.07 17:15
Re: sevDataGrid2 unter MSAccess: Abstürze?535Axelander27.07.07 08:33
Re: sevDataGrid2 unter MSAccess: Abstürze?607rsvisionmaster27.07.07 12:36
Re: sevDataGrid2 unter MSAccess: Abstürze?504Axelander27.07.07 12:44
Re: sevDataGrid2 unter MSAccess: Abstürze?482Axelander30.07.07 13:23

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel