[VB]This action was cancelled by an asociated obj

[Verwijderd]

Probleemke met de code van ne maat van mij, ik vind het ook niet. Hij geeft de error uit de topic helemaal vanonder bij .addnew. een pintje voor diegene die het vind!

Private Sub NIEUW_Click()
NIEUW.Enabled = False
insch.Enabled = True
ID.Text = Data1.Recordset.RecordCount + 1
URSID.Text = ""
soort.Text = ""
merk.Text = ""
eigenaar.Text = ""
os.Text = ""
locatie.Text = ""
leverancier.Text = ""
GEBRUIKER.Text = ""
TYP.Text = ""
SERIE.Text = ""
HD.Text = ""
GEHEUGEN.Text = ""
PROCES.Text = ""
SERVICE.Text = ""
FCTDATE.Text = ""
FCTNR.Text = ""
PRIJS.Text = ""
End Sub


Private Sub insch_Click()
If soort.Text <> "" And merk.Text <> "" And locatie.Text <> "" And os.Text <> "" And eigenaar.Text <> "" And leverancier.Text <> "" Then
insch.Enabled = False
If eigenaar.Text = "URS NV" And soort.Text = "desktop" Then
URSID.Text = "URS-PC" + Str(Data2.Recordset.RecordCount + 47)
End If
If eigenaar.Text = "URS NV" And soort.Text = "laptop" Then
URSID.Text = "URS-LT" + Str(2 + Data3.Recordset.RecordCount)
End If
If eigenaar.Text = "URS NV" And soort.Text = "server" Then
URSID.Text = "NTANTW" + Str(13 + Data4.Recordset.RecordCount)
End If
If eigenaar.Text = "URS NL" And soort.Text = "desktop" Then
URSID.Text = "URSNL-PC" + Str(1 + Data5.Recordset.RecordCount)
End If
If eigenaar.Text = "URS NL" And soort.Text = "laptop" Then
URSID.Text = "URSNL-LT" + Str(1 + Data6.Recordset.RecordCount)
End If
If eigenaar.Text = "URS NL" And soort.Text = "server" Then
URSID.Text = "NTTERN" + Str(2 + Data7.Recordset.RecordCount)
End If
If eigenaar.Text = "BOFORT" And soort.Text = "desktop" Then
URSID.Text = "BOF-PC" + Str(1 + Data8.Recordset.RecordCount)
End If
If eigenaar.Text = "BOFORT" And soort.Text = "laptop" Then
URSID.Text = "BOF-LT" + Str(1 + Data9.Recordset.RecordCount)
End If
If eigenaar.Text = "BOFORT" And soort.Text = "server" Then
URSID.Text = "BOF-SER" + Str(1 + Data10.Recordset.RecordCount)
End If
Data1.Recordset.AddNew
NIEUW.Enabled = True
Else
MsgBox ("Vul eerst alle verplichte velden in!!!")
End If
End Sub

[baskabas]

Laten we eerst die code eens opschonen... (kan ook anders.. maargoed, 'kep toch niks beters te doen...)

code:

If soort.Text <> "" And _
        merk.Text <> "" And _
     locatie.Text <> "" And _
        os.Text <> "" And _
    eigenaar.Text <> "" And _
   leverancier.Text <> "" Then
   
  insch.Enabled = False

  With URSID
    Select Case eigenaar.Text
    Case "URS NV"
      Select Case soort.Text
        Case "desktop"
        .Text = "URS-PC" + Str(Data2.Recordset.RecordCount + 47)
        Case "laptop"
        .Text = "URS-LT" + Str(2 + Data3.Recordset.RecordCount)
        Case "server"
        .Text = "NTANTW" + Str(13 + Data4.Recordset.RecordCount)
      End Select
    Case "URS NL"
      Select Case soort.Text
        Case "desktop"
        .Text = "URSNL-PC" + Str(1 + Data5.Recordset.RecordCount)
        Case "laptop"
        .Text = "URSNL-LT" + Str(1 + Data6.Recordset.RecordCount)
        Case "server"
        .Text = "NTTERN" + Str(2 + Data7.Recordset.RecordCount)
      End Select
    Case "BOFORT"
      Select Case soort.Text
        Case "desktop"
        .Text = "BOF-PC" + Str(1 + Data8.Recordset.RecordCount)
        Case "laptop"
        .Text = "BOF-LT" + Str(1 + Data9.Recordset.RecordCount)
        Case "server"
        .Text = "BOF-SER" + Str(1 + Data10.Recordset.RecordCount)
      End Select
    End Select
  End With

  Data1.Recordset.AddNew
  NIEUW.Enabled = True
  
Else

  MsgBox ("Vul eerst alle verplichte velden in!!!")
  
End If

Vraagje: hoe zit het met die Data1...Data9 objecten? Wat zijn dat voor objecten?

'khoop niet dat je met een Data Environment werkt die je op een formulier gesleept hebt...

[Verwijderd]

Zoals ik al zei, tis niet mijn programma dus ik weet er de details niet van. Maar het zijn waarschijnlijk wel tabellen in een acces database gekoppeld aan het programma via een dataobject ja.

[baskabas]

Ow wacht Access... dat veranderd de zaak... ik dacht dat het écht VB was (topic title had dus [VBA/Access] moeten zijn... maargoed) ... daar weet ik helaas minder van...

Ten minste ... die Data objecten zeggen me niets...
kun je even nagaan bij die maat van je wat dat precies voor objecten zijn... hoe hij ze declareerd ofzo? Iig zijn wat meer details gewenst!

[Verwijderd]

Mja, veel weet ik er niet van, het is niet mijn programma en ik vind het probleem ook niet. Een uitdaging kan je het wel noemen.

http://users.pandora.be/sliver/tim/prog.ace

hier zal je alle details wel vinden

Alvast bedankt

[baskabas]

'k krijg 'n error bij het openen van de Ace...

[Verwijderd]

shit, hier werkt hij hoor, open eens met winrar ofzo?

[baskabas]

ROFL!! Dat doe ik ook... ongeldige db...

Zie fout: _{(deze regel 10x)}

code:

!   E:\temp\prog.ace: Unknown method in Inventaris.mdb

[Verwijderd]

Open dan met winace eh

[baskabas]

heb ik niet... tja... kun je'm niet zippen of rarren dan?

edit: sorry dude... 'kga echt slapen... (morgen examen...)