Archief - [PROG]-[VB6.0] runtime error 91

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
s

swordfish

Legacy Member
Code: 
Private Sub Form_Load()
 Dim klanr1 As Integer
 Dim klanr2 As Integer

 With dtaklanten.Recordset
  klanr1 = !klanr
 End With
 
 With dtareservering.Recordset
  klanr2 = !klantnr
 End With
 
 With dtaklanten.Recordset
 .MoveFirst
  While Not .EOF
   If klanr1 = klanr2 Then
    lblnaam2.Caption = !klavnaam
   End If
  Wend
 End With
End Sub

Ik krijg dus een runtime 91 error: object variable or with block not set.
De bedoeling is om 2 databases(dtaklanten en dtareservering) aan elkaar te koppelen door een record die in beide databases voorkomt op te zoeken, maar ik krijg deze error. Help anyone,?
p

passero

Legacy Member
Euhm ik zie niet goed in wat dit moet den en die with blocken worden echt afgeraden + je gebruikt 2 with blocken die je niet nodig hebben.

Werk !klanr eigenlijk in VB? IK dacht dat dit eerder een java syntax of c++ syntax was?

Die error, op welke lijn krijg je die exact? Het is meestal een "null pointer exception" dus je hebt ergens een variabele die de waarde NULL heeft.
i

infeKted

Legacy Member
Code: 
Private Sub Form_Load()
 Dim klanr1 As Integer
 Dim klanr2 As Integer

 With dtaklanten.Recordset
  klanr1 = !klanr
 End With
 
 With dtareservering.Recordset
  klanr2 = !klan[B][COLOR="Red"]t[/COLOR][/B]nr
 End With
 
 With dtaklanten.Recordset
 .MoveFirst
  While Not .EOF
   If klanr1 = klanr2 Then
    lblnaam2.Caption = !klavnaam
   End If
  Wend
 End With
End Sub

Variabele fout?
p

passero

Legacy Member
das nie iets voor VB, tenzij er "Option explicit" staat maar dan krijg je een error dat de variabele niet is gedeclareerd en das geen runtime error dan, dacht ik.

Dim klanr1 As Integer
Dim klanr2 As Integer
Klik om te vergroten...

daar staat het ook zonder t dus denk niet dat het dat is
s

swordfish

Legacy Member
Ik heb ondertussen de oplossing al gevonden..
Toch bedankt!

Ziehier de oplossing:

Code: 
 dtareservering.Recordset.MoveFirst
 dtaklanten.Recordset.MoveFirst
 While dtareservering.Recordset!klantnr <> dtaklanten.Recordset!klanr
  dtaklanten.Recordset.MoveNext
 Wend
 lblnaam2.Caption = dtaklanten.Recordset!klaanaam & " " & dtaklanten.Recordset!klavnaam
 lblaankomst2.Caption = dtareservering.Recordset!aankomst
 lblvertrek2.Caption = dtareservering.Recordset!vertrek
 lblkanr2.Caption = dtareservering.Recordset!kamernr
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan