Huhu Leute,
mal wieder in ganz faszinierendes Problem:
Wir benutzen für Titel eine Combobox, in der der Benutzer sowohl Auswählen als auch selber einen Titel reinschreiben kann.
Zur Auswahl der vorhandenen Titel benutzen wir folgenden Code:
Naja so in der Art, paar Sachen weggelöst, weils Kommentare oder Versuche meinerseits waren.
Das Resultat ist im Anhang zu sehen. Des Weiteren erscheint der Fehler nur, wenn ich das Programm kompiliere, wenn ich das Programm vom Code aus starte, erscheint alles sauber.
mal wieder in ganz faszinierendes Problem:
Wir benutzen für Titel eine Combobox, in der der Benutzer sowohl Auswählen als auch selber einen Titel reinschreiben kann.
Zur Auswahl der vorhandenen Titel benutzen wir folgenden Code:
Code:
Private Sub txtTitle_GotFocus()
If TitleFlag = 1 Then
TitleFlag = TitleFlag + 1
Me.MousePointer = vbHourglass
WriteDBGView 1, App.EXEName
GQuery.dbsql.SQL = "Select distinct CTitle from Contact " & GRep.conn.NoLockString & " where not CTitle is null ORDER BY CTitle" 'MLHIDE
If GQuery.OpenQuery Then
Do While Not GQuery.EOF
txtTitle.AddItem GQuery.AsString("CTitle") 'MLHIDE
WriteDBGView GQuery.AsString("cTitle"), App.EXEName
GQuery.MoveNext
Loop
GQuery.CloseQuery
Me.MousePointer = vbNormal
Else
TitleFlag = TitleFlag + 1
End If
Exit Sub
Naja so in der Art, paar Sachen weggelöst, weils Kommentare oder Versuche meinerseits waren.
Das Resultat ist im Anhang zu sehen. Des Weiteren erscheint der Fehler nur, wenn ich das Programm kompiliere, wenn ich das Programm vom Code aus starte, erscheint alles sauber.