Opdatering i flere tabeller

Jeg har ikke den store erfaring med faneblade, men i nedenstående linie bruger du det reserverede ord Me. Me refererer altid til den aktuelle formular, og du bruger Me med reference til en form og derefter et felt. Prøv at nøjes med Me efterfulgt af et.

AL2 = Me![Medlem af anden loge]![Anden_ddfl_loge]

Prøv at rette denne:

If AL2 Is Null And MyString = "YES" Then

Til:

if isnull(AL2) and mystring = "YES" then

Det vile iøvrigt lette arbejdet ikke så lidt, hvis vi får at vide om du får fejl, og i givet fald hvilen.

Hej Mugs
tak for dit hurtige svar, men jeg får denne fejl:

Run-time error '438'
Object doesn't support this property or method.

Jeg er lidt i tvivl om hvad du mener med "Prøv at nøjes med Me efterfulgt af et.

Det andet har jeg rettet, men jeg kommer ikke så langt.

Hilsen
comic

Hej igen

Jeg rettede følgende:

AL2 = Me![Medlem af anden loge]![Anden_ddfl_loge] til

AL2 = Me!Anden_ddfl_loge] hvad er forskellen på dette?

If AL2 Is Null And MyString = "YES" Then

Til:

if isnull(AL2) and mystring = "YES" then

Det reserveredeord Me refererer altid til den aktuelle formular.


I stedet for Me kan du gå den lange vej ned i objekthierakiet:

[Forms]![formularnavn]![feltnavn]

hvor Forms er objektsamlingen og formularnavn er navnet på objektet i forms efterfulgt af feltnavnet.

Men denne går ikke:

AL2 = Me!Anden_ddfl_loge]

du har en ] for meget. Prøv:

AL2 = Me.[Anden_ddfl_loge]

Kunne vi ikke lige få løsningen skitseret? Så andre kan lære af det.

Hej Her er hele min kode der virker


Private Sub Form_Close()
Dim dbs As Database
Dim Msg, Style, Title, Help, Ctxt, Response, MyString, AL2

Msg = "Er opdateringen korrekt?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Opdatering"
Help = "DEMO.HLP"
Ctxt = 1000

Response = MsgBox(Msg, Style, Title, Help, Ctxt)
  If Response = vbYes Then
  MyString = "Yes"
  AL2 = Me![Anden_ddfl_loge]
  If IsNull(AL2) And MyString = "YES" Then
            DoCmd.RunSQL "Insert Into medlemdata (DDFL_NR,LOGENR, DataRetdato, DataRetInit)" & _
                      "VALUES(" & DDFL_nr & "," & LogeNr & ",NOW(), Currentuser())"
  Else
    DoCmd.RunSQL "Insert Into medlemdata (DDFL_NR,LOGENR, DataRetdato, DataRetInit, anden_ddfl_loge)" & _
                  "VALUES(" & DDFL_nr & "," & LogeNr & ",NOW(),Currentuser()," & [Anden_ddfl_loge] & ")"
  End If

  If MyString = "No" Then
DoCmd.RunCommand acCmdUndo


End If
End If



Beep

End Sub

Var du ikke lidt hurtig til at tage dine egne point?