Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Problem mit Sub
Autor: mitsch
Datum: 26.06.07 09:49
Hallo Stefan, versuche folgendes: Public Function sperre_bearb_ein(sql As String) as boolean 'An die Sub wird die SQL Anweisung zum abfragen der Kommission übergeben. Set tabelle = db.OpenRecordset(sql) sperre_bearb_ein=False If tabelle.RecordCount > 0 And Not tabelle.BOF Then tabelle.MoveFirst If tabelle.RecordCount = 1 Then 'Durchführen der Sperre tabelle.Edit tabelle("sperre") = 1 tabelle("sperr_user") = v_cuser(1) 'Auslesen der Workstation: tabelle("sperr_workstation") = GetComputerName 'Nun ist die Kommission gesperrt der Username eingetragen und der Computername gesetzt tabelle.update tabelle.Close Set tabelle = Nothing 'Somit fertig... Else MsgBox "Die Kommission konnte nicht eindeutig ermittelt werden!" & vbCrLf & "Die Bearbeitungssperre wurde nicht gesetzt!", vbInformation, "Hinweis" sperre_bearb_ein= True End If End Sub Aufruf: IF sperre_bearb_ein ("SELECT projektnummer,sperre,sperr_user,sperr_workstation FROM aa_allgemein WHERE projektnummer like '" + list_ergebnis.SelectedItem.Tag + "'") Then Exit Sub Gruß

Problem mit Sub	790	Kai Freeman	26.06.07 09:30
Re: Problem mit Sub	571	mitsch	26.06.07 09:49
Re: Problem mit Sub	510	Kai Freeman	26.06.07 10:08

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