Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Nochmal TextBox
Autor: Boris Huemer
Datum: 19.03.02 11:27
das ist mein form_load event: ich dachte eigentlich, dass die 9. zeile das macht, aber anscheinend doch nicht *g* Private Sub Form_Load() Dim F As Integer Dim sDatum As String F = FreeFile If Dir$(App.Path & "datum.txt") <> "" Then F = FreeFile Open App.Path & "datum.txt" For Input As #F Line Input #F, sDatum txt_letzteberechnung.Text = sDatum Close #F End If txt_letzteberechnung.Text = picprogress.Visible = True frm_main.Visible = True Timer1.Enabled = True ' Status-Form anzeigen Dim Rs As Recordset Dim lngMax As Long Dim lngAkt As Long picprogress.Refresh picprogress.Refresh ShowProgress picprogress, 0, 0, 0 DoEvents lbl_datumzeit.Caption = Format(Now, dd, mm, yyyy) List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh lbl_datumzeit.Refresh counter_fertigung.Text = List_fertigung.ListCount counter_kaschierung.Text = List_Kaschierung.ListCount counter_hdwr.Text = List_hdwr.ListCount counter_fertigung.Refresh counter_kaschierung.Refresh counter_hdwr.Refresh MsgBox ("Die Datensätze werden jetzt eingelesen und einzelnen Gruppen zugeteilt." & vbCrLf & vbCrLf & "Dieser Vorgang kann BIS ZU 2 MINUTEN dauern!" & vbCrLf & vbCrLf & "Bei Problemen wenden sie sich bitte an Hr. Huemer Boris - IT / DW 62 / Boris.Huemer@aluplast.at"), vbOKOnly, ("Wichtige Information!!! Bitte lesen!!!") ' anbinden der Datenbank für Gruppe FERTIGUNG List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh Dim DB As Database ' deklaration für Database infobar.Text = "DATENSÄTZE WERDEN EINGELESEN.......BITTE WARTEN..........." Set DB = DBEngine.OpenDatabase("mdvexternkontinvKont_Inv.mdb") ' datenbankanbindung wird angezapft Set Rs4 = DB.OpenRecordset("SELECT artikel FROM a_fert") ' Informationen über die Abrfage werden deklariert List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh If Rs4.RecordCount > 0 Then ' Füllen der Listbox durch While Schleife ' Status-Form anzeigen List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh lbl_datumzeit.Caption = Format(Now, dd, mm, yyyy) lbl_datumzeit.Refresh counter_fertigung.Text = List_fertigung.ListCount counter_kaschierung.Text = List_Kaschierung.ListCount counter_hdwr.Text = List_hdwr.ListCount counter_fertigung.Refresh counter_kaschierung.Refresh counter_hdwr.Refresh List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh While Not Rs4.EOF List_fertigung.AddItem Rs4(0) Rs4.MoveNext ' Wechseln zum nächsten artikel Wend End If Rs4.Close List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh DB.Close Set DB = Nothing 'anbinden der Datenbank für gruppe KASCHIERUNG Dim DB1 As Database 'deklaration für Database Dim Rs1 As Recordset 'Deklaration für Recordset List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh Set DB1 = DBEngine.OpenDatabase("mdvexternkontinvKont_Inv.mdb") 'datenbankanbindung wird angezapft Set Rs14 = DB1.OpenRecordset("SELECT artikel FROM a_bekl") 'Informationen über die Abrfage werden deklariert If Rs14.RecordCount > 0 Then 'Füllen der Listbox durch While Schleife bis alle Artikel durchlaufen sind While Not Rs14.EOF List_Kaschierung.AddItem Rs14(0) List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh Rs14.MoveNext 'Wechseln zum nächsten artikel Wend End If Set DB = Nothing 'anbinden der Datenbank für gruppe HDWR Dim DB2 As Database 'deklaration für Database Dim Rs2 As Recordset 'Deklaration für Recordset Set DB2 = DBEngine.OpenDatabase("mdvexternkontinvKont_Inv.mdb") 'datenbankanbindung wird angezapft Set Rs24 = DB2.OpenRecordset("SELECT artikel FROM a_HDWR") 'Informationen über die Abrfage werden deklariert List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh If Rs24.RecordCount > 0 Then 'Füllen der Listbox durch While Schleife bis alle Artikel durchlaufen sind List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh lbl_datumzeit.Caption = Format(Now, dd, mm, yyyy) lbl_datumzeit.Refresh counter_fertigung.Text = List_fertigung.ListCount counter_kaschierung.Text = List_Kaschierung.ListCount counter_hdwr.Text = List_hdwr.ListCount counter_fertigung.Refresh counter_kaschierung.Refresh counter_hdwr.Refresh While Not Rs24.EOF List_hdwr.AddItem Rs24(0) Rs24.MoveNext 'Wechseln zum nächsten artikel Wend End If Rs24.Close DB2.Close Set DB2 = Nothing MsgBox ("Daten erfolgreich eingelesen!"), vbOKOnly, ("Success!") List_fertigung.Refresh List_Kaschierung.Refresh List_hdwr.Refresh 'festlegen der Startoptionen der CheckBox chk_fertigung.Enabled = True chk_kaschierung.Enabled = True chk_hdwr.Enabled = True chk_fertigung.Value = 1 chk_kaschierung.Value = 1 chk_hdwr.Value = 1 'festlegen der Startoptionen für die Anzahlen der Artikelberechnung anzahl_fertigung.Text = "10" anzahl_kaschierung.Text = "20" anzahl_hdwr.Text = "10" lbl_datumzeit.Caption = Format(Now, dd, mm, yyyy) lbl_datumzeit.Refresh counter_fertigung.Text = List_fertigung.ListCount counter_kaschierung.Text = List_Kaschierung.ListCount counter_hdwr.Text = List_hdwr.ListCount counter_fertigung.Refresh counter_kaschierung.Refresh counter_hdwr.Refresh 'maximale anzahl der artikelberechnung eingrenzen anzahl_fertigung.MaxLength = 3 anzahl_kaschierung.MaxLength = 3 anzahl_hdwr.MaxLength = 3 'ermitteln und erstmaliges ausgeben der Zeit und des Datums lbl_datumzeit.Caption = Format(Now, dd, mm, yyyy) 'eigenschaften für timer1 setzen Timer1.Interval = 100 Timer1.Enabled = True 'Pfad für Logfiles festlegen logfiles.Path = "Mdvexternkontinvlogs" lbl_datumzeit.Caption = Format(Now, dd, mm, yyyy) lbl_datumzeit.Refresh counter_result.Text = "0" If chk_fertigung.Value = 1 Then anzahl_fertigung.Enabled = True Else anzahl_fertigung.Enabled = False End If If chk_kaschierung.Value = 1 Then anzahl_kaschierung.Enabled = True Else anzahl_kaschierung.Enabled = False End If If chk_hdwr.Value = 1 Then anzahl_hdwr.Enabled = True Else anzahl_hdwr.Enabled = False End If If chk_fertigung.Value = 0 Then anzahl_fertigung.Enabled = False Else anzahl_fertigung.Enabled = True End If If chk_kaschierung.Value = 0 Then anzahl_kaschierung.Enabled = False Else anzahl_kaschierung.Enabled = True End If If chk_hdwr.Value = 0 Then anzahl_hdwr.Enabled = False Else anzahl_hdwr.Enabled = True End If txt_datum.Text = Format(Now, "dd.mm.yyyy") counter_fertigung.Text = List_fertigung.ListCount counter_kaschierung.Text = List_Kaschierung.ListCount counter_hdwr.Text = List_hdwr.ListCount btn_speichern.Enabled = False btn_drucken.Enabled = False btn_clear.Enabled = False löschen.Enabled = False drucken.Enabled = False speichern.Enabled = False infobar.Text = "Kontinuierliche Inventur 3.0 für aluplast Austria. (c) by Boris Huemer 2002" chk_fertigung.Enabled = True chk_kaschierung.Enabled = True chk_hdwr.Enabled = True anzahl_fertigung.Locked = False anzahl_kaschierung.Locked = False anzahl_hdwr.Locked = False txt_user.Text = "Programm - Administrator" infobar.Text = "" picprogress.Visible = False End Sub

Nochmal TextBox	54	Boris Huemer	19.03.02 11:06
Re: Nochmal TextBox	300	Dieter	19.03.02 11:10
Re: Nochmal TextBox	47	Boris Huemer	19.03.02 11:27
Na du bist gut	211	Dieter	19.03.02 11:30
Re: Na du bist gut	38	Boris Huemer	19.03.02 11:34
Re: Na du bist gut	213	Dieter	19.03.02 11:44
Kein Datum gelesen	37	Boris Huemer	19.03.02 12:48
Umgekehrt...	207	Dieter	19.03.02 13:09
hattest recht	32	Boris Huemer	19.03.02 13:16

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