emu5.com

Sorry

SHDSL HBGLB08902 1-1-14
statatm, testatm, pmatm

(nix drin grad)

archive.pst

std::vector<CComPtr<IEP_BaseDataObject> >::iterator it;
for(it=vecSubAssy2.begin();it != vecSubAssy2.end();it++)

13423272

玉橋さん

おはようございます。



添付、のメールが来ましたので、回答よろしくお願いします。



永井

L R6,UEPINSA
L R6,X'54'(,R6)
ST R6,PTR
USING MDSECT,R6

Public Function IsProjektExist(KundenKürzel As String, Projektnummer As Long) As Boolean
IsProjektExist = False
If Kundenprojekt_rst Is Nothing Then
On Error Resume Next
Set rst = CurrentDb.OpenRecordset("SELECT Projektnummer FROM Kundenprojekt_Tabelle IN '" & KD_Datenbank & "' " & _
"WHERE Kundenkürzel='" & KundenKürzel & "' AND Projektnummer=" & Projektnummer, , dbReadOnly)
If Err Then
MsgBox Err.Description, vbCritical, "Allgemein_Funktion: IsProjektExist"
Exit Function
End If

If rst.RecordCount > 0 Then IsProjektExist = True
rst.Close
Set rst = Nothing
Else
With Kundenprojekt_rst
.FindFirst "Kundenkürzel='" & KundenKürzel & "' AND Projektnummer=" & Projektnummer
If Not .NoMatch Then IsProjektExist = True
End With
End If
End Function

keko hat geschrieben:Public Function IsProjektExist(KundenKürzel As String, Projektnummer As Long) As Boolean
IsProjektExist = False
If Kundenprojekt_rst Is Nothing Then
On Error Resume Next
Set rst = CurrentDb.OpenRecordset("SELECT Projektnummer FROM Kundenprojekt_Tabelle IN '" & KD_Datenbank & "' " & _
"WHERE Kundenkürzel='" & KundenKürzel & "' AND Projektnummer=" & Projektnummer, , dbReadOnly)
If Err Then
MsgBox Err.Description, vbCritical, "Allgemein_Funktion: IsProjektExist"
Exit Function
End If

If rst.RecordCount > 0 Then IsProjektExist = True
rst.Close
Set rst = Nothing
Else
With Kundenprojekt_rst
.FindFirst "Kundenkürzel='" & KundenKürzel & "' AND Projektnummer=" & Projektnummer
If Not .NoMatch Then IsProjektExist = True
End With
End If
End Function

...dass sind genau die Fehlermeldungen aus der Mickey Mouse Welt, die ich am liebsten habe... und sicher kein Timestamp... und dann wird wie immer der Fehler nicht gefunden und man kommt dann zu uns, zum Host, wo noch richtig IT gemacht wird , und wir sollen '...mal booten...'

Das Fehlerhandling im alten VB ist eh eine Katastrophe. Im .NET geht das professionell.

Int. J. Sports Med., 18: 91,1997

"Besondere Bedingungen und Risikobeschreibungen für die Produkthaftpflichtversicherung von Industrie- und Handelsbetrieben"