Sign in to follow this  
Followers 0
MehrlTCG

Contracting a Coder

18 posts in this topic

Good Morning,

We have lost our staff member who was writing some AutoIt code for us. We do have some changes we need to make to the code, and we would like to solicit someone to help.

Would it be best to post the errors I am getting and have the community help me, or is it possible to hire help?

Thank you!

Share this post


Link to post
Share on other sites



MehrlTCG,

Welcome to the AutoIt forum. ;)

We do not accept requests for paid work - but as a community we are very helpful. :)

Please post the code and let us know what the the errors are - put the code between [autoit] and [/autoit] and the errors between [code] and [/code] tags so they display nicely - and we will see what we can do. :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Thank you very much!

Share this post


Link to post
Share on other sites

As a friendly advice make sure any code you post doesn't have any sensitive information in it like passwords. We are happy to help but then again we have a naughty person or two that doesn't play nice and we have to use paddles or whips on them.

Share this post


Link to post
Share on other sites

You can use http://www.vworker.com/ . There are several good autoit coders there and you may pay them to do the changes.

Share this post


Link to post
Share on other sites

If you have some experience with AutoIt, why not post a snippet (that is troubling you of course)? In this way you can secure your code and have the problem solved.


----------------------------------------

:bye: Hey there, was I helpful?

----------------------------------------

My Current OS: Win8 PRO (64-bit); Current AutoIt Version: v3.3.8.1

Share this post


Link to post
Share on other sites

#7 ·  Posted (edited)

Paddles and whips. Some folks are into that..

Here is the code

<snip>

Code too large for a[autoit] tags - see shortened version in post #15

The error:

This started when the uninformed, uneducated newb (me) tried to increase the # of allowed characters in a field from 500 to 1000.

doesnt show in the code. Only shows when I run the program.

The error I encounter:

[Microsoft][ODBC][ SQL Server Driver][sql Server] Unclosed quotation mark before the character string '1');".

click ok and

Error 1040 with a 0

Now, logically, I went looking for my open SQL quotation mark-- because that's what it is telling me.

I cant find it with a flashlight and a google map.

So humbly, I turn to you.

Thank you for the warm welcome!

Edited by Melba23
Removed code!

Share this post


Link to post
Share on other sites

#8 ·  Posted (edited)

holy missing autoit tag batman! you forgot the brackets in your closing /autoit tag.

Edited by mechaflash213

Spoiler

“Hello, ladies, look at your man, now back to me, now back at your man, now back to me. Sadly, he isn’t me, but if he stopped using ladies scented body wash and switched to Old Spice, he could smell like he’s me. Look down, back up, where are you? You’re on a boat with the man your man could smell like. What’s in your hand, back at me. I have it, it’s an oyster with two tickets to that thing you love. Look again, the tickets are now diamonds. Anything is possible when your man smells like Old Spice and not a lady. I’m on a horse.”

 

Share this post


Link to post
Share on other sites

#9 ·  Posted (edited)

When I added [autoit][/autoit] it looked like a huge mash of text. I won't even pretend to be good at this.

Edited by MehrlTCG

Share this post


Link to post
Share on other sites

#10 ·  Posted (edited)

please put brackets around your closing autoit tag...twice now.

*And just click edit rather than a separate post with the same content.

Edited by boththose

,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-.
|(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/
(_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_)
| | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) (
| | | | |)| | \ / | | | | | |)| | `--. | |) \ | |
`-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_|
'-' '-' (__) (__) (_) (__)

Share this post


Link to post
Share on other sites

he can't edit until he got 5+ posts.


[font="verdana, geneva, sans-serif"] [/font]

Share this post


Link to post
Share on other sites

He did use the code tags correctly, problem is that once you exceed a particular amount of lines, they end up not working.


Things that I've done..

Icon Resource Editor: icon resource editor 

AutoIt Piano: a piano

AutoIt Unlocker: unlocks files when you want to delete them

Colorful tooltips: a wrapper for the tool tips UDF

