Thank you for your reply..I checked also what you said, And yes, you're right, if incomplete will result to excel crash...
But there is certain field that can be blank during encoding. hmmmmmmmmmmm...... Anyways, Thank you.
>Or more accurately, yes if certain fields are completed in the details frame.
>Several of them unfortunately cause type mismatch errors if left empty - What do you think is the culprit?
I'm Sorry, stongm.. here's the new file without vba password.
just by-pass the login form.https://files.engineering.com/getfile.aspx?folder=d09cbb5a-1910-4bf4-b921-7fa57de871c8&file=Database1.zip
For Main Code.
' PROGRESS BAR CODES
Sub Main()
Dim i, tot As Integer
tot = 5000
For i = 1 To tot
If i Mod 5 = 0 Then
ProgressBar i / tot
End If
Next i
lblDone.Width = 0
lblPct.Visible = False
End Sub
I can't see "Update Successful", Excel was forced closed automatically.
EDIT: Even though I removed "Call Main" and "Call List box Data", Excel was forced closed automatically.
Sub List_box_Data()
Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Support1")
sh.Cells.ClearContents
Dim cnn...
Hi, I encountered force closed when saving. Error was not displayed,
Can anyone help me? Thank you.
Here's my code.
Private Sub cmdSave_Click()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim qry As String
cnn.Open...
Hi, I encountered force closed when saving. Error was not displayed,
Can anyone help me? Thank you.
Here's my code.
Private Sub cmdSave_Click()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim qry As String
cnn.Open...
Hi.. Good evening,
Here I am again,
Private Sub cmdSave_Click()
''''''''Add Validation here '''''''''''''
If Me.cmbShift.Value = "" Then
MsgBox "Please enter the Shift Encountered", vbCritical
Exit Sub
End If
If Me.txtItem.Value = "" Then
MsgBox...
Cannot perform 'like' operation on system.double and system.string
Hi, Im experiencing this error, Can anyone help me regarding this?
Here's the code:
LstTableBindingSource.Filter = "(Convert([Defect ID], 'System.String') LIKE '" & txtSearch.Text & "')" &...
Hi, Im experiencing this error, Can anyone help me regarding this?
Here's the code:
LstTableBindingSource.Filter = "(Convert([Defect ID], 'System.String') LIKE '" & txtSearch.Text & "')" &
"OR (Sen LIKE '" & txtSearch.Text & "')"...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.