PDA

Vollständige Version anzeigen : Feld neu füllen über .Edit - is nich ;-(


paulhansen
20.09.2001, 08:43
Unzulässiger oder unzulässiger Verweis ... aber wo ??? und wie is besser ???

Private Function FehlerFeldBesetzt(Index As Integer)
Dim a As Integer
Dim Criteria As String
Beep
a = MsgBox("Möchten Sie diesen Termin NEU vergeben und den aktuellen Termin LÖSCHEN ?", 4, "Dieser Termin ist vergeben:")
If a = 6 Then
Criteria = "Ein_Datum = " & Format(Tagesdatum, "\#mm\/dd\/yyyy\#") & ""
Form_Init
mRST.FindFirst Criteria
.Edit
mRST("KT" & Index) = CI_Nr.Column(2)
.Update
t(Index).Caption = mRST("KT" & Index)
End If
End Function

mRST ist mein Recordset, meine Tabelle besteht aus dem Schlüsselfeld "Ein_Datum" und einzelnen KT1,KT2.... KT162 Feldern, die ich hier neu füllen möchte !!!
Wieso bekomme ich ne Fehlermedlung bei ".Edit" und was is besser ???

Hoffe jemand weis RAT ;)

P.

Kurt aus Kienitz
20.09.2001, 09:13
Hallo,

Muß das nicht so aussehen ?


With mRST
.FindFisrt Criteria
.Edit
End With

HTH

paulhansen
20.09.2001, 09:39
Super Dank an Kurt :)

Du hattest natürlich RECHT 8)

Somit lautet der richtige (funktionierende Code):

Private Function FehlerFeldBesetzt(Index As Integer)
Dim a As Integer
Dim Criteria As String
Beep
a = MsgBox("Möchten Sie diesen Termin NEU vergeben und den aktuellen Termin LÖSCHEN ?", 4, "Dieser Termin ist vergeben:")
If a = 6 Then
Criteria = "Ein_Datum = " & Format(Tagesdatum, "\#mm\/dd\/yyyy\#") & ""
Form_Init
With mRST
.FindFirst Criteria
.Edit
mRST("KT" & Index) = Me!CI_Nr.Column(2)
t(Index).Caption = mRST("KT" & Index)
.Update
End With
End If
End Function

Nochmals tausend Dank
P. :) ;)