Just nu i M3-nätverket
Jump to content

Utkastad utan felmeddelande


danne_eriksson

Recommended Posts

danne_eriksson

Tjena.

 

Jag har ett problem som gör mig gråhårig.

 

Jag har ett projekt där jag bara använder komponenten -Microsoft Windows Common Controls 6.0 (SP6)-.

 

Men nu till själva problemet. På företaget där programmet används är det bara vissa datorer som det rullar klockrent på och ett par stycken blir man utkastad utan att kunna fånga ett felmeddelande, så i princip så har jag försökt testa mig fram till problemet. Det är bara när man laddar ett visst formulär som man blir utkastad.

 

Jag har tagit bort all underliggande kod till formuläret så det är inget kodfel. Jag misstänker att det är i common controls som problemet ligger. Men vad som verkligen gör mig gråhårig är att alla datorerna har samma version av MSCOMCTL.OCX.

 

Använder sig MSCOMCTL.OCX sig av några andra dll eller ocx?

 

 

Om det är någon som har en idé så kläck den gärna på mig.

 

//Danne

 

 

Link to comment
Share on other sites

För att få hjälp, så behövs det lite mer information.

Vilket Operativ System fungerar det på/Inte fungerar ?

Kan du visa lite kod ?

Har du någon felhantering ?

 

--- Vaios ---

 

 

Link to comment
Share on other sites

danne_eriksson

Alla maskinerna på företaget har XP Pro SP2, men 2 av maskinerna som köptes in samtidigt för ett år sedan och är av fabrikatet Hewlett Packard vill inte öppna det specifika formuläret (Form1) i programmet utan stänger ner och visar det traditionella XP felmeddelandet om man vill skicka felet till Microsoft.

 

Koden för att öppna formuläret (Form1):

 

 

Me.MousePointer = vbHourglass
Module1.LockWindow Me.hwnd, [color="#0000ff"]True[/color]

Module1.medlem = [GRÅ]""[/GRÅ]
Load Form1
[color="#0000ff"]Dim[/color] connect, RecSet, Addera
[color="#0000ff"]Dim[/color] hogsta
[color="#0000ff"]Set[/color] connect = [color="#0000ff"]CreateObject[/color]([GRÅ]"ADODB.Connection"[/GRÅ])
connect.Open [GRÅ]"driver={Microsoft Access Driver (*.mdb)};dbq="[/GRÅ] & Module1.FilePath
[color="#0000ff"]Set[/color] RecSet = [color="#0000ff"]CreateObject[/color]([GRÅ]"ADODB.Recordset"[/GRÅ])
hogsta = 0
Addera = [GRÅ]"SELECT * FROM Babysim Where Objekt = "[/GRÅ] & Module1.objekt & [GRÅ]" Order By Medlemsnr Asc"[/GRÅ]
RecSet.Open Addera, connect, adOpenStatic, adLockOptimistic
[color="#0000ff"]Do[/color] Until RecSet.EOF
hogsta = RecSet([GRÅ]"Medlemsnr"[/GRÅ])
RecSet.MoveNext
[color="#0000ff"]Loop[/color]
RecSet.Close
connect.Close
[color="#0000ff"]Set[/color] RecSet = [color="#0000ff"]Nothing[/color]
[color="#0000ff"]Set[/color] connect = [color="#0000ff"]Nothing[/color]

Form1.TabStrip3.Tabs.Clear

Form1.Medlemsnr.Text = hogsta + 1
Form1.Arkiv_skrivut.Enabled = [color="#0000ff"]False[/color]
Form1.Arkiv_förhandsgranska.Enabled = [color="#0000ff"]False[/color]
Form1.Icon = Form1.ImageList2.ListImages.Item(3).Picture

Form1.Show vbModal, Me

Module1.LockWindow Me.hwnd, [color="#0000ff"]False[/color]
Me.MousePointer = vbDefault

 

 

I Form1 har jag tagit bort all kod för att vara säker på att det inte orsakar nedstängningen.

Module1.Lockwindow är inte felet för det fungerar på andra formulär.

 

Jag blir bara mer och mer förvirrad, det här övergår mina kunskaper.

 

//Danne

 

 

 

Link to comment
Share on other sites

Har du felhantering inlagd i formuläret?

 

On Error GoTo ErrorHandler:

 

exit sub

ErrorHandler:

MsgBox Err.Description & " " & Err.Number

 

Vad får du för felmeddelande ?

Kommer du så långt ?

 

Optimeringstips:

Ändra sqlkoden Till : SELECT MAX(Medlemsnr) from .....

 

--- Vaios ---

 

Link to comment
Share on other sites

danne_eriksson

Tjena.

 

Är tillbaka vid datorn igen.

 

Jag får Felnumret: 50003 och felmeddelandet: Unexpected Error.

 

Vart kan jag hitta felnumret? Har sökt på Microsoft utan resultat.

 

//Danne

 

Link to comment
Share on other sites

Du ger inte så mycket information om vad du har för program som ger felet men om du söker med http://www.google.se/search?hl=sv&q=50003+Unexpected+Error&btnG=Google-s%C3%B6kning&meta= får du kanske några ledtrådar.

 

 

[EDIT] Ursäkta, jag missade att det fanns fler inlägg tidigare i tråden.

När jag snabbt skummade svaren på google-sökningen fick jag uppfattningen att det var någon komonent som inte var korrekt installerad vilket även du var inne på.

[inlägget ändrat 2005-02-21 20:04:22 av Erki]

Link to comment
Share on other sites

Du kan prova att installera senaste visual basic service pack

 

http://www.microsoft.com/downloads/details.aspx?familyid=7B9BA261-7A9C-43E7-9117-F673077FFB3C&displaylang=en

 

Det kan vara MSCOMCTL.OCX som inte är i rätt version(dvs äldre, än vad som fanns på maskinen som du kompilerar ditt program på), eller en fil som används av den.

 

Det räcker med att något program har lagt dit en gammal fil för

att det ska bli ett sådant fel.

 

--- Vaios ---

 

 

 

Link to comment
Share on other sites

danne_eriksson

Äntligen löste det sig.

 

 

Jag fick bearbeta formuläret som strulade och felkolla precis allt. Det absolut sista som var kvar på formuläret tillslut var ikonen i fönsterlisten. När den var bortplockad så gick det att starta upp formuläret.

 

Mycket mystiskt med att ikonen i fönsterlisten skulle strula till det så mycket.

 

Men nu kör jag programmet utan några 50003 felmeddelanden. Skönt men konstigt med vb6.

 

 

Tack för hjälpen i allafall.

 

 

//danne

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...