Rouge GoogleBot: a full screen animation

ASciTE text editor: a text editor written in autoit

Warning: Posts by this user are subject to change or may disappear without notice.

Share this post


Link to post
Share on other sites

please put brackets around your closing autoit tag...twice now.

*And just click edit rather than a separate post with the same content.

He can't edit the post, he's only got 4 postings as of this time, he needs 5 or more to be able to edit.

If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.
Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude
How to ask questions the smart way!

I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.

Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator

Share this post


Link to post
Share on other sites

Ok so this will be my 5th post and I should be able to edit.

I can shorten the code to the "first tab" but I worry that I will leave out something relevant to troubleshooting.

The newb is strong in this one.

Share this post


Link to post
Share on other sites

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Z:PublicWMS_Skinsimgicon_tcg.ico
#AutoIt3Wrapper_outfile=EHSCapa2.0.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <OwnTab.au3>
#include <Date.au3>
#include <GuiMonthCal.au3>
#include <_sql.au3>
#include <OutlookEX.au3>
#include <GUIListViewEX.au3>
#include <GuiComboBox.au3>
#include <GuiButton.au3>
#include "GUIScrollbars_Ex.au3"
#include <WinAPI.au3>
#region Global
Global $childGUI[5]
Global $iUSERNAMEINI = "Z:PublicWMS_Skinslibraryconfig.ini"
Global $ADMIN = 4
Global $fontArray = IniReadSection($iUSERNAMEINI, "FontSettings")
Global $txtfont = $fontArray[1][1]
Global $txtsize = $fontArray[2][1]
Global $txtweight = $fontArray[3][1]
Global $bkcolor = $fontArray[5][1]
Global $txtcolor = $fontArray[6][1]
Global $color2 = $fontArray[7][1]
Global $color3 = $fontArray[8][1]
Global $color4 = $fontArray[9][1]
Global $TICKETSTATUS = 1
Global $sDate = @YEAR & "/" & @MON & "/" & @MDAY
Global $aCtrlTab, $ehsGUI, $settingsfont, $x, $y
Global $sort = 1
Global $iDROPDOWNSINI = "Z:PublicWMS_SkinslibraryDropDowns.ini"
Global $iCOMMONDROPDOWN = IniReadSection($iDROPDOWNSINI, "common")
Global $iEHSDROPDOWN = IniReadSection($iDROPDOWNSINI, "ehs")
Global $CapaEmailList = "Z:PublicWMS_Skinslibrarycapaemaillist.ini"
Global $oADODB, $TICKETNUMBER, $ehsArray, $calGUI, $Btn_calander, $Btn_Activate, $Cal_pDate, $Input_date, $Input_ActionDate, _
$Input_DefineDate, $Input_VerificationDate, $Combo_facility, $Lbl_facility, $Combo_department, $Lbl_department, $Input_PersonReporting, _
$Lbl_PersonReporting, $Input_PersonReportingEmail, $Lbl_PersonReportingEmail, $Combo_Methodology, $Lbl_Methodology, $Combo_Discovery, _
$Lbl_Discovery, $Combo_Findings, $Lbl_Findings, $Input_PersonResponsible, $Lbl_PersonResponsible, $Input_PersonResponsibleEmail, _
$Lbl_PersonResponsibleEmail, $Edit_DescriptionOfNonconformance, $Lbl_DescriptionOfNonconformance, $SQL_columns, $SQL_values, _
$Lbl_ContainmentAction, $Lbl_ActionDate, $Edit_ContainmentAction, $Lbl_DefineBy, $Lbl_Why1, $Edit_Why1, $Btn_Answer1, _
$Edit_Answer1, $DescriptionOfNonconformance, $Btn_Edit, $fileitemreport, $fileitemView, $fileitemupdate, $fileitemdisable, $exititem, _
$settingsadminS, $settingsadminE, $PASSWORDView, $LvTickets, $Btn_Close, $Btn_ReissueTicket, $Input_ticket, $STAGE, $Edit_Why2, $Edit_Answer2, _
$Edit_Why3, $Edit_Answer3, $Edit_Why4, $Edit_Answer4, $Edit_Why5, $Edit_Answer5, $Edit_CorrectiveAction, $Edit_VerificationOfEffectiveness, _
$Lbl_Why2, $Btn_Answer2, $Lbl_Why3, $Btn_Answer3, $Lbl_Why4, $Btn_Answer4, $Lbl_Why5, $Lbl_CorrectiveAction, _
$Lbl_VerificationDate, $Lbl_VerificationOfEffectiveness, $PASSWORDedit, $Lbl_ticket, $Lbl_date, $WHYPHASE, _
$CBox_Root3, $CBox_Root4, $SQL_statement, $Alpha, $Answer1, $Answer2, $Answer3, $Answer4, $Answer5, $Lbl_Root5, _
$WHYPHASE, $ROOT3, $ROOT4, $ROOT5, $Methodology, $Discovery, $Findings, $ContainmentAction, $facility, $GUISTATUS, $CorrectiveAction, _
$VerificationOfEffectiveness, $REQFIELD, $BEGINdate, $department, $PersonReporting, $PersonReportingEmail, $PersonResponsible, _
$PersonResponsibleEmail, $Lbl_T2, $settingsadminOMC, $MailConsole, $LvMail, $Btn_MailConsole_Resend, $Edit_ReissueConsole_Reissue, _
$Btn_ReissueConsole_Reissue, $ActionDate, $DefinedBy, $VerificationDate, $Lbl_Reticket, $Input_Reticket, $LvAdmin, _
$Btn_Admin_Beginning, $Btn_Admin_Back, $Btn_Admin_Forward, $Btn_Admin_End, $fileitemattachment, $FacilityCAPAFolder
#endregion Global
StartSQLconnection()
ehsGUI($ADMIN)
Func StartSQLconnection()
_SQL_RegisterErrorHandler()
$oADODB = _SQL_Startup()
_SQL_Connect(-1, "redacted", "redacted", "redacted", "redacted")
EndFunc ;==>StartSQLconnection
Func ehsGUI($aADMIN)
Local $TN
If $x = "" Then $x = -1
If $y = "" Then $y = -1
Local $MAXID, $iRows, $iColumns
Local $fDate = _DateTimeFormat($sDate, 2)
Local $30DAY = _DateTimeFormat(_DateAdd('D', 30, $sDate), 2)
Local $90DAY = _DateTimeFormat(_DateAdd('D', 90, $sDate), 2)
Local $aTabText[3] = [" Nonconformance ", " Root Cause ", " Corrective Action "]
_SQL_GetTable2D(-1, "SELECT MAX(ID) FROM EHS_CorrectiveAction;", $MAXID, $iRows, $iColumns)
$TICKETNUMBER = $MAXID[1][0] + 1
#region $ehsGUI
#region $filemenu
$ehsGUI = GUICreate("redacted | CAPA", 1000, 700, $x, $y)
GUISetBkColor($bkcolor)
GUISetIcon("Z:PublicWMS_Skinsimgicon_tcg.ico")
$filemenu = GUICtrlCreateMenu("&File")
$fileitemreport = GUICtrlCreateMenuItem("&Create a new ticket", $filemenu)
$fileitemView = GUICtrlCreateMenuItem("&View an active ticket", $filemenu)
$fileitemupdate = GUICtrlCreateMenuItem("&Update an active ticket", $filemenu)
$fileitemattachment = GUICtrlCreateMenuItem("&Attach a file", $filemenu)
$exititem = GUICtrlCreateMenuItem("&Exit", $filemenu)
$settingsmenu = GUICtrlCreateMenu("&Options")
$settingsadminS = GUICtrlCreateMenuItem("&Start admin", $settingsmenu)
$settingsadminE = GUICtrlCreateMenuItem("&End admin", $settingsmenu)
$settingsadminOMC = GUICtrlCreateMenuItem("&Open mail console", $settingsmenu)
$settingsfont = GUICtrlCreateMenuItem("&Theme settings", $settingsmenu)
$helpmenu = GUICtrlCreateMenu("&Help")
$infoitem2 = GUICtrlCreateMenuItem("&Help", $helpmenu)
$infoitem3 = GUICtrlCreateMenuItem("&Software support", $helpmenu)
#endregion $filemenu
#region HEAD
$Pic_head = GUICtrlCreatePic("Z:PublicWMS_SkinsEHS _CAPAearth.jpg", 0, 0, 416, 49, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Lbl_head = GUICtrlCreateLabel("redacted Inc ", 416, 0, 584, 49, BitOR($SS_RIGHT, $SS_CENTERIMAGE))
GUICtrlSetFont(-1, 18, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Lbl_title = GUICtrlCreateLabel("Corrective Action Form", 20, 57, 230, 23, -1, $GUI_WS_EX_PARENTDRAG)
GUICtrlSetFont(-1, 12, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Lbl_ticket = GUICtrlCreateLabel("Ticket", 490, 57, 50, 23)
GUICtrlSetFont(-1, 12, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_ticket = GUICtrlCreateInput($TICKETNUMBER, 545, 55, 90, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Lbl_Reticket = GUICtrlCreateLabel("Reissue Ticket", 270, 57, 100, 20)
GUICtrlSetFont(-1, 12, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_HIDE)
$Input_Reticket = GUICtrlCreateInput("", 380, 55, 90, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
GUICtrlSetState(-1, $GUI_HIDE)
$Btn_Activate = GUICtrlCreateButton("Activate" & @CR & "Ticket", 640, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
$Btn_Edit = GUICtrlCreateButton("Save" & @CRLF & "Changes", 725, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Btn_Close = GUICtrlCreateButton("Close" & @CRLF & "Ticket", 810, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Btn_ReissueTicket = GUICtrlCreateButton("Reissue" & @CRLF & "Ticket", 895, 55, 85, 35, $BS_MULTILINE)
GUICtrlSetFont(-1, 9, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_date = GUICtrlCreateLabel("Date", 20, 95, 40, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_date = GUICtrlCreateInput($fDate, 20, 115, 90, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Btn_calander = GUICtrlCreateButton("", 112, 103 + 10, 28, 28, $BS_BITMAP)
_GUICtrlButton_SetImage($Btn_calander, "Z:PublicWMS_SkinsEHS _CAPAcal.bmp")
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_facility = GUICtrlCreateLabel("Facility", 145, 95, 70, 20)
GUICtrlSetTip(-1, "Facility where the" & @LF & "incedent/failure occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Combo_facility = GUICtrlCreateCombo("", 145, 115, 180, 20)
GUICtrlSetData(-1, $iCOMMONDROPDOWN[1][1])
GUICtrlSetTip(-1, "Facility where the" & @LF & "incedent/failure occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
$Lbl_department = GUICtrlCreateLabel("Department", 330, 95, 100, 20)
GUICtrlSetTip(-1, "Department responsible for the" & @LF & "incedent/failure that occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Combo_department = GUICtrlCreateCombo("", 330, 115, 180, 20)
GUICtrlSetTip(-1, "Department responsible for the" & @LF & "incedent/failure that occured")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
$Lbl_PersonReporting = GUICtrlCreateLabel("Name of person reporting item", 515, 95, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_PersonReporting = GUICtrlCreateInput("", 515, 115, 230, 24)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 100)
$Lbl_PersonReportingEmail = GUICtrlCreateLabel("Email of person reporting item", 750, 95, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
$Input_PersonReportingEmail = GUICtrlCreateInput("", 750, 115, 230, 24)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 100)
$Lbl_Methodology = GUICtrlCreateLabel("Methodology", 20, 160, 120, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo_Methodology = GUICtrlCreateCombo("", 20, 180, 155, 20)
GUICtrlSetData(-1, $iEHSDROPDOWN[1][1])
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_Discovery = GUICtrlCreateLabel("Discovery Process", 180, 160, 150, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo_Discovery = GUICtrlCreateCombo("", 180, 180, 155, 20)
GUICtrlSetData(-1, $iEHSDROPDOWN[2][1])
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_Findings = GUICtrlCreateLabel("Finding", 340, 160, 80, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Combo_Findings = GUICtrlCreateCombo("", 340, 180, 170, 20)
GUICtrlSetData(-1, $iEHSDROPDOWN[3][1])
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_PersonResponsible = GUICtrlCreateLabel("Person responsible" & @CRLF & "for corrective action taken", 515, 134 + 10, 200, 40)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input_PersonResponsible = GUICtrlCreateInput("", 515, 180, 230, 24, $ES_READONLY)
GUICtrlSetTip(-1, "Person resposible for corrective action")
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_PersonResponsibleEmail = GUICtrlCreateLabel("Email of person responsible" & @CRLF & "for corrective action taken", 750, 134 + 10, 200, 40, $ES_READONLY)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Input_PersonResponsibleEmail = GUICtrlCreateInput("", 750, 180, 230, 24, $ES_READONLY)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetState(-1, $GUI_DISABLE)
;### BEGIN TAB
$aCtrlTab = _OwnTab_Create($ehsGUI, $aTabText, 15, 220, 970, 421, 21, 0x000000, $color4, $color4, "", $txtfont, $color2, $txtsize)
#endregion HEAD
#region TAB1
;### TAB 1 ####
_OwnTab_Add($aCtrlTab)
$Lbl_T1 = GUICtrlCreateLabel("Nonconformance", 26, 205 + 19, 110, 17, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
$Lbl_DescriptionOfNonconformance = GUICtrlCreateLabel("Description of Nonconformance", 25, 240 + 20, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
$Edit_DescriptionOfNonconformance = GUICtrlCreateEdit("", 25, 260 + 20, 950, 150, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL, $WS_BORDER), 0)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 500)
$Lbl_ContainmentAction = GUICtrlCreateLabel("Containment action", 25, 440 + 20, 200, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
GUICtrlSetState(-1, $GUI_DISABLE)
$Lbl_ActionDate = GUICtrlCreateLabel("Action date", 760, 435 + 20, 75, 20)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetBkColor(-1, $color4)
GUICtrlSetColor(-1, $txtcolor)
$Input_ActionDate = GUICtrlCreateInput($30DAY, 835, 430 + 20, 120, 24, BitOR($ES_READONLY, $SS_RIGHT))
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetColor(-1, $color2)
GUICtrlSetBkColor(-1, 0x000000)
$Edit_ContainmentAction = GUICtrlCreateEdit("", 25, 460 + 20, 950, 150, BitOR($ES_AUTOVSCROLL, $ES_WANTRETURN, $WS_VSCROLL, $WS_BORDER), 0)
GUICtrlSetFont(-1, $txtsize, $txtweight, 0, $txtfont)
GUICtrlSetLimit(-1, 500)
GUICtrlSetState(-1, $GUI_DISABLE)
#endregion TAB1
#region TAB2

Share this post


Link to post
Share on other sites

Can you maybe upload the entire code into an attachment? I think something is getting missed...

I don't see anything in the code posted above that would cause an error, but Unclosed quotation mark before the character string '1');". definitely means something, as does maybe the 1040 error code. Can you post the entire SQL line (query, whatever its called)? What is actually throwing that error? Any chance you having a single quote in your string?

1040 seems to mean too many connections.


While ProcessExists('Andrews bad day.exe')
	BlockInput(1)
	SoundPlay('Music.wav')
	SoundSetWaveVolume('Louder')
WEnd

Share this post


Link to post
Share on other sites

Sure-- I'll post it in the morning.

I agree its something in the SQL statement that is broken. but a search in it for the missing " before the statement yeilds zip.

Thank you all for everything. I do appreciate it.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0