|
| |
Visual-Basic Einsteiger| Re: irgend etwas stimmt im code nicht.... | |  | | Autor: 13uro | | Datum: 14.11.05 00:56 |
| Hi Piero
Du hast da einfach immer Anweisung an Anweisung hintereinander
geschrieben, das geht so natürlich nicht. Wenn schon ( ist aber
ziemlich unübersichtlich) dann must du die einzelnen Anweisungen durch
Semikolon ( ; ) trennen.
Desweiteren hast du Codeabschnitte die in gar keiner Prozedur stehen ??
Ebenso hast du Prozeduren definiert in denen nichts ?? gemacht wird??
Ich habe mal versucht den Code etwas zu ordnen, dann sieht man diese
Fehler sofort. Unten mal ein Auszug:
| Zitat: | |
Option Explicit Dim wCount As Integer
Dim wCHeight As Double
Dim wCountScan As Integer
Dim wContON() As Double
Dim wContSN() As Double
Dim wPos As Integer
Dim wContNR As Double
Dim wCpCont As Boolean
Dim wUser As Double
Private Sub FwOr_Insfield(Index As Integer, Colonna As Integer, Testo As String, width As Integer)
End Sub Private Sub ILoadFW()
With FwOr(0)
.ConnessioneADO = CnPbl
.Tabella = "PBL_Access" .CampoText1 "ACPassword", numerico, True .CampoText2 "ACSurname", Stringa, False End Sub Private Sub LoadForm()
Dim i As Integer
On Error GoTo err
For i = 1 To wCount
LOAD FwTxtP(i)
FwTxtP(i).Top = FwTxtP(i - 1).Top + 10 + FwTxtP(i).Height
FwTxtP(i).Visible = True LOAD Fwtxt(i)
Fwtxt(i).Top = Fwtxt(i - 1).Top + 10 + Fwtxt(i).Height
Fwtxt(i).Visible = True Next i
wCountScan = 1
Exit Sub err:
Unload Me
End Sub Private Sub FwOr_ValCampiAgg(Index As Integer, Name As String, Valore As String)
If Name = "ACCode" Then wUser = Valore
End If End Sub | |
Hier den geordneten Code:
Option Explicit
Dim wCount As Integer
Dim wCHeight As Double
Dim wCountScan As Integer
Dim wContON() As Double
Dim wContSN() As Double
Dim wPos As Integer
Dim wContNR As Double
Dim wCpCont As Boolean
Dim wUser As Double
Private Sub FwOr_Insfield(Index As Integer, Colonna As Integer, Testo As _
String, width As Integer)
'Was geschieht hier ???????????????????????????????
End Sub
Private Sub ILoadFW() 'Was geschieht hier ???????????????????????????????
End Sub
'In welcher Prozedur ist der folgende Code??????????????????????
With FwOr(0)
.ConnessioneADO = CnPbl
.Tabella = "PBL_Access"
.CampoText1 "ACPassword", numerico, True
.CampoText2 "ACSurname", Stringa, False
'Wo ist das End With ?????????????
End Sub
Private Sub LoadForm()
Dim i As Integer
On Error GoTo err
For i = 1 To wCount
Load FwTxtP(i)
FwTxtP(i).Top = FwTxtP(i - 1).Top + 10 + FwTxtP(i).Height
FwTxtP(i).Visible = True
Load Fwtxt(i)
Fwtxt(i).Top = Fwtxt(i - 1).Top + 10 + Fwtxt(i).Height
Fwtxt(i).Visible = True
Next i
wCountScan = 1
Exit Sub
err:
Unload Me
End Sub
Private Sub FwOr_ValCampiAgg(Index As Integer, Name As String, Valore As String)
If Name = "ACCode" Then wUser = Valore
End If
End SubUli
Wissen ist Macht; nichts wissen macht auch nichts! | |
 | 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 |
 |
|
vb@rchiv CD Vol.6 vb@rchiv  Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion
Entwickler-Vollversionen
u.v.m.Jetzt zugreifen Tipp des Monats TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere Infos
|
| |
|
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
|
|
November 2025
Sie sind aktuell nicht angemeldet.
