Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Zeile einfärben im Recordset-Mode
Autor: melodoi
Datum: 02.07.07 10:42
Hallo Dieter, das mache ich direkt beim Laden der Form (Access2000). Hier der Code dazu: Dim db As DAO.Database Dim strSQL As String Dim I As Integer Set db = CurrentDb 'alle Positioen auf zu übertragen setzten strSQL = "UPDATE tbl_Import_MatSchein SET Checked=-1 WHERE Noetig>0 AND Selekt='" & GetIPAddress(4) & "'" db.execute strSQL, dbSeeChanges With griBuchen strSQL = "SELECT Checked, ET_Nr, Bezeichnung, Noetig, Lagerort, Preis_UPE, Teilegruppe, " _ & "Fabrikation & Warenart AS WA, Doppel FROM tbl_Import_MatSchein WHERE Noetig>0 AND Selekt='" _ & GetIPAddress(4) & "' ORDER BY ID_Import" Set rs = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges) ' autom. Neuzeichnen des DataGrids unterbinden .LockUpdate True .FilterMoveTAB = True ' Erweiterte Eigenschaften .AllowColumnClick = True .AllowColumnSizing = True .AllowDelete = True .AllowEdit = True .AllowMultiSelect = False .AllowColumnReorder = True .AutoSort = True .autoupdate = True .CheckBoxStyle = 2 ' XP-Style .ShowSortSymbols = True .ColumnHeadersVisible = True .ScrollBars = 4 .StartEditWith = 2 .Caption = "Aufzubuchende Positionen:" .CaptionFont.Name = "Tahoma" .CaptionFont.Bold = True .CaptionFont.Size = 10 .ColumnHeaderFont.Name = "Tahoma" .Font.Name = "Tahoma" .FooterFont.Name = "Tahoma" .FilterFont.Name = "Tahoma" ' Spalten hinzufügen (bei DB-Anbindung nicht unbedingt notwendig!) .ColumnAdd rs.Fields(0).Name, "Übernehmen", 1100, , , 2 ' TYPE_CHECKBOX .ColumnAdd rs.Fields(1).Name, "Teilenummer", 2000 .ColumnAdd rs.Fields(2).Name, "Bezeichnung", 2000 .ColumnAdd rs.Fields(3).Name, "Menge", 1500 .ColumnAdd rs.Fields(4).Name, "Lagerort", 2000 .ColumnAdd rs.Fields(5).Name, "Preis", 2000 .ColumnAdd rs.Fields(6).Name, "TG", 800, 2 .ColumnAdd rs.Fields(7).Name, "WA", 800, 2 .ColumnAdd rs.Fields(8).Name, "Doppel", 1100, , , 2 ' TYPE_CHECKBOX .Columns(1).LockEdit = False .Columns(2).LockEdit = True .Columns(3).LockEdit = True .Columns(4).LockEdit = True .Columns(5).LockEdit = True .Columns(6).LockEdit = True .Columns(7).LockEdit = True .Columns(8).LockEdit = True '.Columns(9).LockEdit = True ' Recordset zuweisen .CreateClone = True Set .Recordset = rs ' Wheelmaus-Unterstützung aktivieren .WheelMouse = True ' Neuzeichnen des DataGrids wieder aktivieren .LockUpdate False .Refresh .Row = 1 End With Gruß Sylvio

Zeile einfärben im Recordset-Mode	701	melodoi	30.06.07 10:11
Re: Zeile einfärben im Recordset-Mode	482	Dieter	30.06.07 10:13
Re: Zeile einfärben im Recordset-Mode	466	melodoi	01.07.07 10:06
Re: Zeile einfärben im Recordset-Mode	453	Dieter	02.07.07 07:43
Re: Zeile einfärben im Recordset-Mode	508	melodoi	02.07.07 10:42
Re: Zeile einfärben im Recordset-Mode	468	Dieter	02.07.07 11:09
Re: Zeile einfärben im Recordset-Mode	433	melodoi	02.07.07 11:50
Re: Zeile einfärben im Recordset-Mode	453	Dieter	02.07.07 12:44
Re: Zeile einfärben im Recordset-Mode	438	melodoi	02.07.07 13:24
Re: Zeile einfärben im Recordset-Mode	424	melodoi	02.07.07 10:47

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übersicht

Suchen